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FOREWORD 

This  doeument  represents  Volume  I of  the  final  report  on  NASA 
Langley  Contract  NASl-8745  entitled  ^’Simulated  Trajectories  Error 
Analysis  Program*!.  The  report  is  prepared  in  two  volumes: 

Volume  I - User*s  Manual; 

Volume  II  - Analytical  Manual. 
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FINAL  REPORT 

SIMULATED  TRAJECTORIES  ERROR  ANALYSIS  PROGRAM 
VOLUME  I:  USER'S  manual 

By  Gentry  Lee,  Ralph  Falce,  Dr,  Doyle  Vogt, 
Shear on  Pearson,  and  Eva  Demlow 


summary 


This  document  presents  the  formulation,  computational  logic, 
input/output  options,  subroutine  description  and  other  pertinent 
information  that  should  aid  the  user  of  the  Simulated  Trajectories 
Error  Analysis  Program  (STEAP) • 

The  program  has  four  modes  of  operation  --  trajectory,  target- 
ing, error  analysis,  and  simulation.  The  trajectory  and  targeting 
modes  are  based  on  an  n-body  subroutine  that  uses  the  virtual  mass 
or  varicentrlc  technique.  The  fundamental  technique  used  in  de- 
veloping the  error  analysis  and  simulation  modes  is  the  Kalman  re- 
cursive filter  algorithm. 


I.  INTRODUCTION 


This  document  is  concerned  with  the  design  and  implementation 
of  a digital  computer  program  to  facilitate  the  study  of  inter- 
planetary trajectories.  This  volume  is  a companion  to  Volume  II 
(analytical  manual)  of  the  final  report  under  NASA-Langley  Con- 
tract NASI -8745. 

The  Simulated  Trajectory  Error  Analysis  Program  (STEAP)  is  a 
Fortran  program  that  was  written  and  checked  out  using  the  CDC- 
6400/6500  digital  computer.  To  minimize  possible  system  incompa- 
tabilities,  care  has  been  exercised  to  assure  that  only  the  basic 
features  of  the  system  are  used.  Thus,  the  program  should  be  op- 
erable on  most  CDC  equipment. 

The  program  is  divided  into  four  operational  modes.  The  first 
mode,  traiectory  mode,  generates  an  n-body  interplanetary  trajec- 
tory using  virtual  mass  concepts.  The  second  mode  determines  ne- 
cessary  injection  conditions  for  targeting  to  certain  constraints 
near  a target  planet  and  is  designated  the  targeting  mode.  The 
third  operational  mode  is  called  the  error  analysis  mode.  The 


primary  function  of  this  mode  is  to  provide  the  capability  for 
error  studies  with  varying  statistical  input.  Various  measure- 
ment data  are  obtained  and  processed  through  an  optimum  recursive 
filter.  The  fourth  mode  in  which  the  program  can  be  exercised  is 
the  simulation  mode.  This  mode  tests  the  convergence  of  the  or- 
bit determination  process  and  has  the  capability  to  simulate  mid- 
course corrections. 

The  remaining  chapters  of  this  document  discuss  the  various 
input /output  options,  main  program  structure,  subroutine  descrip- 
tions, flow  charts  and  example  runs. 
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II.  input  options 


THIS  SECTION  CONTAINS  A COMPLETE  DESCRIPTION  OF  THE  INPUT 
NECESSARY  FOR  EACH  OF  THE  MODES  OF  OPERATION  IN  ADDITION  TO  ANY 
OPTIONS  AVAILABLE. 

IF  THE  TARGETING  MODE  IS  TO  BE  USED  PROCEED  DIRECTLY  TO  PART  B. 
THE  FOLLOWING  COMMENTS  ARE  APPLICABLE  TO  THE  REMAINING  MODES. 


THE  FIRST  CARD  WHICH  SHOULD  BE  READ  CONTAINS  THE  VARIABLE  IRUNX 
WHICH  INDICATES  HOW  MANY  DIFFERENT  RUNS  ARE  TO  BE  MADE.  THIS 
NUMBER  SHOULD  BE  PLACED  ON  THE  CARD  ACCORDING  TO  AN  110  FIELD. 
—NOTE— THIS  NUMBER  IS  ONLY  READ  ONCE  EACH  TIME  THE  PROGRAM  IS 
INPUT. 


THE  NEXT  CARD  SHOULD  CONTAIN  THE  VARIABLES  IPRO  AND  ITR  WHICH 
GIVE  THE  PROBLEM  IDENTIFICATION  AND  A CODE  NUMBER  INDICATING 
WHICH  MODE  TO  BE  USED  FOR  THIS  PROBLEM*  THE  FORMAT  IS  2110. 
—NOTE— THIS  CARD  SHOULD  PRECEDE  THE  INPUT  FOR  EACH  RUN. 


ITR 


=1 

=3 

=4 


TRAJECTORY  MODE 
ERROR  ANALYSIS  MODE 
SIMULATION  MODE 


A.  IF  THE  TRAJECTORY  MODE  IS  TO  BE  RUN*  THE  DATA  IS  INPUT  THROUGH 
THE  USE  OF  A NAMELIST  ENTITLED  TRaJ  WHICH  INCLUDES  THE  FOLLOWING 
VARIABLES. 


XI 


ICOOR 


RDS 

PHI 

theta 

VEL 

GAMMA 

SIGMA 


LMO 

LDAY 

LHR 

LMIN 

SECL 

LYR 


A VECTOR  CONTAINING  THE  INITIAL  POSITION  AND 
VELOCITY  OF  THE  VEHICLE 

—NOTE— THIS  VECTOR  IS  READ  ONLY  IF  ICOOR  = 0*1*2 
A CODE  TO  DETERMINE  WHAT  COORDINATE  SYSTEM  THE 

initial  state  vector  is  in.  if  this  code  is  not 

INCLUDED  IN  THE  NAMELIST*  IT  IS  ASSUMED  TO  BE  2. 
=0  — HELIOCENTRIC  ECLIPTIC 

=1  — GEOCENTRIC  EQUATORIAL 

=2  — GEOCENTRIC  ECLIPTIC 

=3  — JPL  conditions  (RDS* PHI* THETA* VEL* GAMMA* 

SIGMA) 

earth-centered  injection  radius 
declination 

injection  right  ascension 
inertial  injection  speed 
injection  path  angle 
injection  azimuth 

— NOTE— THESE  CONDITIONS  ARE  INPUT  ONLY  IF 
ICOOR  =3, 

LAUNCH  MONTH  (INTEGER) 

LAUNCH  DAYS  (INTEGER) 

LAUNCH  HOURS  (INTEGER) 

LAUNCH  MINUTES  (INTEGER) 

LAUNCH  SECONDS  (FLOATING) 

LAUNCH  YEAR  (INTEGER) 
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IMO 

IDAY 

IHR 

IMIN 

SEC  I 

lYR 

ALNGTH 


TM 


NTMC 


TRIM! 


MONTH  OF  FINAL  COMPUTATION  ^INTEGER) 

DAY  OF  FINAL  COMPUTATION  (INTEGER) 

HOUR  OF  FINAL  COMPUTATION  (INTEGER) 

MINUTE  OF  FINAL  COMPUTATION  (INTEGER) 

SECOND  OF  FINAL  COMPUTATION  (FLOATING) 
year  OF  FINAL  COMPUTATION  (INTEGER) 

length  units  Per  a.u. 

— N0TE"“IF  ALNGTH  IS  NOT  READ  IN#  THE  LENGTH  UNITS 
ARE  ASSUMED  TO  BE  KILOMETERS  ( ALNGTH=14959a500. ) 

TIME  UNITS  PER  DAY 

—NOTE— IF  Tm  is  not  READ  IN#  THE  TIME  UNITS  ARE 
ASSUMED  TO  BE  SECONDS,  (TM=86400.) 

NOMINAL  TRAJECTORY  MODULE  CODE 

=1  ”»  PATCHED  CONIC  (NOT  SUPPLIED  WITH  THIS  PROGRAM) 
=2  — VIRTUAL  MASS 

—NOTE— IF  NOT  INPUT#  CODE  2 IS  ASSUMED 
initial  TRAJECTORY  TIME  (ASSUMED  ZERO  IF  NOT 
READ  IN) 


NBOD  — NUMBER  OF  BODIES  TO  BE  CONSIDERED  IN  ANALYSIS 

»-N0TE—“IF  NBOD  IS  NOT  INPUT#  IT  IS  ASSUMED  TO  BE  3 
(SUN#  LAUNCH  PLANET#  TARGET  PLANET) 

NB  — ARRAY  OF  COOES  OF  BODIES 

=1  — SUN 
=2  — MERCURY 
S3  — VENUS 
=4  — EARTH 
—5  MARS 

=6  JUPITER 

s7  — SATURN 
s6  — URANUS 
=9  — NEPTUNE 
slO—  PLUTO 
sii—  earths  moon 
— NOTE— NB(2)slAUnCH  PLANET 
NB(3)sTARGET  PLANET 

THE  FOLLOWING  INFORMATION  IS  NECESSARY  ONLY  IF  NTMCs2. 
lEPHEM  — EPHEMERIS  CODE 

SO  — PLACE  EACH  PLANET  IN  ELLIPSE 

THE  DATE  AT  WHICH  THIS  ELLIPSE  IS 
calculated  IS  DETERMINED  BY  READING  IN  A 
VARIABLE  WHICH  IS  ENTITLED  AS  THE  NAME  OF 
THE  PLANET  CONSIDERED.  THIS  VARIABLE 
SHOULD  CONTAIN  SIX  NUMBERS  SPECIFYING  THE 
MONTH#  DAY#  HOUR#  MINUTE# SECOND#  AND 
YEAR . ( EXAMPLE . , E ARTHs7  #24#6#15»38» 1973 ) 

—NOTE— IF  THESE  VARIABLES  ARE  OMITTED  FROM 
THE  NAMELIST  THE  FOLLOWING  RULES  WILL  BE 
APPLIED. 

NB(2)  at  launch  DATE 
NB(3)  at  target  DATE 

MOON  AT  Same  date  as  earth 

ALL  OTHERS  AT  TARGET  DATE 

si  — CALCULATE  ORBITAL  ELEMSRTS  FOR  EACH  PLANET 
EACH  TIME  INTERVAL 

—NOTE— ONE  IS  ASSUMED  IF  OMITTED  FROM  INPUT 
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IPRINT 


ISP2  ’ 

ACC 

DELTP 

INPR 


PRINT  CODE  FOR  VIRTUAL  MASS.^ 

=0  ALL  OUTPUT  WILL  BE  PRINTED  BOTH  INITIALLY  AND 
FINALLY  AS  USUAL 

(ASSUMED  IF  NOT  INPUT  IN  TRAJECTORY  MODE) 

=1  OUTPUT  WILL  be  SUPPRESSED  AT  THE  BEGINNING  AND 
FINAL  STEPS 

(ASSUMED  IF  NOT  INPUT  IN  ERROR  ANALYSIS  MODE 
AND  SIMULATION  MODE) 

CODE  FOR  virtual  MASS . TRAJECTORY 
=0  CONTINUE  INTEGRATING  TO  FINAL  TIME 

— NOTE— ISP2  IS  ASSUMED  ZERO  IF  NOT  INPUT 
.6T.0  STOP  integrating  WHEN  SPHERE  OF  INFLUENCE 
OF  TARGET  PLANET  IS  ENCOUNTERED. 

ACCURACY  FIGURE  (ASSUMED  l.E-6  IF  NOT  INPUT) 

PRINT  interval  (IN  DAYS) —ASSUMED  3.  IF  NOT  INPUT 
IN  trajectory  mode.  IF  NOT  INPUT  IN  ERROR  ANALYSIS 
mode  or  SIMULATION  MODE  DELTP  IS  ASSUMED  1.E50. 
PRINT  interval  (INCREMENTS)  (ASSUMED  100  IF  NOT 
INPUT  IN  trajectory  MODE.  IN  ERROR  ANALYSIS  OR 
simulation  MODE  ASSUMED  7777777  IF  NOT  INPUT) 


THE  entire  input  REQUIRED  BY  THE  TARGETING  PROGRAM  IS  SUPPLIED  IN 
SIX  CAROS  WITH  EACH  INDIVIDUAL  CARD  CONTAINING  UNIFIED  DATA.  THE 
(SEQUENTIAL)  CARDS  AND  THEIR  REOUlSITE  FORMAT  ARE  LISTED  BELOW. 


CARD  1 — 

format 

CARD  2 — 
FORMAT 
CARD  3 — 
FORMAT 
CARO  4 — 
FORMAT 
CARD  5 — 
FORMAT 
CARD  6 — 
FORMAT 


IDATK5)  rSi»IDAT2(5)  ,S2 
(I5f4I3»F7.3#5X»l4»4I3»F7.3) 

NB0D»  NB(NBOO) 

(I2f3X»llI5) 

INJEK*  RS(6) 

(I2f2X»3El5,8»3E10.3) 

ITAR(3»  TARGlf  TARG2»  T0Ll»  TOL2»  T0L3 
(I2»2Xr5F15.5) 

ISKEJf  AC(ISKEJ) 

{I2»6Xf7F10.8) 

NlTSf  INCPR»  TIMPR»  BOELV 
(I2»7Xf  I5»5X»F9,4»FH,8) 


THE  definitions  OF  THE  ABOVE  DATA  ARE  SUMMARIZED  BELOW. 


IDAT1»S1  - 


IDAT2»S2  - 


NBOD 

NB 


THE  INITIAL  TIME.  IDATI  IS  A 5-VECTOR  COMPOSED  OF 
THE  INITIAL  YEAR » MONTH > DAY. HOUR. AND  MINUTE.  SI  DE- 
NOTES THE  SECONDS.  IF  INJEK=1»  THIS  TIME  IS  SPECI- 
FIED ONLY  TO  the  day.  IF  INJEK=2.  THE  TIME  SHOULD 
BE  PRESCRIBED  TO  THE  NEAREST  THOUSANDTH-SECOND. 
the  target  time,  if  1TARG=1.2.5.6  THIS  IS  THE  TIME 
AT  CLOSEST  APPROACH  OF  THE  TARGET  PLANET.  IF  ITAR6 
=3.4  THIS  IS  THE  TIME  AT  SPHERE  OF  INFLUENCE  OF 
THE  target  planet. 

THE  NUMBER  OF  GRAVITATIONAL  BODIES  TO  BE  CONSIDERED 
IN  THE  INTEGRATION. 

A VECTOR  OF  DIMENSION  NBOD  SPECIFYING  THE  INDICES 
OF  The  GRAVITATIONAL  BODIES.  THE  SECOND  BODY  IS 
ASSUMED  TO  BE  THE  LAUNCH  PLANET.  THE  THIRD.  THE 
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INJEK 


RS 

ITARG 


TARG1» 

TAR62 


TOUf  - 
T0L2f 
T0L3 

ISKEJ 

AC 

NITS 

INCPR 

TIMPR 

BDELV 


target  PLANET.  THE  NUMBERING  SYSTEM  ASSIGNS  THE 
INDEX  1 TO  THE  SUNf  2 TO  MERCURY»  3 TO  VENUS»  4 TO 
EARTh#  5 TO  MARS»  6 TO  JUPITER#  7 TO  SATURN#  8 TO 
URANUS#  9 TO  NEPTUNE#  10  TO  PLUTO#  AND  11  TO  THE 
earths  MOON. 

- A FLAG  DESIGNATING  WHICH  OF  TWO  INJECTION  OPTIONS 
IS  To  BE  USED, 

IF  INJEK  = 1 - THE  POINT-TO-POiNT  CONDITIONS 
ARE  TO  BE  COMPUTED  AND  USED  AS 
THE  ZERO  ITERATE  INJECTION 

conditions. 

= 2 " THE  ZERO  ITERATE  INJECTION 
CONDITIONS  ARE  READ  IN. 

“ THE  ZERO  iterate  INJECTION  POSITION  AND  VELOCITY  IN 
HELIOCENTRIC  ECLIPTIC  COORDINATES.  IF  INJEK  = 1# 
THE  CORRESPONDING  COLUMNS  ARE  LEFT  BLANK. 

- A FLAG  designating  WHICH  OF  SIX  TARGET  OPTIONS  ARE 
TO  BE  IN  EFFECT.  THE  OPTIONS  ARE 

itarg  option 

1 POINT-TO-POINT  CONDITIONS 

2 PATCHED  CONIC  CONDITIONS  (UNBIASED  FTP) 

3 b.t#  b.R#  approximate  tsi 

4 B.T#  b.R#  tsi 

5 approximate  RCA#  ICA#  TCA 

6 EXACT  RCa#  ICA#  TCA 

• TARGET  PARAMETERS.  THE  PARAMETERS  HAVE  THE  FOLLOW- 
ING DEFINITIONS  DEPENDING  ON  THE  TARGET  OPTION. 

itarg  TAR61  TARG2 

1»2  DO  NOT  APPLY 

3#4  B.T  (KM)  B.R  (KM) 

5# 6 INC  (DEG)  RCA  (KM) 

• TARGET  TOLERANCES.  THE  TOLERANCES  SPECIFY  THE  ERROR 
THAT  WILL  BE  ACCEPTABLE  IN  THE  TARGET  PARAMETERS  AC- 
CORDING TO  THE  FOLLOWING  SCHEME 

itarg  TOLl  T0L2  T0L3 

1»2  DO  NOT  APPLY 

3#4»5  B.T  (KM)  B.R  (KM)  TSI  (DAYS) 

6 INC  (DEG)  RCA  (KM)  TCA  (DAYS) 

- A FLAG  DESIGNATING  THE  NUMBER  OF  ACCURACY  LEVELS  TO 
BE  USED  IN  the  TARGETING  PROCESS. 

- A VECTOR  OF  DIMENSION  ISKEJ  WHOSE  COMPONENTS  ARE 
THE  PROGRESSIVE  ACCURACY  LEVELS  FROM  THE  LOWEST  TO 
THE  DESIRED  FINAL  LEVEL, 

- the  MAXIMUM  number  OF  ITERATIONS  ALLOWED  AT  THE 
FINAL  ACCURACY  LEVEL. 

- THE  NUMBER  OF  INTEGRATION  INCREMENTS  BETWEEN  EACH 
PRINTOUT  OF  trajectory  INFORMATION  IN  THE  FINAL 
INTEGRATION  OF  THE  TARGETED  INJECTION  CONDITIONS. 
THE  NUMBER  OF  DAYS  BETWEEN  EACH  PRINTOUT  OF  TRAJEC- 
TORY INFORMATION  IN  THE  FINAL  INTEGRATION  OF  THE 
TARGETED  INJECTION  CONDITIONS, 

- THE  BASIC  velocity  INCREMENT  BY  WHICH  THE  NOMINAL 

velocities  are  perturbed  in  computing  state  transi- 
tion MATRICES,  IN  OUTER  TARGETING  THE  VELOCITY 
INCREMENT  IS  10  TIMES  GREATER#  IN  CLOSEST  APPROACH 
TARGETING  IT  IS  1/10  AS  LARGE. 


C,  IF  THE  ERROR  ANALYSIS  MODE  IS  TO  BE  RUN#  A NAMELIST  ENTITLED 

ERRAN  IS  READ  WHICH  INCLUDES  ALL  OF  THOSE  VARIABLES  USED  IN  THE 
trajectory  mode  plus  the  follow IN6. 

I AUG  ~ augmentation  FLAG 

= 1 state  vector  CONSISTS  OF  POSITION  AND 

velocity  of  vehicle  (NDIM  = 6) 

— ALL  REMAINING  CODES  INDICATE  STATE  VECTORS  WITH 

augmented  information  as  noted  — 

= 2 STATION  LOCATION  PARAMETERS  (NDIM  = 9) 

(GEOCENTRIC  RADIUS#  LATITUDE#  LONGITUDE) 

= 3 MU  OF  SUM  and  MU  OF  TARGET  PLANET  (NDIM  = 8) 
= A SIX  MEASUREMENT  BIASES  (RANGE  BIAS#  RANGE- 

RATE  BIAS#  THREE  STAR  ANGLE  BIASES#  APPARENT 
PLANET  DIAMETER  BIAS)  (NDIM=12) 

= 5 THREE  EPHEMERIS  BIASES  OF  TARGET  PLANET 

(SEMI-major  axis  bias#  eccentricity  bias# 

INCLINATION  BIAS)  (NDIM=:9) 

= 6 NINE  STATION  LOCATION  PARAMETERS  (NDIM=15) 
(THREE  FROM  EACH  OF  THREE  STATIONS) 

= 7 THREE  station  LOCATION  PARAMETERS  PLUS  MU  OF 
SUN  AND  MU  OF  TARGET  PLANET  (NDIM  = 11) 

= 8 THREE  STATION  LOCATION  PARAMETERS  AND  SIX 
measurement  BIASES  (N0IM=15) 

= 9 MU  OF  SUN#  MU  OF  TARGET  PLANET#  THREE 
EPHEMERIS  BIASES  (NDIM=11) 

= 10  SIX  MEASUREMENT  BIASES  AND  THREE  EPHEMERIS 
BIASES  (NDIM=15) 

= 11  THREE  STATION  LOCATION  PARAMETERS  PLUS  MU 
OF  SUN#  MU  OF  PLANET#  SIX  MEASUREMENT 
BIASES  (NDIM=17) 

NENT  — NUMBER  OF  ENTRIES  IN  THE  MEASUREMENT  SCHEDULE 
THIS  IS  ASSUMED  ZERO  IF  IT  IS  NOT  INPUT 
—NOTE— THE  MEASUREMENT  SCHEDULE  ITSELF  IS  NOT 
READ  IN  THE  NAMELIST.  IT  WILL  BE  READ 
IMMEDIATLEY  FOLLOWING  THE  NAMELIST 
SCHED(l)  SCHE0(2)  SCHEDO)  ME  AS 

FIO.O  FlO.O  FIO.O  110 

DAYl  TO  DAY2  EVERY  X DAYS  W.  CODE 
THE  CODE  IS  determined  BY  THE  FOLLOWING  LIST 
=1  RANGE-RATE  — IDEALIZED  STATION 
=2  RANGE#  range-rate  — IDEALIZED  STATION 
=3  RANGE-RATE  — STATION  1 
=A  range#  RANGE-RATE  — STATION  1 
=5  range-rate  — STATION  2 
=6  range#  RANGE-RATE  — STATION  2 
=7  range-rate  — STATION  3 
=8  RANGE#  RANGE-RATE  — STATION  3 
=9  THREE  STAR  PLANET  ANGLES 
=10  apparent  PLANET  DIAMETER 

NEVl  — NUMBER  OF  EIGENVECTOR  EVENTS  (ASSUMED  ZERO#  IF 

NOT  READ)  ‘ 


n 

IE  1 6 

IHYPl 

NEV2 

T2 

TPT2 

NEV3 

T3 

ICDT3 


ICDQ3 


SISRES 

SiePRO 

SI6ALP 

SISBET 


ARRAY  OF  TIMES  AT  WHICH  EI6ENVECT0R  EVENTS  OCCUR 
—NOTE— THIS  IS  TO  BE  INPUT  ONLY  IF  NEVl.NE.O 
EIGENVECTOR  CODE 

=0  — ONLY  POSITION  EIGENVECTORS  WILL  BE  INPUT 
(ASSUMED  IF  NOT  INPUT) 

=1  — BOTH  POSITION  AND  VELOCITY  EIGENVECTORS 
WILL  BE  CALCULATED 
HYPERELLPSOID  SIGMA  LEVEL  CODE 
=1  — SIGMA  level  equals  ONE 

=2  - SIGMA  LEVEL  EQUALS  THREE  {ASSUMED  IF  NOT 

INPUT) 

=3  — SIGMA  LEVEL  OF  BOTH  ONE  AND  THREE 
NUMBER  OF  PREDICTION  EVENTS  (ASSUMED  ZERO»  IF 
NOT  READ) 

ARRAY  OF  times  AT  WHICH  PREDICTION  EVENTS  OCCUR 

—NOTE— THIS  IS  Input  only  if  nevs.ne.o 
ARRAY  OF  TIMES  TO  WHICH  ONE  WISHES  TO  PREDICT. 
—NOTE— THESE  MUST  CORRESPOND  TO  THOSE  TIMES 
LISTED  IN  T2  AND  SHOULD  BE  INPUT  ONLY  IF  T2  IS 
INPUT 

NUMBER  OF  GUIDANCE  EVENTS  (ASSUMED  TO  BE  ZERO  IF 
NOT  INPUT) 

ARRAY  OF  TIMES  AT  WHICH  GUIDANCE  EVENTS  OCCUR 
—NOTE— these  must  BE  INPUT  ONLY  IF  NEV3.NE.0 
ARRAY  OF  CODES  WHICH  DETERMINE  WHAT  GUIDANCE 
POLICY  IS  TO  BE  USED  AT  EACH  GUIDANCE  E.VENT 
=1  — FIXED  TIME  OF  ARRIVAL 
=2  — TWO-VARIABLE  B-PLANE 
=3  — THREE-VARIABLE  B-PLANE 

—NOTE— these  codes  MUST  CORRESPOND  TO  THE  TIMES 
AS  stated  IN  T3  AND  NEED  BE  INPUT  ONLY  IF  T3  IS 
INPUT — IF  These  are  not  input  when  T3  is  input 
THREE  VARIABLE  B-PLANE  IS  ASSUMED 
ARRAY  OF  CODES  FOR  GUIDANCE  EVENTS  TO  OETERMINE 
HOW  the  EXECUTION  ERROR  IS  TO  bE  CALCULATED. 

= 0 CALCULATED  DIRECTLY  FROM  S MATRIX 
= 1 CALCULATED  FROM  EIGENVECTOR  CORRESPONDING  TO 
MAXIMUM  EIGENVALUE  OF  S MATRIX. 

—NOTE— THESE  COOES  MUST  CORRESPOND  TO  THE  TIMES  AS 

stated  in  t3  and  need  be  input  only  if  T3  is  input. 

IF  THESE  ARE  NOT  INPUT  WHEN  T3  IS  INPUT.  OPTION  1 
IS  ASSUMED 

VARIANCE  OF  RESOLUTION  ERROR 

ASSUMED  A.E-8  KM**2/SEC*»2  IF  nOT  INPUT 

VARIANCE  OF  PROPORTIONALITY  ERROR 

ASSUMED  .0001  IF  NOT  INPUT 

VARIANCE  OF  POINTING  ANGLE  ALPHA 

ASSUMED  .0043625  RADIANS  IF  NOT  INPUT 

VARIANCE  OF  POINTING  ANGLE  BETA 

ASSUMED  ♦0043625  RADIANS  IF  NOT  INPUT 

—NOTE— THE  above  SIGMA  VALUES  MUST  BE  INPUT  ONLY 

IF  NEV3.NE.0 
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p — initial  covariance  matrix. 

—note— IF  THIS  matrix  IS  NOT  INPUT#  A DIAGONAL 
MATRIX  IS  ASSUMED  WITH  THE  LISTED  VALUES  FOR  THE 
FIRST  SIX  ELEMENTS  ON  THE  DIAGONAL.  ALL  OTHERS 
WILL  he  zero 

I.  1.  1.  l.E-4  l.E-4  l.E-4 

ISTMC  — STATE  TRANSITION  MATRIX  CODE 

=l  — PATCHED-CONIC  {ANALYTICAL) 

=2  — VIRTUAL  MASS  (ANALYTICAL) 

=3  --  NUMERICAL  DIFFERENCING  USING  VIRTUAL-MASS, 
—NOTE— IF  THIS  CODE  IS  NOT  INPUT#  ISTMC  = 1 IS 

assumed. 

lUNF  — DYNAMIC  NOISE  FLAG 

=0  — DYNAMIC  NOISE  IS  ZERO— ASSUMED  IF  NOT  INPUT 
=1  — DYNAMIC  NOISE  IS  NOT  ZERO 

DNCN  — constants  USED  TO  CALCULATE  DYNAMIC  NOISE  (NEED  BE 
INPUT  ONLY  IF  IDNF=D 
IMNF  — measurement  NOISE  FLAG 

=0  — measurement  noise  is  CONSTANT  (ASSUMED  IF 
NOT  READ  IN) 

=1  — MEASUREMENT  NOISE  IS  TO  BE  COMPUTED  (THIS 
OPTION  IS  NOT  AVAILABLE  WITH  THIS  PROGRAM)- 
MNCN  — ARRAY  OF  VARIANCES  FOR  EACH  TYPE  OF  MEASUREMENT 

—NOTE— IF  This  array  is  omitted  from  the  namelist# 
the  following  array  will  be  ASSUMED. 


RANGE  (IDEALIZED  STATION)  l.E-6 

range-rate  (Idealized  station)  i,e-12 
RANGE  (STATION  D l.E-6 

RANGE-RATE  (STATION  1)  l.E-12 

RANGE  (STATION  2)  l.E-6 

RANGE-RATE  (STATION  2)  l.E-12 

RANGE  (STATION  3)  l.E-6 

RANGE-RATE  (STATION  3)  l.E-12 

STAR  angle  1 2.5E-9 

STAR  ANGLE  2 2.5E-9 

STAR  ANGLE  3 2.5E-9 

apparent  planet  diameter  2.5E-9 


NST  — NUMBER  OF  TRACKING  STATIONS  ON  THE  ROTATING  EARTH 

—NOTE— THIS  INFORMATION  NEED  bE  INPUT  ONLY  IF 
INCJLUDED  in  the  measurements  IS  TYPE  3#4#5#6#7#8 
IF  NO  INFORMATION  ON  THE  TRACKING  STATIONS  IS  INPUT 
THREE  STATIONS  WILL  BE  ASSUMED  AS  THE  FOLLOWING 

ALT  LAT  LONG 

1.  GOLOSTONE  — 1.031  KM  35.3a4N  116.833W 

2.  MADRID  — .050  KM  40,417N  3.667W 

3.  CANBERRA  — ,050  KM  35.311S  149.136E 

SAL  — ARRAY  OF  ALTITUDES  OF  EACH  TRACKING  STATION 

SLAT  — ARRAY  OF  LATITUDES  OF  EACH  TRACKING  STATION 

SLON  — ARRAY  OF  LONGITUDES  OF  EACH  TRACKING  STATION 

—NOTE— the  ABOVE  THREE  ARRAYS  MUST  BE  INPUT  ONLY 
IF  NST.NE.O 

Ui#Vl#Wl — DIRECTION  COSINES  OF  STAR  PLANET  ANGLE  1 

(NECESSARY  ONLY  IF  THIS  ANGLE  IS  BEING  MEASURED) 

IF  These  are  not  input  star  number  i is  assumed 

TO  BE  CANOPUS  WITH 

Ul=-. 061351#  Vl=. 237886#  Wl=-, 969355 
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U2>V2fW2— 


U3»V3rW3— 

FACP 

FACV 

FOP 

FOV 

ISTMl 

DTMAX 

NDACC 


ACCND 

DELAXS  — 
OELECC  — 
DEL I CL  — 


DIRECTION  CONSINES  OF  STAR  PLANE  ANGLE  2 
(NECESSARY  ONLY  IF  THIS  ANGLE  IS  BEING  MEASURED) 

IF  »ThESE  are  not  INPUT  STAR  NUMBER  2 IS  ASSUMED 
TO  3£  BETEL6EUSE  WITH 
U2=,028986»  V2S.960388»  W2=-. 277141 

DIRECTION  COSINES  OF  STAR  PLANET  ANGLE  3 
(NECESSARY  ONLY  IF  THIS  ANGLE  IS  BEING  MEASURED) 

IF  THESE  ARE  NOT  INPUT  STAR  NUMBER  -3  IS  ASSUMED 
TO  BE  RIGEL  WITH 

W3=,201963»  V3=.83l343f  W35-. 517784 

POSITION  FACTOR  FOR  NUMERICAL  DIFFERENCING 
(NEED  BE  INPUT  ONLY  IF  ISTMC=3) 

ASSUMED  TO  BE  1 KM  IF  NOT  INPUT 
VELOCITY  FACTOR  FOR  NUMERICAL  DIFFERENCING 
(NEED  BE  INPUT  ONLY  IF  ISTMC=3) 

ASSUMED  TO  BE  l.E-4  KM/SEC  IF  NOT  INPUT, 

A VALUE  TO  BE  USED  AS  AN  OFF-DIAGONAL  ANIHILATION 
ELEMENT  IN  THE  EIGENVECTOR  ROUTINE  FOR  POSITION 
EIGENVALUES  AND  EIGENVECTORS  (ASSUMED  TO  BE  l.E-15 
IF  NOT  READ  IN) 

A VALUE  TO  BE  USED  AS  AN  OFF-DIAGONAL  ANIHILATION 
ELEMENT  IN  THE  EIGENVECTOR  ROUTINE  FOR  VELOCITY 
EIGENVALUES  AND  EIGENVECTORS  (ASSUMED  TO  BE  l.E-25 
IF  NOT  read  IN) 

AN  ALTERNATE  STATE  TRANSITION  MATRIX  CODE 
=0  IF  DELTM  IS  GREATER  THAN  DTMAX  (DESCRIBED 

BELOW)  calculate  PSI  BY  USING  THE  SUN  AS  THE 
GOVERNING  BODY,  (ASSUMED  0 IF  NOT  INPUT) 

=1  IF  DELTM  IS  GREATER  THAN  DTMAX  CALCULATE  PSI  BY 
NUMERICAL  DIFFERENCING, 
the  maximum  DELTM  ( IN  DAYS)  SO  THAT  THE  STATE 
TRANSITION  MATRIX  COMPUTATION  IS  CONSIDERED  VALID 
WHEN  USING  EITHER  THE  PATCHED  CONIC  tECHNIQUE  OR 
THE  VIRTUAL  MASS  TECHNIQUE 
(ASSUMED  TO  BE  8 DAYS  IF  NOT  READ  IN) 
accuracy  code  for  NUMERICAL  DIFFERENCING 
=0  USE  THE  SAME  ACCURACY  FIGURE  IN  THE  CALCULATION 
OF  the  state  TRANSITION  MATRIX  BY  THE  METHOD  OF 
NUMERICAL  DIFFERENCING  AS  IS  USED  IN  THE 
NOMINAL  TRAJECTORY  (ASSUMED  IF  NOT  INPUT) 

=1  CHANGE  the  ACCURACY  IN  USING  THE  NUMERICAL 

DIFFERENCING  METHOD  TO  ACCnD  (DESCRIBED  BELOW) 
accuracy  to  BE  USED  IN  THE  CALCULATION  OF  THE  STATE 

transition  matrix  by  the  method  of  numerical 

DIFFERENCING,  (USED  ONLY  IF  NDACC=1)  ASSUMED  TO  BE 
2,5E-5  IF  NOT  INPUT, 

SEMI-MAJOR  AXIS  FACTOR  USED  IN  NUMERICAL 
DIFFERENCING  TO  COMPUTE  PSI  AND  H IF  I AUG  = 5,  9» 

OR  10,  (ASSUMED  100  KM  IF  NOT  INPUT) 

ECCENTRICITY  FACTOR  USED  IN  NUMERICAL  DIFFERENCING 
TO  COMPUTE  PSI  and  H IF  lAUG  = 5>  9»  OR  10, 

(ASSUMED  l,E-5  IF  NOT  INPUT) 

inclination  factor  used  in  numerical  DIFFERENCING 
TO  COMPUTE  PSI  and  H IF  I AUG  = 5»  9»  OR  10, 

(ASSUMED  10  ARCSECONDS  IF  NOT  INPUT) 
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delmus  — factor  used  in  numerical  differencing  for  the  mu  of 
THE  SUN  TO  generate  THE  AUGMENTED  STATE  TRANSITION 
MATRIX  WHEN  lAUG  = 3»  7»  9»  OR  11.  (ASSUMED  1.E7 
WHEN  not  INPUT) 

DELMUP  ~ FACTOR  USED  IN  NUMERICAL  DIFFERENCING  FOR  THE  MU  OF 
THE  target  planet  TO  GENERATE  THE  AUGMENTED  STATE 
transition  Matrix  when  iaug  = 3»  it  9.  or  ii. 

(ASSUMED  .1  WHEN  NOT  INPUT) 


IN  ORDER  TO  EXERCISE  THE  SIMULATION  OPTION*  A NAMELIST  ENTITLED 
SMLTN  IS  READ  WHICH  CONTAINS  ALL  THE  VARIABLES  MENTIONED  ABOVE 
FOR  THE  TRAJECTORY  AND  ERROR  ANALYSIS  MODES  PLUS  THE  FOLLOWING. 


NEVA 

T4 

AOEVX 

BIA 

dmusb 

DMUPB 

DAB 

DEB 

DIB 

TTIMl 

TTIM2 

UNMAC 


NUMBER  OF  QUASI-LINEAR  FILTERING  EVENTS  TO  BE  RUN 
AN  ARRAY  OF  TIMES  AT  WHICH  QUASI-LINEAR  FILTERING 
EVENTS  ARE  TO  TAKE  PLACE. 

—NOTE— THIS  array  IS  NECESSARY  ONLY  IF  NEVA  IS  NOT 
ZERO 

THE  VECTOR  DESCRIBING  THE  ACTUAL  DEVIATION  OF  THE 
ACTUAL  trajectory  FROM  THE  MOST  RECENT  NOMINAL 
trajectory 

AN  array  of  measurement  biases  which  determine  the 

ACTUAL  VALUE  TO  BE  USED  FOR  EACH  OF  THE  TYPES  OF 
MEASUREMENTS 

ACTUAL  BIAS  OF  THE  MU  OF  THE  SUN  TO  BE  USED  IN  THE 
determination  of  the  ACTUAL  TRAJECTORY 
(ASSUMED  TO  BE  ZERO  IF  NOT  INPUT) 

ACTUAL  BIAS  OF  THE  MU  OF  THE  TARGET  PLANET  TO  BE 
USED  IN  THE  DETERMINATION  OF  THE  ACTUAL  TRAJECTORY 
(ASSUMED  TO  BE  ZERO  IF  NOT  INPUT) 

ACTUAL  BIAS  IN  THE  SEMI-MAJOR  AXIS  OF  THE  TARGET 
PLANET  TO  BE  USED  IN  THE  DETERMINATION  OF  THE 

actual  trajectory 

(ASSUMED  TO  BE  ZERO  IF  NOT  INPUT) 

ACTUAL  BIAS  IN  THE  ECCENTRICITY  OF  THE  TARGET 
planet  TO  BE  USED  IN  THE  DETERMINATION  OF  THE 
ACTUAL  trajectory 
(ASSUMED  TO  BE  ZERO  IF  NOT  INPUT) 

ACTUAL  BIAS  IN  THE  INCLINATION  OF  THE  TARGET  PLANET 
TO  BE  USED  IN  THE  DETERMINATION  OF  THE  ACTUAL 

trajectory 

(assumed  to  BE  ZERO  IF  NOT  INPUT) 

THE  FIRST  TIME  AT  WHICH  THE  VALUES  USED  FOR  THE 
actual  UNMODELLED  ACCELERATION  WILL  BE  ALTERED 
THE  SECOND  TIME  AT  WHICH  THE  VALUES  USED  FOR  THE 
ACTUAL  UNMODELLED  ACCELERATION  WILL  BE  ALTERED 
AN  ARRAY  OF  VALUES  WHICH  DETERMINE  THE  ACTUAL 


UNMODELLED 

acceleration 

TO  BE 

USED  AT  A GIVEN  TIME 

NOTE— THESE 

VALUES  ARE 

ASSUMED  ZERO  IF  NOT  INPUT 

TO  - T1 

T1  - T2 

T2  - 

TF 

XI 

X2 

X3 

ACCELERATION 

Y1 

Y2 

Y3 

ACCELERATION 

Z1 

Z2 

Z3 

ACCELERATION 
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SLB 


lAMNF 


AVARM 

NBOOa. 

NBl 

ACCl 

ARES 

APRO 

AALP 

abet 


AN  ARRAY  OF  ACTUAL  BIASES  IN  THE  LOCATIONS  OF  THE 
THREE  rotating  STATIONS  ON  THE  EARTH 
( ALX » LATl » LONGl » AL2 » LAT2»  L0NG2  # AL3 » LAT3  f L0NG3) 
NOTE— THESE  VALUES  ARE  ASSUMED  TO  BE  ZERO  IF  NOT 
INPUT 

ACTUAL  MEASUREMENT  NOISE  CODE 

=0  — ASSUME  THE  ACTUAL  UNCERTAINTIES  IN  THE 

MEASUREMENT  NOISE  ARE  THE  SAME  AS  THE 
uncertainties  assumed  in  the  MOST  RECENT 
NOMINAL  trajectory 

=1  — CALCULATE  THE  ACTUAL  UNCERTAINITES  IN  THE 

MEASUREMENT  NOISE  USING  THE  FOLLOWING 
CONSTANTS 

NOTE  — IF  not  input  IAMNF  IS  ASSUMED  ZERO 
actual  VARIANCES  TO  BE  USED  IN  COMPUTING  THE  ACTUAL 
UNCERTAINTIES  IN  THE  MEASUREMENT  FROM  WHICH  THE 

actual  measurement  noise  is  calculated 

—NOTE— NEED  BE  INPUT  ONLY  IF  IAMNF=1 

NUMBER  OF  BODIES  TO  BE  CONSIDERED  IN  THE  ACTUAL 

TRAJECTORY  (ASSUMED  TO  BE  U IF  NOT  INPUT) 

AN  ARRAY  OF  CODES  OF  PLANETS  TO  BE  USED  IN  THE 
ACTUAL  trajectory  (IF  NOT  INPUT  ALL  MAJOR  PLANETS 

IN  The  solar  system  are  considered  plus  the  sun  and 

THE  EARTHS  MOON) 

AN  ACCURACY  FIGURE  TO  BE  USED  IN  THE  VIRTUAL  MASS 
PROGRAM  WHEN  GENERATING  THE  ACTUAL  TRAJECTORY 
(IF  NOT  INPUT  ACCl  IS  ASSUMED  TO  BE  l.E-6) 

AN  ARRAY  OF  ACTUAL  RESOLUTION  ERRORS  CORRESPONDING 

TO  The  guidance  events.  (assumed  O if  not  INPUT) 

—NOTE— NEED  BE  INPUT  ONLY  IF  GUIDANCE  EVENTS  OCCUR 
AN  ARRAY  OF  ACTUAL  PROPORTIONALITY  ERRORS  FOR  EACH 
GUIDANCE  EVENT.  (ASSUMED  ZERO  IF  NOT  INPUT) 
—NOTE— NEED  BE  INPUT  ONLY  IF  GUIDANCE  EVENTS  OCCUR 
AN  ARRAY  OF  ACTUAL  ERRORS  FOR  POINTING  ANGLE  ONE 
FOR  THE  GUIDANCE  EVENTS.  (ASSUMED  ZERO  IF  NOT 
INPUT)  —NOTE— NEED  BE  INPUT  ONLY  IF  GUIDANCE 
EVENTS  OCCUR 

AN  ARRAY  OF  ACTUAL  ERRORS  FOR  POINTING  ANGLE  TWO 
FOR  THE  GUIDANCE  EVENTS.  (ASSUMED  ZERO  IF  NOT 
INPUT)  —NOTE— NEED  BE  INPUT  ONLY  IF  GUIDANCE 
EVENTS  OCCUR 


III.  OUTPUT  OPTIONS 


All  printed  output  that  may  be  obtained  from  the  various  modes 
of  operation  of  STEAP  is  described  in  this  chapter. 


A.  Trajectory  Mode 

Initially,  the  input  data  are  printed  with  the  exercised  op- 
tions. The  entries  that  appear  in  this  group  are  listed  below: 

1)  Initial  trajectory  time  in  both  calendar  date  and 
Julian  date; 

2)  Final  trajectory  time  in  both  calendar  date  and 
Julian  date; 

3)  Initial  trajectory  time  in  days; 

4)  Augmentation  code  (for  the  trajectory  mode  this  code 
is  always  1); 

5)  Initial  state  vector  - the  initial  state  is  printed 
first  in  the  coordinate  system  in  which  it  is  input 
and  finally  in  heliocentric  ecliptic  coordinates; 

6)  Nominal  trajectory  module  code; 

7)  Nominal  trajectory  information  - 

Bodies  to  be  considered, 

Target  planet; 

8)  Length  units  per  A.  U. ; 

9)  Time  units  per  day; 

10)  If  the  ephemeris  is  to  be  computed  at  every  time  inter- 
val, a message  to  this  effect  will  be  printed.  Other- 
wise, the  orbital  elements  of  the  planets  that  will  be 
used  throughout  the  trajectory  will  be  printed; 

11)  A message  is  printed  that  notifies  the  user  if  output 
is  to  be  suppressed  at  Initial  and  final  steps  in  the 
virtual  mass  trajectory; 

12)  If  the  virtual  mass  program  will  integrate  only  until 
reaching  the  sphere  of  influence  of  the  target  planet, 
a message  will  be  printed  to  that  effect*  However,  if 
the  trajectory  will  continue  until  reaching  a normal 
stopping  condition  the  user  will  be  notified; 
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13)  Accuracy  figure; 

14)  Print  intervals  - 

Days , 

Increments. 

Output  may  be  obtained  throughout  the  trajectory  at  specified 
times  directly  from  the  Virtual  Mass  Program.  Three  variables 
determine  when  this  printout  will  be  received:  IPRINT,  DELTP, 

and  INPR. 

If  IPRIOT  = 0,  the  Virtual  Mass  Program  will  give  printed  out- 
put at  both  the  initial  trajectory  time  and  the  final  trajectory 
time.  Otherwise,  no  initial  and  final  printout  will  be  obtained. 

In  the  trajectory  mode,  IPRINT  is  assumed  zero  unless  otherwise 
stated  (see  Chapter  II,  Input  Options). 

The  variable  DELTP  specifies  the  number  of  days  after  which 
printed  output  will  be  received.  DELTP  is  assumed  3 if  not  stated 
otherwise  in  the  trajectory  mode.  In  this  situation,  printout  will 
be  given  after  every  three-day  interval  (see  Input  Options,  Chapter 
II). 


Printed  output  will  be  given  after  every  INPR  inerement.  For 
the  trajectory  mode  INPR  = 100  unless  it  is  read  in  the  NAMELIST 
as  a different  value  (see  Chapter  II,  Input  Options). 

If  the  printout  is  to  occur  after  a given  time  increment  as 
specified  by  one  of  the  above  three  options,  the  following  infor- 
mation is  printed. 

Block  1: 

1)  Trajectory  time; 

2)  Total  time  increments  used  to  date; 

3)  Spacecraft  inertial  trajectory 

Block  2: 

1)  Calendar  date; 

2)  Julian  date; 

3)  Ephemeris  data. 


Block  3 : 


Spacecraft  trajectories  relative  to  planets. 
Block  4: 


1) 

Position; 

2) 

Velocity; 

3) 

Spacecraft  position  relative 

to  virtual  mass; 

4) 

Spacecraft  velocity  relative 

to  virtual  mass; 

5) 

Kepler  vector; 

6) 

Eccentricity  vector; 

7) 

Virtual  mass  magnitude; 

8) 

Virtual  mass  magnitude  rate. 

Block  5: 

Virtual  mass  positions  relative  to  planets. 

Finally,  a summary  of  the  trajectory  mode  is  printed  contain- 
ing the  following  data: 

1)  Accuracy; 

2)  True  anomaly  increment; 

3)  Initial  trajectory  time  together  with  its  calendar 
date  and  Julian  date; 

4)  Heliocentric  ecliptic  initial  and  final  coordinates 
of  the  vehicle; 

5)  Position  and  velocity  of  the  vehicle  relative  to  the 
Earth  at  final  time; 

6)  Position  and  velocity  of  the  vehicle  relative  to  the 
target  planet  ^t  final  time; 

7)  At  closest  approach  the  position  and  velocity  of  the 
vehicle  relative  to  target  planet; 

8)  If  the  vehicle  encountered  the  sphere  of  influence  of 
the  target  planet,  the  position  and  velocity  of  the 
vehicle  relative  to  the  target  planet  together  with 

B,  B*T,  and  B*R  are  printed.  Otherwise,  a message 
is  printed  stating  the  vehicle  did  not  reach  the  sphere 
of  influence  of  the  target  planet; 

9)  Total  time  increments  used; 

10)  Total  computer  time  used  in  the  Virtual  Mass  Program. 
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B.  Targeting  Mode 


The  first  page  of  output  from  the  targeting  mode  includes  pre- 
liminary data  used  in  the  program  and  is  generally  self-explana- 
tory. The  first  section  includes  the  input  data  as  read  into  the 
computer.  These  data  are  described  in  Chapter  II. 

If  the  zero-iterate  injection  conditions  are  to  be  computed 
internally  by  the  program,  pertinent  information  related  to  the 
point-to-point  conditions  (on  which  the  zero-iterate  is  based)  is 
then  summarized.  These  data  are  identical  to  portions  of  the 
output  generated  by  the  SPARC  (ref  1)  program  and  published  in 
the  numerous  Earth-Planet  Trajectories  volumes.  Those  sections 
of  the  SPARC  data  not  of  immediate  interest  to  the  targeting  pro- 
gram are  omitted.  The  format  for  the  printout  of  the  point-to- 
point  data  is  the  same  as  that  used  by  SPARC  to  allow  easy  cofm- 
parison.  The  abbreviations  used  in  listing  this  information  is 
standard  and  will  not  be  discussed  here.  For  a detailed  discussion 
of  these  data,  see  reference  1. 

A summary  of  the  injection  conditions  is  then  provided.  The 
most  important  information  here  is  the  actual  injection  time  along 
with  the  injection  position  and  velocity  (given  in  heliocentric 
ecliptic  coordinates)  when  these  are  computed  internally  in  the 
program.  The  injection  position  recorded  here  is  never  varied  in 
the  program  so  this  is  the  actual  initial  position  of  the  final 
(targeted)  trajectory.  The  injection  velocity  is  of  course  altered 
during  the  course  of  the  targeting. 

The  target  conditions  are  then  summarized.  If  target  options 
3 or  4 are  specified,  the  final  time  listed  here  is  based  on  a 
hyperbolic  trajectory  from  the  sphere  of  influence  to  closest  ap- 
proach. The  point-to-point  injection  conditions  are  computed  using 
this  corrected  arrival  date.  If  the  target  option  is  5 or  6 , the 
auxiliary  sphere  of  influence  conditions  based  on  the  point-to- 
point  approach  asymptote  and  the  closest  approach  target  conditions 
are  recorded. 

Finally,  the  target  schedule  is  listed.  This  involves  simply 
recording  the  progressive  accuracy  levels  to  be  used  in  the  tar- 
geting. 

The  next  page  of  output  deals  with  the  progressive  refinement 
of  the  injection  velocity  to  obtain  the  targeted  value.  Here  the 
output  consists  of  two  main  types  of  data:  data  pertaining  to 

each  successive  nominal  and  data  related  to  the  construction  of 
each  state  transition  matrix. 
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Upon  integration  of  each  nominal  trajectory,  a row  of  dat^  is 
recorded.  The  first  half  of  this  row  supplies  the  following  in- 
formation: 


LEVEL  ITER  STEP  ACCY  XDOT  YDOT  ZDOT  B*T  BvR  TSI 


The  LEVEL  number  corresponds  to  the  current  integration  accuracy 
level.  ITER  lists  the  number  of  iterations  made  at  the  current 
level.  STEP  is  always  zero  for  the  nominal  trajectory.  ACCY  is 
the  current  integration  accuracy.  XDOT,  YDOT,  and  ZDOT  are  the 
velocity  components  of  the  current  iterate  given  in  heliocentric 
ecliptic  coordinates.  The  next  data  lists  the  values  of  the  tar- 
get variables  realized  on  this  iterate.  In  all  target  options 
these  parameters  initially  consist  of  B*T,  B*R,  and  Here 

tg^  is  given  as  a Julian  date  referenced  to  1900.  In  the  final 


targeting  of  option  6,  the  target  parameters  become 
and  t^^. 


CA, 


The  latter  half  of  the  nominal  trajectory  data  consists  of 
the  following : 


TARG  B-T  TARG  B-R  TARG  TSI  INTEG  TIME  TOTAL  TIME  INTEG  INCRS 


The  first  three  items  are  the  desired  target  values.  Again  these 


are  generally  B*T,  B*R,  and  t 


SI* 


In  target  options  5 or  6 


these  target  values,  being  a function  of  the  actual  approach  asymp- 
tote, vary  slightly  with  each  iterate.  In  the  final  targeting  of 


option  6 problems,  the  target  parameters  become  i 


CA’ 


"CA’  CA* 


INTEG  TIME  is  the  computer  time  in  seconds  used  in  integrating  that 
iterate.  TOTAL  TIME  is  the  cumulative  computer  time  in  seconds 
used  up  to  the  printing  of  this  row.  INTEG  INCRS  refers  to  the 
total  number  of  increments  used  in  the  integration  of  the  current 
nominal. 


In  the  construction  of  the  state  transition  matrix  three  (or 
two  in  the  case  of  target  option  3)  integrations  are  required. 

The  data  contained  in  the  first  half  of  the  nominal  trajectory 
row  are  recorded  for  each  of  these  integrations.  However,  in- 
stead of  the  latter  half  of  that  row,  the  actual  state  transition 
matrix  based  on  the  perturbed  trajectories  is  recorded. 
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Whenever  outer  targeting  is  required,  a statement  is  printed 
giving  the  radius  and  date  of  closest  approach  to  the  target  planet 
along  with  the  computed  radius  of  the  artificial  sphere  of  influ- 
ence. When  a bad-step  correction  is  used,  a message  to  that  ef- 
fect is  written. 

The  targeting  procedure  ends  when  an  acceptable  injection  ve- 
locity is  determined  or  when  the  maximum  number  of  iterations  has 
been  made.  At  this  point  a targeting  summary  is  given.  The  in^- 
jection  position  and  velocity  are  output  both  in  heliocentric 
ecliptic  and  geocentric  ecliptic  coordinates.  The  injection  time 
is  given  to  thousandths  of  seconds.  The  actual  trajectory  target 
values  corresponding  to  these  injection  conditions  are  then  listed 
along  with  the  desired  target  conditions. 

The  final  output  from  the  targeting  program  results  from  oper- 
ating the  trajectory  mode  in  its  normal  state.  The  appropriate 
flags  described  in  Chapter  III.  A are  set  so  that  information  from 
this  integration  is  printed  at  the  initial  time,  at  intermediate 
points  determined  by  INCPR  and  TIMPR  (see  Chapter  II* B,  Input  Op- 
tion Targeting  Mode),  at  the  sphere  of  influence,  and  at  the  first 
time  determined  as  the  point  of  closest  approach  to  the  target 
planet. 


C.  Error  Analysis  Mode 

As  in  the  trajectory  mode,  the  input  data  are  printed  initially 
All  those  items  listed  at  the  beginning  of  the  trajectory  mode  are 
printed  for  the  error  analysis  mode.  See  Input  Options,  Chapter 
II,  for  differences  in  assumed  values  in  this  mode  of  operation. 

In 

addition,  the  following  items  are  listed: 

1) 

Measurement  schedule ; 

2) 

Event  schedule; 

3) 

Initial  covariance  matrix; 

4) 

State  transition  matrix  code.  If  the  state  transition 
matrix  is  to  be  generated  using  numerical  differencing, 
the  position  and  velocity  factors  are  printed; 

5) 

Dynamic  noise  constants ; 

6) 

Measurement  noise  constants; 

7) 

Station  location  constants. 
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The  same  options  (IPRIOT,  DELTP,  and  INPR)  are  available  for 
printout  from  the  Virtual  Mass  Program  as  described  for  the  tra- 
jectory mode.  If  IPRINT  is  not  otherwise  stated  it  is  assumed 
equal  to  one  in  the  error  analysis  mode.  Thus  if  DELTP  (assumed 
l.E+50  days)  and  INPR  (assumed  7777777)  are  large  enough,  no 
printout  from  the  Virtual  Mass  Program  itself  will  be  obtained. 
However,  if  printout  is  needed,  it  will  occur  as  the  three  vari- 
ables mentioned  above  specify  and  the  same  information  will  be 
printed  as  stated  for  the  trajectory  mode. 

When  a measurement  is  processed,  the  following  information 
will  be  printed : 

1)  Initial  trajectory  time  in  days  together  with  calendar 
date  and  Julian  date; 

2)  Final  trajectory  time  in  days  together  with  calendar 
date  and  Julian  date; 

3)  State  vector  at  initial  and  final  time; 

4)  Position  and  velocity  of  vehicle  relative  to  Earth  and 
target  planet  at  both  initial  and  final  time; 

5)  Number  of  measurement; 

6)  Type  of  measurement; 

7)  State  transition  matrix; 

8)  Diagonal  of  dynamic  noise  matrix; 

9)  Observation  matrix; 

10)  Measurement  noise  matrix; 

11)  Gain  Matrix  - K; 

12)  Covariance  matrix  just  before  the  measurement; 

13)  Covariance  matrix  after  the  considering  the  measure- 
ment . 

During  an  eigenvector  event  the  following  data  are  printed: 

1)  State  vector  at  the  time  of  the  eigenvector  event; 

2)  State  transition  matrix; 

3)  Diagonal  of  dynamic  noise  matrix; 

4)  Covariance  matrix  at  time  of  eigenvector  event; 
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5)  Position  and  velocity  eigenvalues  and  eigenvectors 
as  specified  by  lEIG  (see  Chapter  II); 

6)  Hyperellipsoids  for  both  position  and  velocity  portions 
of  the  covariance  matrix  for  sigma  levels  as  specified 
by  IHYPl  (see  Chapter  II); 

7)  Correlation  coefficient  matrix  at  time  of  eigenvector 
event • 

For  a prediction  event,  the  printed  output  will  include  the 
following  items: 

1)  State  vector  at  time  of  prediction  event; 

2)  State  transition  matrix  relating  the  deviations  at  the 
time  of  the  prediction  event  to  those  at  the  time  of 
the  last  measurement  or  event; 

3)  Diagonal  of  dynamic  noise  matrix; 

4)  Covariance  matrix  at  time  of  prediction  event; 

5)  State  transition  matrix  relating  deviations  at  the 
prediction  time  to  those  at  the  time  of  the  prediction 
event ; 

6)  Diagonal  of  dynamic  noise  matrix; 

7)  Covariance  matrix  at  prediction  time; 

8)  Position  and  velocity  eigenvalues  and  eigenvectors  as 
specified  by  lEIG; 

9)  Hyperellipsoids  for  both  the  position  and  velocity 
portions  of  the  covariance  matrix  at  prediction  time 
for  sigma  levels  according  to  IHYPl; 

10)  Correlation  coefficient  matrix  at  prediction  time; 

11)  If  the  prediction  time  is  within  one  day  of  when  the 
vehicle  reaches  the  sphere  of  influence  of  the  target 
planet,  the  covariance  matrix  of  uncertainties  in  B*T 
and  B*R  is  printed  together  with  its  eigenvectors 
and  eigenvalues  and  the  associated  hyperellipsoids. 

For  a guidance  event  the  following  data  are  printed: 

1)  State  vector  at  time  of  guidance  event; 

2)  State  transition  matrix  relating  deviations  at  the  time 
of  the  guidance  event  to  those  at  the  time  of  the  last 
measurement  or  event; 
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3)  Diagonal  of  dynamic  noise  matrix; 

4)  Covariance  matrix  at  time  of  guidance  event; 

5)  Position  and  velocity  eigenvalues  and  eigenvectors 
and  related  hyperellipsoids  according  to  lEIG  and 
IHYPl; 

6)  State  transition  matrix  relating  deviations  at  the  time 
of  the  guidance  event  to  those  at  the  time  of  the  last 
guidance  event ; 

7)  Diagonal  of  dynamic  noise  matrix; 

8)  Covariance  matrix  relating  the  time  of  this  guidance 
event  to  that  at  the  time  of  the  last  guidance  event; 

9)  Position  and  velocity  eigenvalues  and  eigenvectors  and 
associated  hyperellipsoids. 

At  this  point  a decision  is  made  as  to  which  guidance  policy 
is  being  used.  If  the  fixed  t ime-of -arrival  policy  is  used  the 
following  data  are  printed: 

1)  Time  at  which  vehicle  encounters  closest  approach  of 
target  planet; 

2)  Position  and  velocity  of  vehicle  at  closest  approach; 

3)  State  transition  matrix  relating  deviations  at  the  time 
of  closest  approach  to  those  at  the  time  of  the  guid- 
ance event; 

4)  Variation  matrix ; 

5)  Uncertainty  in  target  conditions  before  correction 
together  with  its  eigenvalues  and  eigenvectors  and 
associated  hyperellipsoids ; 

6 ) Guid anc e mat r ix . 

From  this  point  printout  is  again  independent  of  the  guidance 
policy. 

If  the  two-variable  B-plane  policy  is  used  the  following  data 
are  printed: 

1)  Time  at  which  vehicle  reaches  sphere  of  influence; 

2)  Position  and  velocity  of  vehicle  at  sphere  of  influ- 
ence together  with  B,  B*T,  and  B*R; 
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3)  State  transition  matrix  relating  deviations  at  sphere 
of  influence  to  those  at  the  time  of  the  guidance 
event ; 

4)  Partial  of  B*T  and  B*R  with  respect  to  the  state 
vector; 

5)  Guidance  submatrices  A and  B; 

6)  Uncertainty  in  target  conditions  before  correction  with 
its  eigenvalues  and  eigenvectors  and  associated  hyper- 
ellipsoids; 

7 ) Guidance  matrix. 

From  this  time  printout  for  the  three  policies  is  identical. 

If  the  three-variable  B-plane  policy  is  used  the  following 
data  are  printed: 

1)  Time  at  which  vehicle  enters  sphere  of  influence  of 
target  planet; 

2)  Position  and  velocity  of  vehicle  at  sphere  of  influence 
in  addition  to  B,  B*T,  and  BvR; 

3)  Variation  matrix; 

4)  Uncertainty  in  target  conditions  before  correction 
together  with  eigenvalues  and  eigenveetors  and  hyper- 
ellipsoids  ; 

5 ) Guidance  mat r ix . 

The  rest  of  the  printout  is  independent  of  the  type  of  guidance 
policy  being  used,  and  is  as  follows: 

1)  Covariance  matrix  associated  with  velocity  components; 

2)  Expected  value  of  AV; 

3)  Standard  deviation  of  expected  value  of  AV; 

4)  If  the  execution  error  code  is  1 (see  Input  Options), 
the  eigenvalues  and  eigenvectors  of  the  above  covari- 
ance matrix  and  the  expected  value  of  the  velocity 
correction  are  printed; 

5)  Execution  error  matrix  in  addition  to  Its  eigenvalues 
and  eigenvectors  and  hyperellipsoids; 


6)  Modified  covariance  matrix  at  the  time  of  the  guidance 
event ; 

7)  Uncertainty  in  target  conditions  after  correction  to- 
gether with  its  eigenvalues  and  eigenvectors  and  hy- 
perellipsoids . 

In  addition  to  the  output  categorized  above,  if  the  vehicle 
encounters  sphere  of  influence  or  closest  approach  during  the 
course  of  the  nominal  trajectory,  the  pertinent  information  re- 
lated to  the  encounter  is  printed* 

A summary  of  the  error  analysis  mode  is  printed  containing  the 
following  items: 

1)  Accuracy  figure; 

2)  True  anomaly  increment; 

3)  Length  units  per  A.  U. ; 

4)  Time  units  per  day; 

5)  A message  is  printed  stating  in  what  manner  the  orbital 
elements  of  the  planets  are  calculated; 

6)  Initial  trajectory  time  together  with  its  calendar  date 
and  Julian  date; 

7)  Final  trajectory  time  and  its  calendar  date  and  Julian 
dat  e ; 

8)  Heliocentric  ecliptic  coordinates  of  the  vehicle  at 
both  initial  and  final  times; 

9)  Position  and  velocity  of  the  vehicle  relative  to  the 
Earth  and  the  target  planet  at  final  time; 

10)  The  time  at  closest  approach  in  addition  to  the  posi- 
tion and  velocity  of  the  vehicle  relative  to  the  tar- 
get planet  at  closest  approach; 

11)  If  the  vehicle  did  not  reach  the  sphere  of  influence  of 
the  target  planet  a message  to  that  effect  is  printed# 
Otherwise,  the  time  at  which  it  entered  the  sphere  of 
influence  is  printed  together  with  the  position  and 
velocity  of  the  vehicle  relative  to  the  target  planet 
and  B,  B*T,  and  B«R; 

12)  Total  time  increments; 
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13)  The  raethod  by  which  the  state  transition  matrix  is  com- 
puted together  with  any  limitations; 

14)  Number  of  measurements  taken; 

15)  Number  of  events  having  occurred  plus  the  number  of 
each  type  of  event; 

16)  For  guidance  events,  the  variances  used  for  resolution 
error,  proportionality  error,  error  in  pointing  angle 
1,  and  pointing  angle  2; 

17)  Dynamic  noise  constants; 

18) ‘  Measurement  noise  constants; 

19)  Direction  cosines  for  three  star  planet  angles; 

20)  State  vector  at  initial  and  final  times; 

21)  Initial  covariance  matrix; 

22)  Final  covariance  matrix. 


D.  Simulat ion  Mode 

The  input  data  are  printed  initially.  The  same  input  items  are 
printed  as  stated  for  the  error  analysis  mode.  In  addition,  the 
following  items  are  printed: 

1)  Actual  deviation  of  state  vector  at  initial  time; 

2)  Bodies  to  be  considered  in  actual  trajectory; 

3)  Accuracy  figure  for  actual  trajectory; 

4)  Actual  measurement  biases; 

5)  Dynamic  constant  biases  to  be  used  in  actual  trajectory 

6)  Actual  unmodeiled  acceleration  to  be  used  to  calculate 
the  actual  dynamic  noise; 

7)  Biases  in  station  location  constants ; 

8)  Actual  measurement  noise  constants.  If  these  are  to 
be  the  same  as  the  estimated  measurement  noise  con- 
stants, a message  to  this  effect  is  printed. 

The  same  comments  concerning  the  printout  of  the  Virtual  Mass 
Program  are  applicable  to  the  simulation  mode  as  in  the  error  an- 
alysis mode. 


The  following  measurement  cycle  information  will  be  printed 
when  a measurement  is  processed: 

1)  Initial  trajectory  time; 

2)  Final  trajectory  time; 

3)  State  vector  at  initial  time  of  original  nominal,  most 
recent  nominal,  and  actual  trajectory; 

4)  State  vector  at  final  time  of  original  nominal,  most 
recent  nominal , and  actual  trajectory; 

5)  Position  and  velocity  of  vehicle  relative  to  Earth  and 
target  planet  at  initial  and  final  time  on  original 
nominal,  most  recent  nominal,  and  actual  trajectory; 

6)  Number  of  measurement; 

7)  Type  of  measurement; 

8)  State  transition  matrix; 

9)  Diagonal  of  dynamic  noise  matrix; 

10)  Observation  matrix; 

11)  Measurement  noise  matrix; 

12)  Gain  Matrix  - K; 

13)  Covariance  matrix  before  the  measurement; 

14)  Covariance  matrix  after  the  measurement; 

15)  Actual  dynamic  noise; 

16)  Matrix  of  variance  of  actual  measurement  noise; 

17)  Actual  measurement  noise; 

18)  Estimated  and  actual  measurement; 

19)  Residual ; 

20)  Residual  uncertainties ; 

21)  Estimated  and  actual  deviation  of  the  state  vector 
from  the  most  recent  nominal; 

22)  Estimated  and  actual  deviation  of  the  state  vector 
from  the  original  nominal; 

23)  Actual  orbit  determination  inaccuracy. 
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When  an  eigenvector  event  occurs,  the  following  printout  is 
obtained: 

1)  State  vector  at  time  of  eigenvector  event  of  original 
nominal,  most  recent  nominal,  and  actual  trajectory; 

2)  State  transition  matrix; 

3)  Diagonal  of  dynamic  noise  matrix; 

4)  Covariance  matrix  at  time  of  eigenvector  event; 

5)  Position  and  velocity  eigenvalues  and  eigenvectors 
according  to  the  specifications  of  lEIG,  together  with 
the  related  hyperellipsoids  as  IHYPl  specifies  (see 
Input  Options) ; 

6)  Correlation  coefficient  matrix  at  time  of  eigenvector 
event ; 

7)  Actual  dynamic  noise; 

8)  Estimated  and  actual  deviation  of  the  state  vector  from 
the  most  recent  nominal. 

When  a prediction  event  occurs,  the  printed  output  will  include 
the  following : 

1)  State  vector  at  time  of  prediction  event  on  original 
nominal,  most  recent  nominal,  and  actual  trajectory; 

2)  State  transition  matrix  relating  deviations  at  the 
time  of  the  prediction  event  to  those  at  the  time  of 
the  last  measurement  or  event; 

3)  Diagonal  of  dynamic  noise  matrix; 

4)  Covariance  matrix  at  time  of  prediction  event  together 
with  position  and  velocity  eigenvalues  and  related 
hyperellipsoids ; - 

5)  Correlation  coefficient  matrix; 

6)  Actual  dynamic  noise; 

7)  Estimated  and  actual  deviation  of  the  state  vector 
from  the  most  recent  nominal; 

8)  State  transition  matrix  relating  deviations  at  the 
prediction  time  to  those  at  the  time  of  the  predic- 
tion event; 

9)  Diagonal  of  dynamic  noise  matrix; 
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10)  Covariance  matrix  at  prediction  time  together  with 
eigenvalues  and  eigenvectors  and  related  hyperellip- 
soids; 

11)  Gorrelation  coefficient  matrix; 

12)  If  the  prediction  time  is  within  one  day  of  the  time 

at  which  the  vehicle  reaches  the  sphere  of  influence 
on  the  original  nominal  trajectory,  the  covariance  of 
uncertainties  in  B*T  and  is  printed  together 

with  its  eigenvalues,  eigenvectors,  and  hyperellip- 
soids. 

At  a guidance  event  the  following  items  are  included  in  the 
printout : 

1)  State  vector  at  time  of  guidance  event  on  original 
nominal,  most  recent  nominal,  and  actual  trajectory; 

2)  State  transition  matrix  relating  deviations  at  the 
time  of  the  guidance  event  to  those  at  the  time  of 
the  last  measurement  or  event; 

3)  Diagonal  of  dynamic  noise  matrix; 

4)  Covariance  matrix  at  the  time  of  the  guidance  event 
together  with  its  eigenvalues  and  eigenvectors  and 
related  hyperellipsoids; 

5)  Actual  dynamic  noise; 

6)  Estimated  and  actual  deviation  of  the  state  vector 
from  the  most  recent  nominal; 

7)  State  transition  matrix  relating  deviations  at  the 
time  of  the  guidance  event  to  those  at  the  time  of 
the  last  guidance  event; 

8)  Diagonal  of  dynamic  noise  matrix; 

9)  Covariance  matrix  relating  the  time  of  this  guidance 
event  to  the  time  of  the  last  guidance  event  in  addi- 
tion to  its  eigenvalues,  eigenvectors,  and  hyperellip- 
soids. 

The  next  portion  of  printout  from  the  guidance  event  depends 
on  the  type  of  guidance  policy  used.  If  the  fixed-tirae-of-arrival 
policy  is  used  the  following  data  are  printed: 
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1)  Time  at  whieh  the  vehicle  reached  closest  approach  on 
the  original  norainal  trajectory  together  with  its  po^ 
sition  and  velocity  relative  to  the  target  planet. 
Partial  of  B*T  and  B*R  with  respect  to  the  state 
vector  (M-matrix) ; 

2)  Time  at  which  the  vehicle  reached  closest  approach  on 
the  most  recent  nominal  together  with  its  position 
and  velocity  relative  to  the  target  planet; 

3)  State  transition  matrix  relating  deviations  at  the 
time  at  which  the  vehicle  reached  closest  approach  on 
the  most  recent  nomi.nal  to  those  at  the  time  of  the 
guidance  event; 

4)  Variation  matrix; 

5)  Uncertainty  in  target  conditions  before  correction 
together  with  its  eigenvalues,  eigenvectors,  and 
hyp  ere 1 1 i p so id  s ; 

6)  Guidance  matrix. 

The  rest  of  the  printout  is  identical  with  that  of  the  other 
guidance  policies. 

If  the  two-variable  B-plane  policy  is  used  the  following  data 
are  printed: 

1)  The  time  at  which  the  vehicle  reached  the  sphere  of 
influence  of  the  target  planet  on  the  original  nomi- 
nal plus  its  position  and  velocity  relative  to  the 
target  planet  and  B,  B*T,  and  B*R; 

2)  Partials  of  B*T  and  B*R  with  respect  to  the  state 
vector  (M-matrix) ; 

3)  Time  at  which  the  vehicle  reached  the  sphere  of  in- 
fluence on  the  most  recent  nominal  trajectory  plus 
its  position  and  velocity  relative  to  the  target 
planet  and  B,  B*T,  and  B-R; 

4)  State  transition  matrix  relating  deviations  at  the 
time  when  the  vehicle  entered  sphere  of  influence  to 
those  at  the  time  of  the  guidance  event ; 

5)  Partials  of  B-T  and  B»R  with  respect  to  the  state 
vector  of  the  most  recent  nominal; 

6)  Guidance  submatrices  A and  B; 


7)  Uncertainty  in  target  conditions  before  correction 
together  with  its  eigenvalues,  eigenvectors,  and 
hyperellipsoids ; 

8)  Guidance  mat  rise. 

The  printout  which  follows  this  is  independent  of  the  type  of 
guidance  policy. 

If  the  three-variable  B-plane  policy  is  used  the  following 
data  are  printed: 

1)  Time  at  which  the  vehicle  entered  the  sphere  of  in- 

fluence of  the  target  planet  on  the  original  nominal 
plus  its  position  and  velocity  relative  to  the  target 
planet  and  B,  B-T,  and  B*R; 

2)  Partial  of  B*T  and  B*R  with  respect  to  the  state 

vector  (M-matrix) ; 

3)  Time  at  which  the  vehicle  entered  the  sphere  of  in- 

fluence on  the  most  recent  nominal  trajectory  plus 
its  position  and  velocity  relative  to  the  target 
planet  and  B,  B*T,  and  B*R; 

4)  Variation  matrix; 

5)  Uncertainty  in  target  conditions  before  correction 
together  with  its  eigenvalues,  eigenvectors,  and 
hy  p e r e 1 1 i p s o i d s ; 

6 ) Gu i d anc e matrix. 

The  additional  printout  is  independent  of  the  type  of  guidance 
policy  except  where  noted: 

1)  Covariance  matrix  associated  with  velocity  components 
plus  its  eigenvalues , eigenvectors,  and  hyperellipsoids 
(hyperellipsoids  are  not  printed  in  the  case  of  two 
variable  B-plane  guidance  due  to  the  singularity  of 
the  matrix); 

2)  Estimated  and  actual  deviation  of  the  state  vector 
from  the  original  nominal ; 

3 ) Commanded  c orr ec t ion ; 

4)  Perfect  correction; 

5)  Commanded  AV ; 
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6)  Error  in  correction  due  to  navigation  uncertainty; 

7)  Execution  error  matrix  plus  its  eigenvalues,  eigen- 
' vectors,  and  hyperellipsoids; 

8)  Modified  covariance  matrix  at  time  of  guidance  event 
together  with  its  eigenvalues,  eigenvectors,  and 
hyperellipsoids ; 

9)  Uncertainty  in  target  conditions  after  correction  plus 
its  eigenvalues,  eigenvectors,  and  hyperellipsoids; 

10)  Actual  error  in  correction; 

11)  Actual  correction; 

12)  Actual  error  at  target  after  correction. 

For  a quasi-linear  filtering  event  the  following  output  will 
be  obtained : 

1)  State  vector  at  time  of  quasi-linear  filtering  event 
on  original  nominal,  most  recent  nominal,  and  actual 
trajectory; 

2)  State  transition  matrix; 

3)  Diagonal  of  dynamic  noise  matrix; 

4)  Covariance  matrix  at  time  of  quasi-linear  filtering 
event ; 

5)  Correlation  coefficient  matrix; 

6)  Actual  dynamic  noise; 

7)  Estimated  and  actual  deviations  of ^ state  vector  from 
most  recent  nominal; 

8)  State  vector  of  "new^'  nominal  at  time  of  quasi-linear 
filtering  event; 

9)  New  actual  deviation  of  state  vector  from  most  recent 
nominal  * 

Upon  encountering  the  sphere  of  influence  or  closest  approach 
of  the'  target  planet  on  any  of  the  three  trajectories,  the  perti- 
' nent  information  is  printed. 

A summary  of  the  simulation  mode  includes  the  following  items: 

1)  Accuracies  used  in  both  nominal  and  actual  trajectories 

2)  Bodies  considered  in  both  nominal  and  actual  trajec- 
tories ; 


3)  Gravitational  constant  biases  used  in  actual  trajectory; 

4)  Ephemeris  biases  used  in  actual  trajectory; 

5)  Initial  trajectory  time; 

6)  Final  trajectory  time; 

7)  At  initial  time,  position,  and  velocity  of  vehicle 
relative  to  Sun,  Earth,  and  target  planet; 

8)  At  final  time,  position,  and  velocity  of  vehicle  rela^ 
tive  to  Sun,  Earth,  and  target  planet  on  original  nom- 
inal, most  recent  nominal,  and  actual  trajeetory; 

9)  Time  at  closest  approach  plus  position  and  velocity  of 
vehicle  relative  to  target  planet  on  all  three  trajec- 
tories ; 

10)  The  time  at  which  the  vehicle  enters  the  sphere  of  in- 
fluence of  the  target  planet  in  addition  to  the  posi- 
tion and  velocity  of  the  vehicle  relative  to  the  target 
planet  and  B,  B-T,  and  B*R  on  all  three  trajec- 
tories ; 

11)  Method  by  which  the  state  transition  matrix  is  computed 
in  addition  to  its  limitations; 

12)  Number  of  measurements  taken; 

13)  Number  of  events  plus  the  number  of  each  type  of  event; 

14)  Variances  of  errors  used  in  guidance  events; 

15)  Actual  errors  used  in  guidance  events; 

16)  Station  location  constants; 

17)  Dynamic  noise  constants; 

18)  Actual  unmodeled  acceleration; 

19)  Estimated  measurement  noise  constants; 

20)  Actual  measurement  noise  constants; 

21)  Direction  cosines  for  three  star  planet  angles; 

22)  Initial  state  vector  for  both  nominal  and  actual  tra- 
jectories; 

23)  Final  state  vector  for  all  three  trajectories; 

24)  Deviation  of  state  vector  from  most  recent  nominal  at 
final  time; 
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25)  Deviation  of  state  vector  from  original  nominal  at 
final  time; 

26)  Actual  orbit  determination  inaccuracy  at  final  time 

27)  Initial  covariance  matrix; 

28)  Final  covariance  matrix. 


IV.  MAIN  PROGRAM  STRUCTURE 


The  main  program  is  the  routine  that  mechanizes  the  complete 
program  for  establishing  the  mode  of  operation  and  controls  the 
computational  process  in  an  orderly,  efficient  manner*  To  ac- 
complish this  task  and  for  ease  in  development  and  checkout,  the 
program  has  been  constructed  in  a series  of  major  modules,  each 
of  which  is  itself  divided  into  a number  6f  subroutines.  These 
modules  serve  to  read  the  input  data,  generate  a nominal  trajec- 
tory, determine  the  measurement  schedules,  check  the  various 
tracking  stations,  sequence  the  specific  events  to  be  used,  and 
finally  process  the  data.  In  summary,  each  module  performs  a 
specified  logical  task.  In  its  simplest  form,  the  main  program 
serves  as  a link  between  these  modules. 


The  main  program  logic  for  using  the  trajectory  mode,  target- 
ing mode,  error  analysis  mode,  and  simulation  mode  can  best  be 
exemplified  by  the  simplified  flow  chart  shown  in  figure  1.  A 
complete  detailed  flow  chart  is  presented  in  Chapter  V.  The 
targeting  mode  is  run  as  a separate  program  and  is  shown  as  a 
dotted  line  in  figure  1.  To  run  the  error  analysis  or  simulation 
mode  a set  of  injection  conditions  are  necessary.  Since  these 
initial  conditions  are  established  by  the  targeting  mode  (unless 
specified  from  another  source) , and  are  an  input  to  the  other 
three  modes  of  the  program,  the  targeting  mode  is  supplied  as  a 
separate  program.  This  allows  the  user  to  look  over  the  results 
of  a targeting  run  before  using  the  other  three  modes  of  STEAP. 

To  completely  understand  the  logic  in  each  of  the  operational 
modes,  the  four  sections  of  this  chapter  review  the  computational 
logic  for  each  mode.  In  addition,  each  subroutine  used  in  the 
program  is  discussed  in  Chapter  V, 
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A.  Trajectory  Mode  Logic 


Referring  to  figure  1,  the  program  starts  by  reading  the  first 
data  card  to  determine  the  number  of  runs  to  be  made  and  then 
calls  DATA.  DATA  supplies  all  the  necessary  input  for  each  of  the 
four  operational  modes.  The  first  card  in  DATA  specifies  the  mode 
to  be  exercised.  In  this  section  the  trajectory  mode  sequence  will 
be  discussed.  On  returning  from  DATA  with  a set  of  initial  condi- 
tions, the  NTM  module  is  called.  This  module  determines  the  method 
by  which  the  nominal  trajectory  will  be  calculated.  The  NTM  module 
in  turn  calls  the  virtual  mass  subroutine  VMP  to  generate  the 
trajectory.  Returning  to  the  main  program,  a check  is  made  to  de- 
termine if  the  final  trajectory  time  (specified  by  DATA)  has  been 
reached.  If  it  has  not,  the  NTM  module  is  called  again  for  the 
next  increment  or  time  interval.  This  process  is  repeated  until 
the  final  trajectory  time  is  reached,  at  which  time  the  PRINTl 
routine  is  called.  PRINTl  is  responsible  for  printing  out  all 
the  virtual  mass  trajectory  data.  The  program  then  recycles  for 
the  next  run  if  specified  by  input,  otherwise  the  program  is 
terminated . 


B.  Targeting  Mode  Logic 

Before  discussing  the  actual  program  logic  the  general  pur- 
pose and  scope  of  the  targeting  mode  will  be  reviewed.  The  pur- 
pose of  the  targeting  mode  is  to  generate  a set  of  injection  con- 
ditions which,  when  integrated  forward  in  a trajectory  model 
(integration  accuracy  level,  gravitational  bodies  considered, 
etc)  specified  by  the  user,  yield  a trajectory  satisfying  pre- 
scribed mission  requirements.  The  general  mission  conditions 
include  a launch  date,  target  date,  launch  planet,  and  target 
planet.  More  specific  constraints  are  imposed  as  target  condi- 
tions near  the  destination  planet. 

Six  options  are  allowed  in  the  specification  of  these  target 
conditions.  The  first  two  options  are  really  auxiliary  to  the 
remainder.  In  these  options  a heliocentric  arc  determined  by 
the  general  mission  conditions  is  patched  to  an  earth-centered 
hyperbola  consistent  with  a typical  launch  profile  originating 
from  Cape  Kennedy  on  the  initial  date.  The  injection  conditions 
are  then  computed  from  this  crude  trajectory.  In  the  first  option 
the  conditions,  termed  the  point-to-point  conditions,  are  cor- 
rupted by  a bias  that  improves  their  validity  in  forming  an 
initial  iterate  in  targeting  n-body  trajectories.  In  the  second 
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option  (the  patched  conic  conditions)  the  bias  is  not  included 
so  that  the  generated  set  of  injection  conditions  is  a good 
initial  iterate  in  obtaining  targeted  patched  conic  trajectories. 

In  the  remaining  options  the  injection  conditions  are  gener^ 
ated  that  yield  n-body  trajectories  consistent  with  more  specific 
target  constraints.  In  the  third  option  these  target  conditions 
include  the  impact  plane  parameters  and  B*R.  The  time  at 

intersection  of  the  sphere  of  influence  tg^.  is  only  approximated 

in  this  option.  In  the  fourth  option  the  impact  plane  parameters 
B*T  and  B-R  along  with  the  time  tg^  .are  used  as  target  con- 
straints. The  fifth  and  sixth  targeting  options  are  both  based 
on  the  radius  at  closest  approach  inclination  (with 

respect  to  the  target  planet  equatorial  plane)  at  closest  approach 
i , and  the  time  at  closest  approach  t a.  These  closest  ap- 

proach  conditions  may  be  converted  to  sphere  of  influence  condi- 
tions B.T,  B-R,  and  tg^..  In  the  fifth  option  injection  con- 
ditions are  generated  consistent  with  these  approximating  sphere 
of  influence  conditions.  In  the  last  option,  the  option  5 in- 
jection conditions  are  first  computed  and  these  values  are  then 
refined  to  satisfy  the  exact  closest  approach  conditions  to  the 
desired  tolerances.  These  target  options  are  summarized  in 
table  1. 


TABLE  1 . - SUMMARY  OF  TARGET  OPTIONS 


Option 

Title 

Required  input 

1 

Point-to-point 

^i  j ^i  ^ ^T 

2 

Patched  conic 

t^,  t^,  m^,  m^ 

3 

'Rjo -variable  SOI 

ti,  t^,  m^,  ACC, 

B-T,  B*R,  Tgj.,  AB‘T,  AB*R, 

4 

Three -variable  SOI 

t^i?  ^1’  ^2  * • • • ^ * ACC , 

B-T,  B.R,  tg^,  AB*T,  AB-R,  Atgj. 

5 

Approximate  CA  I 

t^i?  ^1^  ^2*  * * **  ^n*  > 

ii 

^CA’  ’^CA’  ^CA’ 

6 

Strict  CA 

t.,  t , m^ , m , . . .,  m , ACC, 
1 T 1 z n 

^CA’  ^CA’  ^CA’  '^^CA’  "^^CA’  ^^CA 
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Two  options  are  provided  in  determining  injection  conditions. 
The  injection  conditions  may  either  be  read  in  as  input  data  or 
computed  internally  in  the  point-to-point  option.  The  first 
option  provides  the  capability  for  handling  problems  such  as  mid- 
course correction  analyses  or  multiplanet  swingby  targeting  as 
well  as  permitting  the  efficient  completion  of  partially  targeted 
problems,. 

A final  option  is  allowed  in  the  specification  of  the  integra- 
tion accuracy  level  scheduling.  For  efficiency  the  preliminary 
(targeting)  and  state  transition  matrix  computations  are  done  at 
the  first  accuracy  level.  The  final  state  transition  matrix  com- 
puted at  the  first  level  is  then  used  repeatedly  at  the  higher 
accuarcy  levels  to  obtain  improved  velocity  iterates.  Lowering 
the  first  accuracy  level  results  in  more  efficient  preliminary 
targeting  and  state  transition  matrix  computation.  However  the 
greater  the  difference  between  the  first  and  last  accuracy  levels, 
the  more  likely  it  is  that  the  original  state  transition  matrix 
will  lose  validity  at  the  final  accuracy  level.  Permitting  the 
user  to  choose  the  specific  accuracy  schedule  therefore  allows 
him  to  be  as  efficient  or  secure  as  he  desires  to  be. 

To  understand  the  structure  of  the  targeting  mode,  it  is 
helpful  to  refer  to  the  schematic  diagram  of  the  main  program 
shown  in  figure  2 . A detailed  flow  chart  of  the  targeting  main 
program  is  provided  in  Chapter  V. 


The  program  begins  by  reading  the  data  for  the  specific  prob- 
lem under  investigation.  A discussion  of  the  input  data  may  be 
found  in  Chapter  II  of  this  volume. 

If  the  zero  iterate  injection  conditions  are  not  read  in  as 
data  (INJEK  = 2),  a set  is  computed  internally  in  the  program 
(INJEK  = 1).  The  complex  subroutine  NJEXN  is  then  responsible 
for  this  task.  NJEXN  computes  these  injection  conditions  by 
patching  a heliocentric  arc  determined  by  the  broad  mission  con- 
straints to  an  Earth-centered  hyperbola  consistent  with  a stand- 
ard launch  profile  from  Cape  Kennedy. 

The  program  then  enters  the  basic  numerical  differencing  cycle 
It  first  targets  to  sphere  of  influence  conditions,  regardless  of 
the  targeting  option.  If  either  of  the  closest  approach  options 
(options  5 or  6)  are  being  used,  auxiliary  sphere  of  influence 
targets  are  computed  at  the  completion  of  each  nominal  trajectory 
integration  by  calling  the  subroutine  CASOI.  All  integrations  in 
the  cycle  use  the  VMP  subroutine  and  its  associated  subroutines 
(VECTOR,  VMASS,  ORB,  EPHEM,  etc). 
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Figure  2.-  Schematic  Diagram  of  Targeting  Program 
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The  targeting  is  done  in  progressive  "levels"  corresponding 

th 

to  inereasing  integration  accuracies*  At  the  n level,  the 
current  iterate  injection  conditions  are  integrated  to  the  sphere 
of  influence.  The  target  parameters  are  then  evaluated.  If 
these  parameters  are  not  within  specified  tolerances  of  their 
target  values  and  if  the  number  of  iterations  has  not  exceeded 
its  maximum  allowable  figure  for  that  level,  a new  iterate  in- 
jection velocity  is  computed.  It  is  computed  by  using  a state 
transition  matrix  that  relates  changes  in  the  target  conditions 
(at  the  sphere  of  influence)  to  changes  in  the  injection  velocity, 
components.  If  the  accuracy  level  is  at  its  lowest  value,  this 
state  transition  matrix  is  computed  numerically  about  each  nominal 
at  higher  accuracy  levels  the  final  state  transition  matrix  cal- 
culated at  the  lowest  accuracy  level  is  used  repeatedly.  Even- 
tually the  target  errors  will  be  acceptable  or  the  maximum  num- 
ber of  iterations  will  be  made.  At  this  point  the  accuracy  will 
be  increased  to  the  next  level  and  the  entire  process  repeated. 


When  the  targeting  has  been  accomplished  at  the  final  ac- 
curacy level,  the  program  checks  the  targeting  option.  If  the 
targeting  option  is  any  of  3,  4,  or  5,  the  program  integrates  the 
targeted  velocity  to  the  closest  approach  of  the  target  parameter 
at  the  final  accuracy  level,  recording  the  trajectory  data  at 
specified  intervals.  It  then  returns  to  the  start  of  the  program 
to  accept  the  next  problem. 

If  the  targeting  option  is  option  6,  more  work  must  be  done. 
The  final  (targeted)  velocity  generated  at  the  first  accuracy 
level  is  recalled.  It  is  integrated  at  the  first  level  to 
closest  approach  of  the  target  planet  and  the  target  parameters 
recorded.  Three  integrations  are  made  using  perturbed  velocity 
components  at  this  first  integration  accuracy  to  construct  a 
state  transition  matrix  now  relating  changes  in  the  closest  ap- 
proach conditions  to  changes  in  the  injection  velocity  components. 
The  program  now  returns  to  the  final  accuracy  level.  It  recalls 
the  injection  velocity  targeted  to  the  auxiliary  sphere  of  in- 
fluence conditions  at  this  level  and  now  integrates  it  to  closest 
approach.  If  the  closest  approach  errors  are  unacceptable,  it 
uses  the  closest  approach  state  transition  matrix  just  computed 
at  the  low  accuracy  to  predict  an  improved  iterate.  The  process 
is  repeated  until  either  acceptable  errors  are  encountered  or 
the  maximum  allowable  iterations  have  been  made.  The  program 
then  makes  a final  integration  to  closest  approach,  recording 
the  trajectory  at  the  desired  intervals,  before  returning  to 
the  next  problem. 


C.  Error  Analysis  Mode  Logic 


Returning  from  the  DATA  subroutine  as  depicted  in  figure  1, 
the  error  analysis  mode  logic  starts  out  by  calling  the  SGHED 
subroutine.  The  basic  flow  of  the  error  analysis  made  is  shown 
in  figure  3.  Following  figure  3,  SGHED  sets  up  the  measurement 
schedule  by  properly  sequencing  the  times  of  observations  as 
specified  at  input.  It  returns  control  to  the  main  program  with 
the  type  of  measurement  (range,  range  rate,  or  onboard  types)  and 
the  time  the  next  measurement  is  to  be  made.  The  time  interval 
DELTM  is  then  computed.  The  program  next  encounters  a logical  IF 
statement  to  determine  if  the  latest  trajectory  time  TR1H2  has 
gone  past  an  event  time.  The  events  that  can  be  encountered  are 
eigenvector,  prediction,  and  guidance.  The  times  of  these  events 
are  specified  by  input.  If  there  is  no  event  scheduled  between 
two  measurements,  the  NTM  module  is  called  with  the  set  of 
initial  conditions.  The  NTM  module  calls  on  the  virtual  mass 
subroutine  VMP  and  returns  with  the  final  trajectory  conditions 
at  the  end  of  the  time  interval  DELTM.  Returning  to  the  main 
program,  the  state  transition  matrix  module  PSIM  is  called  with 
the  time  interval  DELIM,  initial  state  vector,  and  code  for  the 
method  to  compute  the  state  transition  matrix.  The  PSIM  module 
then  calls  one  of  these  subroutines,  depending  on  the  code  ISTMC 
which  designates  the  computational  procedure  used  for  the  state 
transition  matrices.  The  state  transition  matrix  is  computed  by 
NDTM  (numerical  differencing),  or  PCIM  (patched  conic)or  virtual 
mass  . Once  the  matrix  is  computed,  control  is  returned  to  the 
main  program  where  the  next  subroutine  DYN0  is  called.  DYN0 
then  computes  the  dynamic  noise  matrix  and  returns.  The  next 
subroutine  called  is  TRAKM  which  is  responsible  for  generating 
the  observation  matrix.  TRAKM  is  called  with  the  final  trajec- 
tory conditions  at  the  end  of  the  time  interval  and  with  a code 
that  specifies  what  type  of  tracking  will  be  used.  On  returning 
with  the  observation  matrix  the  MEN0  subroutine  is  called.  MEN0 
is  used  to  compute  the  measurement  noise.  When  control  is  re- 
turned to  the  main  program,  the  final  subroutine  that  is  called 
is  NAVM.  The  navigation  module  NAVM  contains  all  the  necessary 
estimation  and  filtering  equations  to  compute  covariance  matrices 
and  gain  matrices.  After  the  necessary  computations  are  made, 
NAVM  returns  control  to  the  main  program.  PRINTS  is  then  called 
to  write  out  all  the  necessary  data.  The  entire  process  is  then 
continually  repeated  until  the  final  trajectory  time  is  reached, 
at  which  time  the  problem  is  terminated. 


Figure  3.-  Error  Analysis  Mode  Logic 


To  complete  the  discussion  of  the  error  analysis  logic , the 
logical  process  followed  when  an  event  time  is  encountered  should 
be  presented.  The  event  decision  is  made  at  the  logical  IF  state- 
ment at  the  beginning  of  the  program.  If  an  event  time  is  en- 
countered, one  of  three  subroutines  is  called  depending  on  the 
code  for  the  type  of  event,  PRED  for  a prediction  event,  GUID  for 
a guidance  event,  and  EIGEN  for  an  eigenvector  event.  The  EIGEN 
routine  computes  the  necessary  eigenvectors  and  eigenvalues. 

PRED  determines  the  covariance  matrix  at  some  future  critical 
time  under  the  assumption  that  no  further  measurements  are  made. 
The  guidance  subroutine  GUID  determines  by  code  what  guidance 
law  will  be  used  (three  are  possible)  and  computes  the  required 
guidance  matrix.  Control  is  returned  to  the  main  program  after 
any  event  computations  at  which  time  the  time  increment  DELTM  is 
updated  and  the  process  repeated  just  at  when  no  events  have 
occurred . 

When  the  final  trajectory  time  is  reached  PSIM,  DYN0,  and 
NAVM  are  called  to  update  the  state  transition  matrix,  and 
covariance  matrix,  PRNTS3  is  then  called  to  print  out  the 
final  data.  If  there  are  no  additional  problems  to  be  run,  the 
program  is  terminated. 


D.  Simulation  Mode  Logic 


The  logic  for  the  simulation  mode  starts  after  the  DATA  sub- 
routine is  called.  A simplified  schematic  of  the  basic  cycle  of 
the  simulation  mode  is  presented  in  figure- 4.  The  first  sub- 
routine called  is  SCHED.  This  routine  is  also  used  in  the  error 
analysis  mode.  After  returning  from  SCHED  the  next  time  interval 
DELTM  is  computed  and  the  NTM  module  is  called  with  the  initial 
trajectory  conditions  of  the  original  nominal  trajectory.  The 
NTM  module  calls  the  virtual  mass  trajectory  subroutine  VMP  and 
computes  the  trajectory  conditions  of  the  original  nominal  at  the 
end  of  the  time  interval.  The  NIM  module  used  at  this  point  in 
the  program,  which  is  discussed  in  more  detail  in  the  analytic 
manual,  uses  assumed  dynamics  to  generate  the  original  nominal 
trajectory.  The  next  step  in  the  process  is  an  IF  statement 
that  determines  if  a quasilinear  filtering  event  has  taken  place. 
For  now,  assume  that  no  quasi-linear  filtering  event  has  been 
made.  The  PSIM  module  is  called  with  the  time  interval  DELTM 
and  code  for  the  computation  of  the  state  transition  matrix.  Re- 
turning to  the  main  program  with  the  state  transition  matrix, 

DYN0  is  called  to  compute  the  dynamic  noise.  The  next  sequence 
of  calls  in  the  main  program  are  to  the  TRAKM,  MEN0,  and  NAVM 
modules.  These  three  modules  return  the  observation  matrix, 
measurement  noise,  and  covariance  matrix  as  well  as  the  gain 
matrix , 
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The  next  module  called  by  the  main  program  is  NTM.  When  NTH 
is  used  at  this  computational  time  the  actual  dynamics  are  used 
to  define  the  "actual”  trajectory.  The  NTH  module  computes  and 
returns  the  "actual"  state  vector.  The  DYN0  module  is  called 
next,  which  returns  the  actual  urmodeled  accelerations.  The 
actual  deviation  from  the  most  recent  nominal  trajectory  is  then 
computed  in  the  main  program.  The  TRAKM  module  is  called  to  cal- 
culate and  return  the  most  recent  nominal  observation.  This  same 
module  is  called  again,  with  the  "actual"  state  vector,  to  compute 
and  return  what  would  have  been  actually .measured  if  there  were 
no  measurement  errors.  The  main  program  calls  the  measurement 
noise  subroutine  MEN0  and  computes  the  white  noise  matrix  corrupt- 
ing the  actual  measurement.  After  returning  with  the  white  noise 
matrix,  the  random  number  generator  RNUM  is  called  to  compute 
the  white  noise  components.  The  next  eomputation  in  the  main 
program  calls  the  subroutine  BIAS,  which  computes  the  measurement 
biases.  On  returning  to  the  main  progran,  the  actual  measure- 
ment, expected  measurement,  and  the  actual  measurement  residuals 
are  computed.  Other  calculations  are  performed  to  obtain  the 
actual  orbit  determination  inaccuracy,  actual  deviation  from  the 
nominal  trajectory,  and  the estimated  deviation  from  the  original 
nominal  trajectory.  Upon  completion  of  the  foregoing  computa- 
tions, the  PRINT4  subroutine  is  called  to  write  out  all  the  de- 
sired data.  After  a subsequent  return  to  the  main  program  the 
process  is  repeated  by  updating  DELTM.  Recycling  is  continued 
until  the  final  trajectory  time  FNIH  is  reached,  at  which  time 
the  run  is  terminated. 

If  the  latest  trajectory  time  TRTM2  has  gone  past  a scheduled 
event  time,  the  normal  mode  of  operation  is  interrupted.  The 
scheduled  event  time  and  type  of  event  is  determined  at  this  point. 
If  a quasi-linear  filtering  event  is  to  take  place,  the  subroutine 
QUASI  is  called.  The  other  possible  events,  eigenvector,  predic- 
tion, or  guidance  would  call  EIGSIM,  PRESTM,  and  GUISIM,  respec- 
tively, The  computations  in  QUASI  update  the  nominal  trajectory 
by  taking  into  account  the  estimated  deviations  jErom  the  most 
recent  nominal  trajectory.  The  other  events  are  identical  with 
those  in  the  error  analysis  mode.  After  the  necessary  computa- 
tions are  made  in  the  event  subroutines,  control  is  returned  to 
the  main  program  and  the  normal  processing  of  information  is  con- 
tinued until  the  final  trajectory  time  is  reached.  The  run  is 
terminated  at  this  point  unless  additional  runs  are  to  be  made. 

To  complete  the  discussion  of  the  simulation  mode  logic, 
comments  concerning  a quasi-linear  filtering  event  are  necessary. 
This  event  is  determined  at  the  logical  IF  statement  at  the 


beginning  of  the  run.  Recall  that  in  the  simulation  mode  four 
trajectories  are  carried  along  from  measurement  to  measurement; 


X|^  the  original  nominal,  3^  the  most  recent  nominal, 


the  actual  deviation  from  the  most  recent  nominal,  and  5X  the 
estimated  deviation  from  the  most  recent  nominal.  If  a quasi- 
linear  filtering  event  is  to  take  place,  then  the  original 
nominal  trajectory  is  updated  by  using  the  most  recent  estimate 
of  the  nominal  trajectory:*  Hence  the  new  values  of  the  four 
trajectories  after  a quasi -linear  filtering  event  are  given  by. 
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It  should  be  noted  that  if  a quasi-linear  filtering  event  has 
already  taken  place  in  the  basic  cycle,  the  most  recent  nominal 
trajectory  has  to  be  computed  in  the  nominal  trajectory  module. 
Upon  completion  of  the  above  computations  in  subroutine  QUASI, 
control  is  returned  to  the  basic  cycle. 
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V.  MAIN  PROGRAM  AND  SUBROUTINE  DESCRIPTIONS 


This  chapter  describes  in  all  necessary  detail  the  formula- 
tion, rationale,  and  computational  logic  for  the  routines  that 
make  up  the  entire  STEAP.  The  main  program  and  subroutines  are 
documented  in  a complete  and  concise  manner  so  that  modifica- 
tions to  the  existing  routines  can  be  made  without  much  difficulty. 

An  appreciation  for  the  complete  program  logic  may  be  gained 
by  a careful  review  of  each  subroutine  and  its  corresponding  flow 
chart.  If  only  program  utilization  is  of  interest,  the  user  is 
referred  to  the  example  runs  in  chapter  VIII  of  this  volume.  In 
addition.  Volume  II  of  this  document  discusses  several  numerical 
examples . 


A.  MAIN  Program  (STEAP) 

MAIN  (Trajectory,  Error  Analysis ^ and  Simulation  Mode) 

Purpose:  The  MAIN  routine  is  the  master  driver  for  the  entire 

Simulated  Trajectories  Error  Analysis  Program  (STEAP).  MAIN  sets 
up  the  necessary  linkage  to  run  the  three  operational  modes  of 
the  program  --  trajectory,  error  analysis,  and  simulation.  The 
targeting  mode  has  a separate  MAIN  program  detailed  in  Section  B 
following. 

Calling  sequence:  None. 

Input/ output:  None . 


Subprograms  required: 


BIAS 

MENO 

PRINTS 

SCHED 

DATA 

NAVM 

PRINT4 

TRAKM 

DYNO 

OTM 

PRNTS3 

EIGEN 

ERED 

PRNTS4 

EIGSIM 

PRESIM 

PSIM 

GUIDM 

PRINTl 

QUASI 

GUISIM 

Approximate  storage  required  (OCTAL):  3204, 
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Discussion:  In  designing  STEAP,  flexibility  and  computa- 

tional speed  were  the  prime  factors , The  program  was  designed 
in  block  modules  that  have  access  to  all  the  subroutines  within 
STEAP.  In  this  manner  any  subroutine  or  module  can  be  inserted 
or  replaced  by  the  user.  Hence,  the  MAIN  routine  is  relatively 
simple  in  that  each  operational  mode  (three  available)  is  a de- 
signated block  within  MAIN,  The  three  blocks  are  targeting, 
error  analysis,  and  simulation. 

The  first  operation  performed  by  MAIN  reads  in  a data  card 
that  signifies  the  number  of  runs  to  be  made.  With  each  succeed- 
ing run  the  MAIN  routine  calls  the  DATA  subroutine,  which  pro- 
vides ali  the  necessary  data  for  each  mode  of  operation,  MAIN 
then  proceeds  to  the  module  for  which  the  program  is  to  be  ex- 
ercised and  performs  the  necessary  computational  logic*  Control 
is  always  returned  to  MAIN  after  each  run. 

The  MAIN  routine  computational  logic  follows  this  discussion. 


Computational  logic  (continued): 


53 


B . MAIN  Program  (Targe  t ing ) 


MAIN  (Targeting;  Mode) 

Purpose:  This  program  controls  the  operation  of  the  entire 

targeting  mode. 

Calling  sequence:  None, 

Input/output:  Input/ output  options'  are  discussed  in  detail 

in  Chapter  II. B and  III.B. 


Subprograms  required; 


ACTB 

ESTMT 

NEWPAGE 

POSVL 

AUX 

Eumx 

NJEXN 

PRINT 

BLKDAT 

HYPER 

ORB 

SPACE 

CASOI 

HYPSV 

0T2 

TIME 

CONIC 

INPUTZ 

OUTl 

VECTOR 

CONST 

LAMB 

PECEQ 

VMASS 

EPHEM 

MATIN 

PLANE 

VMP 

Discussion:  The  program  is  described  in  Chapter  IV, B,  A de- 

tailed flow  chart  is  given  on  the  following  pages. 
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Computational  logic: 


C , Subroutines 


1 , Subroutine  ACTS 


Purpose:  Given  the  gravitational  constant  of  a body  and  the 

influence  of  position  and  velocity  of  a vehicle  when  it  enters 
the  sphere  of  that  body,  this  routine  computes  the  magnitudes  of 
B,  B*T,  and  B-R, 

Calling  sequence:  CALL  ACTB(R,  V,  GMX,  B,  BDT,  BDR) 

Input/ output: 


I/O 

Fortran 

name 

Math 

s3mibol 

' 

Definition 

I 

R(3) 

Position  of  vehicle 
relative  to  the  body 

I 

V<3) 

r 

Velocity  of  vehicle 
relative  to  the  body 

I 

GMX 

M- 

Gravitational  constant 
of  the  body 

0 

B 

B 

0 

BDT 

B.T 

B -plane  coordinates 

0 

BDR 

B-R 

Subprograms  required:  None . 

Approximate  storage  required  (OCTAL):  460, 

Discussion:  The  position  and  velocity  of  the  vehicle  rela- 

tive to  the  planet  are  used  to  compute  the  elements  that  define 
the  hyperbola  about  the  planet.  The  standard  coordinate  system 
R,  S,  T is  then  constructed.  B is  defined  as  that  vector 
lying  in  the  B -plane  which  extends  from  the  center  of  the  planet 
to  the  approach  asymptote.  Finally  the  values  B*T  and  B.R  are 
computed . 
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2 . Subroutine  AUX 


Purpose:  This  program  is  responsible  for  the  calculation  of 

the  SPARC  injection  conditions  printed  out  in  the  point-to-point 
conditions , 

Galling  sequence:  CALL  AUX  (W,  ELAT,  ELON,  AZ,  PV,  Q,  TAI, 

ANGl,  ANG2,  TlMl,  T1M2,  S,  E,  RP,  GNE,  ROT,  DJL,  TL,  TB,  PHI, 
THI,  RAI,  AZI,  TINJ,  TC). 


Input/ output: 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

W(3) 

W 

Normal  to  launch  plane 

I 

ELAT 

^L 

Latitude  of  launch  site 

I 

ELON 

®L 

Longitude  of  launch  site 

I 

AZ' 

Z 

Be  s ir ed  launch  az irnuth 

I 

PV(3) 

P 

Unit  vector  in  direction  of 
periapsis  of  hyperbola 

I 

Q(3) 

ys 

Q 

Unit  vector  in  plane  of  hyper- 
bola perpendicular  to  PV 

I 

TAI 

^I 

True  anomaly  at  injection 

I 

ANGl 

Angle  of  first  burn 

I 

ANG2 

CM 

Angle  of  second  burn 

I 

TlMl 

^2 

Time  of  first  burn,  see 

I 

T1M2 

Time  of  second  burn,  sec 

I 

S 

s 

Unit  vector  in  direction  of  departure 
as3rmptote 

I 

E 

e 

Eccentricity  of  hyperbola 

I 

RP 

r 

P 

Periapsis  radius  of  hyperbola 

I 

GME 

Gravitational  constant  of  launch  planet 

I 

ROT 

Rotational  rate  of  launch  planet 

I 

DJL 

Julian  date  of  launch 

0 

TL 

Time  (hr)  of  launch  after  zero  hours  on 
date  of  launch 
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0 

TB 

Time  between  launch  and  Injection 

0 

PHI 

Injection  latitude 

0 

THI 

®I 

Injection  longitude 

0 

RAI 

Injection  right  ascension 

0 

AZI 

Injection  azimuth 

0 

TINJ 

Time  (hr)  of  injection  from  zero  hours 
on  date  of  launch 

0 

TC 

T 

c 

Coast  time 

Subprograms  required:  None. 


Approximate  octal  required:  700. 

Discussion:  The  computations  in  this  program  are  quite 

elementary.  A review  of  the  program  listpLng  is  sufficient  for 
understanding  the  program.  ' 
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3.  Subroutine  BIAS 


Purpose:  This  subroutine  determines  which  type  of  measure- 

ment is  being  taken  and  returns  the  actual  measurement  bias  to  be 
used  in  the  simulation  mode. 

Calling  sequence:  CALL  BIAS  (MMCODE,  BVAL). 

Input/output: 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

MMCODE 

A code  describing 
which  type  of 
measurement  is 
being  taken 

0 

BVAL (4) 
i 

The  actual  bias  to 
be  used  in  the 
measurement 

Subprograms  required:  None. 

Approximate  storage  required  (octal):  50. 

1 

Discussion:  A vector  BIA(12)  is  input  that  determines  the 

actual  bias  to  be  used  in  any  given  measurement.  This  vector 
is  described  in  more  detail  in  Chapter  II,  Input  Options.  After 
deciding  what  parameters  are  being  measured,  the  appropriate 
values  are  placed  in  the  vector  BVAL  to  be  returned  to  the  simula- 
tion mode.  The  length  of  BVAL  may  vary  from  one  value  to  three 
values  according  to  which  measurement  is  being  taken. 
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4>  Subroutine  BLOCK  DATA 


Purpose:  This  subroutine  contains  the  constants  used  in 

various  other  parts  of  the  program. 

Calling  sequence:  None, 

Input/ output : None. 

Subprograms  required:  None. 

Approximate  storage  required  (octal):  10. 

Discussion:  No  computations  are  accomplished  in  this  routine 

The  constants  mentioned  above  are  loaded  with  the  rest  of  the 
program  and  are  ready  for ^use  immediately. 


5«  Subroutine  GASOI 


Purpose:  This  program  converts  closest  approach  target  con- 

ditions to  sphere  of  influence  conditions. 

Galling  sequence:  CALL  GASOI  (RS,  VHP,  TTG,  EQEG,  DINCL, 

DRCA,  DB,  DBDT,  DBDR,  TSICA) 


Input/output: 


I/O 

Fortran  name 

Math 

symbol 

Definition 

I 

RS(3) 

^SOI 

Position  vector  at  sphere  of  influence 
(pi arie  t -c  entered  ec  1 i p tic) 

I 

VHP (3) 

V 

SOI 

Velocity  vector  at  sphere  of  influence 
(planet-centered  ecliptic) 

I 

TTG 

Gravitational  constant  of  target 
planet 

I 

EQEG (3,  3) 

^EQEC 

Transformation  matrix  from  equatorial 
to  ecliptic  coordinates 

I 

DINCL 

i 

^CA 

Inclination  at  closest  approach,  rad 

I 

DRCA  1 

^CA 

Radius  at  closest  approach 

0 

DB 

B 

Impact  parameter 

0 1 

DBDT 

B-T 

Impact  parameter  variable 

0 

DBDR 

B-R 

Impact  parameter  variable 

0 

1 

TSICA 

At 

Time  from  sphere  of  influence  to 
closest  approach,  days 

Sub  pr  o gr  am  r e qu  ir  ed : None . 


Approximate  storage  required  (octal):  1500. 

Discussion:  The  program  determines  the  plane  of  motion  about 

the  target  planet  from  the  target  inclination  and  approach  asymptote. 
The  normal  to  the  plane  of  motion  projected  on  the  impact  plane 
determines  the  angle  between  the  T-axis  and  the  miss  vector  B. 

B*T  and  B*R  are  calculated  from  this  angle.  The  time  from  the 
sphere  of  influence  to  closest  approach  is  based  on  a patched 
conic  approximation. 
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Computational  logic: 
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6.  Subroutine  C0NC2 


Purpose:  This  subroutine  computes  the  state  transition 

matrix  of  dimension  6x6  that  relates  perturbations  about  a 
nominal  trajectory  at  the  times 

Calling  sequence:  CALL  C0NC2  (R,  V,  BELT,  GMX,  PSIEC). 


Input/ output 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

R(3) 

r 

Position  of  the  vehicle 
relative  to  the  governing 
body 

I 

V(3) 

r 

Velocity  of  the  vehicle 
relative  to  the  governing 
body 

I 

BELT 

At 

Time  increment  over  which 
the  state  transition  matrix 
is  being  computed 

I 

GMX 

u 

Gravitational  constant  of 
the  governing  body 

' ° 1 

PSIEC (6, 6) 

$ 

State  transition  matrix 

Subprograms  required;  None. 


Approximate  storage  required  (octal):  1550. 

Discussion;  State  transition  matrices  are  used  to  find  small 
departures  in  position  and  velocity  from  Keplerian  motion  at  two 
different  times,  using  analytical  methods  to 

determine  0,  the  assumption  is  made  that  over  a small  time 
interval  of  an  interplanetary  trajectory,  the  motion  of  the  ve- 
hicle is  essentially  a two-body  conic  section. 

Computation  of  state  transition  matrices  in  this  subroutine 
is  based  on  the  method  as  given  by  Danby  (ref.  2).  A discussion 
of  this  technique  is  presented  in  the  analytical  manual.  Volume 
II  of  this  report. 
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C0NC2  is  used  for  both  virtual  mass  and  patched  conic  state 
transition  matrix  computations.  The  difference  lies  in  the  use 
of  the  gravitational  parameter  n.  When  computing  O from 
virtual  mass  concepts,  the  ^ of  the  effective  force  center  is 
used.  When  patched  conic  methods  are  used,  the  pi  of  the 
dominant  body  is  considered  in  the  analysis.  The  method  of  how 
$ is  computed  is  determined  by  input. 
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Computational  logic: 


COMPU  T E; 

Rwv-  Nr»RC.w»T0C(e  OF  Position  vecroR-R 
VIV\-  NaRGMITWO®  OF  MEUOCITY  VeCTOR-V 
OReiTRL  &L£WVSNTS  CK^e.-ff 
PM-  M6CTOR  TOVJAROS  PgRlAPSIS  OF  CONIC 
O - V/6CT0R  '50*  FROIVS  PV 


NMHRT  I S CONIC  7 


USlNO  PROPER  CONIC  &U6N\SNT5 
COMPUTE  Time  froiv\  PERinPsii 
nwD  TRUE  RMOMAt'/  AT 


compute  ; $Ct,  ,0^  ftNO 

€ , STATE  transition  MAIRW 

15  THEM 


COMPUTE  Rotation  niATRU  t*o 

TRAN5FoR^A  $ FRON\ 

OR0  IT 

piANe  TO  coordinate 

S'j  ST  e »A 

OF  R AND  V, 

HMPEREOUR 


RETVJRM 


[•I»1 


7.  Subroutine  CONIC 


Purpose;  This  program  detepaines  the  el^epts  of  the  ellipse 
specified  by  given  position  and  velocity  vectors. 

Calling  sequence:  CALL  CONIC  (R,  KM,  V,  VM,  A,  E,  XI,  XL,  W, 

TA,  PV,  Q,  (MX,  KP,  P,  WV). 

Input /output; 


I/O 

Fortran  name 

Math  symbol 

Definition 

I 

R(3) 

r 

Position  vector 

I 

EM 

r 

Position  vector  magnitude 

I 

V(3) 

V 

Velocity  vector 

I 

VM 

V 

Velocity  vector  magnitude 

0 

A 

a 

Semi-ma j or  axis 

0 

E 

e 

Eccentricity 

0 

XI 

i 

Inclination 

0 

XL 

Q 

Longitude  of  ascending  node 

0 

W 

CO 

Argument  of  periapsis 

0 

TA 

V 

True  anomaly  of  specified  position 

0 

PV(3) 

p 

Standard  unit  vecotor  in  direction 
of  periapsis 

0 

Q(3) 

Q 

Standard  unit  vector  in  orbital 
plane  normal  to  PV 

I 

(MX 

Up 

Gravitational  constant  of  primary 
body 

0 

RP 

S 

Periapsis  radius 

0 

P 

P 

Semi - 1 a tu s re c turn 

0 

WV 

w 

Normal  to  orbital  plane 

Subp  rog  rams  requi red ; None . 

Approximate  storate  required  (octal);  400. 

Discussion;  This  is  a standard  conic  section  program. 


8 . Subroutine  CONST 


Purpose:  This  program  sets  the  launch  profile  constants  used 

in  the  NJEXN  subroutine. 

Calling  Sequence:  CALL  CONST  (NDD,  NTT,  RP,  HHTA,  ANGl,  AN62, 

TlMl,  T1M2,  DDLAT,  DDLON,  DDIQ,  DDLQ,  ROT) . 

Input /output; 


I/O 

Fortran  name 

Math  symbol 

Definition 

I 

NDD 

Index  of  launch  planet 

I 

NTT 

Index  of  target  planet 

0 

RP 

^p 

Parking  orbit  radius 

0 

HHTA 

^i 

True  anomaly  at  injection 

0 

ANGl 

'i'l 

Angle  of  first  bum 

0 

ANG2 

4'i 

Angle  of  second  bum 

0 

TIMl 

Time  of  first  bum 

0 

TIM2 

t2 

Time  of  second  bum 

0 

DDLAT 

^L 

Latitude  of  launch  site 

0 

DDLON 

®L 

Longitude  of  launch  site 

0 

DDIQ 

Obliquity  of  launch  planet  orbit 

0 

DDLQ 

Ascending  node  of  launch  planet 
orbit 

0 

ROT 

Rotational  rate  of  launch  planet 

Subprograms  required : None . 

Approximate  storate  required  (octal) : 300 . 

Discussion:  The  output  parameters  are  simply  set  equal  to 

desired  values. 
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9 . Sub  routine  CONVERT 


Purpose:  If  at  a given  time  the  geocentric  radius,  declina- 

tion, right  ascension,  velocity,  path  angle,  and  a2iimuth  of  a 
vehicle  are  known,  this  subroutine  will  calculate  the  geocentric 
equatorial  coordinates  of  the  vehicle. 

Calling  sequence:  CALL  CONVERT  (R,  PHI,  THETA,  VEL,  GAMMA, 

SIGMA,  X,  Y,  Z,  VX,  VY,  VZ)  . 


Input /output; 


I/O 

Fortran  name 

Math  symbol 

Definition 

I 

R 

r 

Geocentric  radius 

I 

PHI 

4 

Declination 

I 

THETA 

e 

Right  ascension 

I 

VEL 

V 

Velocity 

I 

GAMMA 

Y 

Path  angle 

I 

SIGMA 

a 

Azimuth 

The 

following  cooi 

rdinates  are  g 

geocentric  equational 

0 

■X  i 

X 

0 

Y 

y 

Position  coordinates 

0 

Z 

z 

0 

VX 

# 

X 

0 

VY 

• 

y 

Velocity  coordinates 

0 

VZ 

z 

Subp  rograms  required : None . 

Approximate  storage  required  (octal):  170. 

Discussion:  The  following  formvilas  are  used  'to  find  the  geo- 

centric equatorial  Goordinates  from  the  given  data  in  this  routine: 

X = r cos  cos  0 
y - r cos  4 sin  0 
z - r s in 

X = V (sin  Y cos  4>  cos  9 - cos  Y sin 
cos  a sin  $ cos  0) 

y = V (sin  y cos  <f>  sin  0 + cos  y sin 
cos  a sin  ^ sin  0) 

z = V (sin  Y sin  ^ H-  cos  y cos  o cos 


a sin  0 - cos  y 
a cos  0 - cos  Y 
<!>) 
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10,  Subroutine  DATA 


Purpose:  This  subroutine  is  responsible  for  reading  the  data 

and  translating  that  data  into  symbols  compatible  with  the  rest 
of  the  program. 

Calling  sequence:  CALL  DATA. 

Input /output : All  communication  with  tue  subroutine  DATA  is 

acccanplished  through  the  use  of  COMMON  blocks.  Thus,  no  "dummy 
argvHnents"  appear  in  the  calling  sequence. 

Subprograms  required:  CONVERT,  EPHIM,  GHA,  ORB,  TIME,  TRANS. 

Approximate  storage  required  (octal) : 6530 . 

Discussion:  To  determine  the  exact  means  of  reading  data  re- 

fer to  Chapter  II,  Input  Options.  For  those  variables  for  which 
it  is  necessary,  this  subroutine  sets  initial  values  before  trans- 
ferring control  to  the  main  program.  In  addition,  DATA  prints 
the  initial  conditions  of  most  variables  included  in  the  name- 
lists. 


11.  Subroutine  DYNO 


Purpose:  The  dynamic  noise  matrix  for  the  error  analysis  or 
simulation  mode  is  computed.  In  addition,  DYNO  computes  the  ac- 
tual dynamic  noise  used  in  the  simulation  mode . 

Galling  sequence:  CALL  DYNO  (ICODE) . 


Input /output: 


I/O 

Fortran  name 

Definition 

I 

ICODE 

i 

An  internal  code  that  determines  if  the 
dynamic  noise  matrix  is  computed  or  the 
actual  dynamic  noise  is  calculated. 

Subprograms  required : None . 


Approximate  storage  required  (octal):  260. 

Discussion:  If  ICODE  =0,  the  dynamic  noise  matrix  is  com- 

puted as  a function  of  the  input  vector  DNCN  in  the  following 
manner: 

Q(l,l)  = 0.25 (At)**  DNCN(l) 

Q(2,2)  = 0.25(At)‘^  DNCN(2) 

Q(3,3)  = 0.25(At)‘*  DNCN(3) 

Q(4,4)  = (At)^  DNCN(l) 

Q(5,5)  = (At) 2 DNCN(2) 

Q(6,6)  = (At) 2 DNGN(3) 

The  actual  dynamic  noise  is  computed  if  ICODE  = 1.  The  ac- 
tual unmodeled  acceleration  may  be  input.  It  is  possible  to  al- 
low a different  value  of  the  unmodeled  acceleration  for  each  of 
three  different  time  intervals  along  the  trajectory.  The  result 
is  stored  in  the  vector  W. 
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12.  Subroutine  EIGEN 


Purpose;  This  routine  is  called  on  to  calculate  the  eigen- 
values, eigenvectors,  and  hyperellipsoids  of  the  covariance  matrix 
at  a previously  specified  time  which  is  known  as  the  time  of  an 
eigenvector  event  in  the  error  analysis  mode. 

Calling  sequence:  CALL  EIGEN  (RI,  TEVN) . 


Input /output : 


I/O 

Fortran  name 

Math  symbol 

Definition 

I 

RI(6) 

X 

The  state  vector  describing  the 
position  and  velocity  of  the  ve- 
hicle at  the  time  of  the  last 
measurement  or  event 

I 

TEVN 

i 

t 

ev 

The  time  at  which  the  eigenvector 
event  is  to  take  place 

Subprograms  required:  DYNO,  HYELS,  JACOBI,  NAVM,  NTM,  PSIM. 

Approximate  storage  required  (octal):  2530. 

Discussion:  The  covariance  matrix  P is  propagated  forward 

from  the  time  of  the  last  measurement  or  event,  through 

the  formula 


p s=  p =0  p 4-0 

t , t,  - ev,  k-1  ev,  k-1  k-1,  k-1’  ev,  k-1  ^ev,  k-1 

ev’  k-1  ’ ’ ’ 

where  ^ , - is  the  state  transition  matrix  relating  devia- 

ev,  k-1 

tions  in  the  state  vector  at  t to  deviations  at  t.  - , 

ev  k-1 

Q , , is  the  dynamic  noise  matrix  at  time  t , and  P,  . , 

ev,  k-1  j gy?  k-l,k 

is  the  covariance  matrix  at  the  time  of  the  last  measurement 
or  event.  The  position  and/or  velocity  eigenvalues  and  eigen- 
vectors and  related  hyperellipsoids  are  then  computed  and  printed. 

The  subroutine  then  returns  P , - - P and  the  state  vec- 

ev,  k-1  ev,  ev 

toe  at  time  t^^  to  the  basic  cycle  in  order  to  process  the  next 
measurement  or  event. 
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Computational  logic: 
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X3 . Subroutine  EIGSIM 


Purpose?  The  purpose  of  this  sjubroutlne  Is  to  obtain  the  In- 
fonnation  necessary  for  an  eigenvector  event  in  the  simulation 
mode  of  STE^;  that  is,  to  compute  the  eigenvalues  ^d  eigenvec- 
tors of  the  covariance  matrix,  P,  at  a given  time. 

Calling  sequence;  CAil- EICSIM  (RI,  TEVN,  RIl). 


Input /output: 


I/O 

Fortran  name 

Math  S3rmbol 

Definition 

I 

RI(6) 

X 

Position  and  velocity  components 
of  the  original  nominal  state 
vector 

I 

TEVN 

^ev 

Time  of  the  eigenvector  event 

I 

Rll(6) 

X 

Position  and  velocity  of  the  most 
recent  nominal  state  vector. 

Subprograms  required;  DYNO,  HYILS,  JACOBI,  NAVM,  NIM,  fSBJ, 


Approximate  storage  required  (octal) i 2620, 

Discussion;  As  in  the  basic  cycle  the  covariance  matrix  is 
propagated  forward  to  the  time  of  the  eigenvector  event.  The 
eigenvalues  and  eigenvectors  of  that  covariance  matrix  are  then 
calculated  together  with  the  correlation  coefficient  matrix. 
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14.  Subroutine  EPHEM 

Purpose:  This  subroutine  computes  the  heliocentric  ecliptic 

coordinates  of  a given  planet  at  a specified  time. 

Calling  Sequence:  GALL  EPHEM  (N,D,ICODE)  . 


Input /output : 


I/O 

Fortran 

name 

Definition 

I 

N 

Number  of  bodies  for  which  the  compon- 

ents  will  be  found 

I 

D 

Julian  date,  epoch  1900,  at  which  the 
position  and  velocity  will  be  computed. 

I 

ICODE 

Internal  code  that  states  where  to  place 
the  computed  values  of  position  and  velo- 
city (explained  in  greater  detail  in  the 
discussion) . 

Subprograms  required : None , 

Approximate  storage  required  (octal) : 1260  . 

Discussion:  In  calculating  the  inertial  coordinates  of  the 

planets,  EPHEM  makes  use  of  the  orbital  elements  that  have  been 
previously  calculated  in  ORB:  semimajor  axis,  eccentricity,  in- 

clination, longitude  of  ascending  node,  and  Longitude  of  perihe- 
lion. This  subroutine  then  computes  the  mean  anomaly  of  the  pla- 
net and  finally,  the  coordinates  of  the  planet.  While  N speci- 
fies the  number  of  planets  for  which  the  coordinates  are  to  be 
computed,  the  vector  NO  contains  the  codes  of  the  planets. 

The  subroutine  allows  two  options: 

1)  If  the  coordinates  for  a specified  planet  are  desired 
independent  of  the  virtual  mass  program,  ICODE  should 
be  set  to  one  (1) . The  coordinate  will  then  be  placed 
in  a vector  XP; 

2)  For  the  virtual  mass  program  EPHEM  calculates  the 
coordinates  of  all  planets  being  considered  in "the 
analysis  (N='NB0DYI)  and  the  coordinates  are  placed 
in  an  array  F.  For  this  option,  ICODE  =0. 

When  either  of  the  above  options  is  exercised  the  units  of 
the  position  and  velocity  returned  are  A:.U:.  and  AiU:../day  respec- 
tively. 
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Computational  logic 


3 5\  c 
IJiSU  - 1 


15.  Subroutine  ESTMT 


Purpose:  This  subroutine  acts  as  an  auxiliary  routine  for 

VMP  in  computing  the  trajectory  from  the  virtual  mass  technique. 
ESTMT  updates  the  final  values  of  the  preceding  computing  inter- 
val to  serve  as  initial  values  for  the  new  step,  determines  the 
desired  size  of  the  next  time  increment,  and  estimates  the  final 
position  and  magnitude  of  the  virtual  mass. 

Calling  sequence:  CALL  ESTMT  (DI,  DELTM,  TRTM) 


Input /out put: 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

DI 

Julian  date,  epoch  1900,  of  the 
initial  trajectory  time 

I 

DELTM 

At 

Time  interval  over  which  the 
trajectory  will  be  computed 

I 

TRTM 

t 

o 

Initial  trajectory  time 

Subprograms  required:  None. 


Approximate  storage  required  (octal):  200. 


Discussion:  In  determining  the  time  increment  to  be  used  in 

the  next  step,  ESTMT  uses  as  a basis  either  the  true  anomaly  in- 
crement or  the  requested  print  time. 

It  is  necessary  for  the  purposes  of  the  nominal  trajectory 
module  to  return  the  exact  position  and  velocity  of  the  vehicle 
at  the  end  of  the  time  period  over  which  the  trajectory  is  being 
computed.  Therefore  the  final  time  itself  must  be  computed  as 
accurately  as  possible.  Thus,  t^  - t^  + At  and  the  ephemeris 

at  the  final  time  is  based  on  this  value  of  t^,  rather  than 
n 

At^  where  At^  is  the  length  of  the  k time 

k=l 

increment  computed  by  ESTMT. 

For  the  formulas  used  in  the  subroutine  to  estimate  the  final 
position  and  magnitude  of  the  virtual  mass  refer  to  Volume  II  the 
analytical  manual  of  the  final  report. 
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16 . Subroutine  EUIMX 


Purpose:  This  program  computes  the  matrix  required  to  define 

transformations  from  one  coordinate  system  to  another. 

Calling  sequence:  CALL  EULMX  (ALP,  NN,  BET,  MM,  GAM,  LL,  P)  . 

Input /out put : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

ALP 

a 

First  rotation  angle 

I 

BET 

p 

Second  rotation  angle 

I , 

GAM 

7 

Third  rotation  angle 

I 

NN 

First  axis  of  rotation 

I 

MM 

Second  axis  of  rotation 

I 

LL 

Third  axis  of  rotation 

0 

P(3,3) 

Transformation  matrix 

Subprograms  required:  None. 

Approximate  storage  required  (octal):  500. 


Discussion:  The  program  is  a standard  one  computing  the  ma- 

trix that  defines  the  transformation  from  one  coordinate  system 
to  a new  coordinate  system  obtained  by  rotating  through  an  angle 
OC  about  the  first  specif ied  axis , p about  the  second,  and  7 
about  the  third . 


17*  Subroutine  GHA 


Purpose:  This  routine  computes  the  Greenwich  hour  angle  and 

the  universal  time  (in  days)  which  is  used  in  the  tracking  module 
to  orient  the  tracking  stations  on  a spherical  rotating  Earth. 

Calling  sequence:  CALL  GHA. 

Input/output:  All  communication  with  this  routine  is  accom- 

plished through  the  use  of  common  statements,  which  explains  the 
lack  of  arguments . 

Subprograms  required:  None. 


Approximate  storage  required  (octal):  70. 

Discussion:  In  computing  the  Greenwich  hour  angle  of  the 

vernal  equinox  at  some  epoch  T,  the  following  equation  is  used: 


GHA(T*)  = 100.0755426  + 0.985647346  d + 2.9015  x 10“^^  + wt 

for 

0 < GHA(T*)  < 360° 


where  d is  the  integer  or  whole  days  as  determined  by  T*,  t 
is  the  fractional  part  of  a day  in  seconds  as  determined  by 
and  0)  is  the  Earth's  rotation  rate  in  degrees /day  and  is  assumed 
constant. 

The  universal  time  is  then  computed  in  days  from: 

^ ^ GHA(T*) 


18.  Subroutine  GUID 

Purpose:  In  this  subroutine  F,  the  guidance  matrix  is  com- 

puted, which  is  then  returned  to  GUIDM  to  be  used  in  computing  the 
execution  error  matrix  for  a guidance  event  in  the  error  analysis 
mode  of  STEAP. 

Calling  sequence:  CALL  GUID  (RF,  IGP,  TEVN,  GA,  ADA). 


Input /out put : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RF(6) 

X 

Position  and  velocity  of  the 
vehicle  at  the  time  of  the 
guidance  event 

I 

IGP 

Guidance  code  describing  which 
of  three  types  of  guidance 
policies  is  being  used 

I 

TEVN 

t 

ev  ^ 

Trajectory  time  of  the  guidance 
event 

0 

GA(3,6) 

r 

Guidance  matrix 

0 

ADA (3, 6) 

n 

Variation  matrix 

Subprograms  required:  EPHEM,  HYELS,  JACOBI,  MATIN,  NTM,  ORB, 

PARTL,  PSIM,  VARADA. 

Approximate  storage  required  (octal)  : 3700. 

Discussion:  The  type  of  guidance  policy  is  determined  imme- 

diately. If  fixed-time~of -arrival  policy  is  being  used,  the  con- 
ditions at  closest  approach  are  determined.  The  M matrix  is 
obtained  (assuming  the  vehicle  has  passed  through  the  sphere  of 
influence)  to  be  used  later  in  a prediction  event.  The  state 
transition  matrix  is  then  obtained  relating  deviations  at  the 
time  of  the  guidance  event  to  those  at  closest  approach.  The 
guidance  matrix,  F,  is  computed,  finally  from  the  state  transi- 
tion matrix. 

If  either  two-variable  B-plane  or  three-variable  B-plane 
guidance  policy  is  to  be  used,  the  conditions  at  sphere  of  in- 
fluence are  obtained.  Again,  the  M matrix  is  computed.  Now, 
if  two-variable  B-plane  guidance  policy  is  desired,  the  state 
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transition  matrix  relating  deviations  at  the  time  of  the  guidance 
policy  to  those  at  sphere  of  influence  are  obtained.  Then  guidance 
submatrices  A and  B are  calculated,  from  which  the  guidance 
matrix  is  computed.  For  a further  discussion  see  Volume  II. 

Finally,  if  three-variable  B-plane  guidance  policy  is  used  the 
variation  matrix,  t)  , is  constructed  from  VARADA,  which  is  used 
to  compute  the  guidance  matrix. 
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Computational  logic: 


STRRT 


x&?  ^ 


19.  Subroutine  GUIDM 


Purpose:  The  execution  error  matrix  used  in  the  guidance  event 
in  the  error  analysis  mode  of  STEAP  is  computed  in  this  subroutine. 
In  addition,  other  pertinent  information  is  calculated  and  printed. 

Calling  sequence:  CALL  GUIDM  (RI,  TEVN) . 


Input /output ; 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RI(6) 

X 

Position  and  velocity  of  the 
vehicle  at  the  time  of  the  last 

measurement  or  event 

I 

TEVN 

t 

ev 

Trajectory  time  of  the  guidance 
event 

Subprograms  required:  DYNO,  GUID,  HYELS,  JACOBI,  NAVM, 

NTM,  PSIM. 

Approximate  storage  required  (octal):  5360. 

Discussion:  This  subroutine  is  responsible  for  all  the  logic 

at  a guidance  event  for  the  error  analysis  mode.  In  general  it 
determines  the  covariance  matrix  prior  to  the  correction,  calls 
the  GUID  subroutine  for  the  guidance  matrix  depending  on  the  guid- 
ance policy,  and  computes  the  covariance  matrix  associated  with 
the  velocity  components. 


In  addition,  GUIDM  computes  the  execution  error  matrix  by  one 
of  two  methods  as  determined  by  input.  The  final  output  of  this 
subroutine  is  the  covariance  matrix  of  errors  if  a correction 
would  have  been  made. 

Other  computations  are  made  throughout  the  logic  to  determine 
eigenvector,  eigenvalues,  and  hyperellipsoid  information  of  vari- 
ous matrices. 
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Computational  logic: 


Computational  logic  (continued) : 
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Computational  logic  (concluded) : 


20,  Subroutine  GUIS 


Purpose:  This  subroutine  computes  F,  the  guidance  matrix, 

for  use  in  the  guidance  event  for  the  simulation  mode. 

Calling  sequence:  CALL  GUIS  (RF,  RFl , IGP,  TEVN,  GA,  ADA). 


Input/output : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RF(6) 

X 

Position  and  velocity  of  the  ve- 
hicle on  the  original  nominal 
trajectory  at  the  time  of  the 
guidance  event 

I 

RFl (6) 

X 

Position  and  velocity  of  the  ve- 
hicle on  the  most  recent  nominal 
trajectory  at  the  time  of  the 
guidance  event 

I 

IGP 

An  internal  code  which  determines 
which  type  of  guidance  policy  is 
being  used 

I 

TEVN 

t 

ev 

TrajectDry  time  of  the  guidance 
event 

0 

GA(3,6) 

r 

Guidance  matrix 

0 

ADA (3, 6) 

Variation  matrix 

Subprograms  required:  EPHEM,  HYELS,  JACOBI,  MATIN,  NTM,  ORB 

PARTL,  VARSIM, 

Approximate  storage  required  (octal) : 4470  - 

Discussion:  A similar  method  to  that  described  for  GUID  is 

employed  to  produce  the  gamma  matrix,  F.  However,  a difference 
should  be  noted  in  the  calculation  of  the  M matrix.  This  is 
computed  from  the  information  at  sphere  of  influence  on  the  orig 
inal  nominal  trajectory  while  the  rest  of  the  calculations  are 
based  on  the  most  recent  nominal  trajectory. 


Computational  logic; 
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21.  Subroutine  GUISIM 


Purpose:  This  subroutine  is  responsible  for  the  logic  con- 

tained in  the  guidance  event  of  the  simulation  mode . 

Calling  sequence:  CALL  GUISIM  (RI,  TEVN,  RIl) , 


Input/ output 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RI(6) 

X 

Position  and  velocity  of  the 
vehicle  on  the  original  nom- 
inal trajectory  at  the  time  of 
the  last  measurement  or  event. 

I 

TEVN 

t 

ev 

Trajectory  time  of  the  guid- 
ance event . 

I 

RI1(6) 

X 

State  of  the  vehicle  on  the 
most  recent  nominal  trajec- 
tory at  the  time  of  the 
guidance  event . 

Subprograms  required:  DYNO,  GUIS,  HYELS,  JACOBI,  NAVM,  NTM, 

PSIM. 

Approximate  storage  required  (octal) : 5420. 

Discussion:  The  GUISIM  subroutine  is  similar  to  the  error 

analysis  subroutine  GUIDM  in  that  it  develops  the  logic  at  a 
guidance  event  for  the  simulation  mode. 

It  computes  the  execution  error  matrix,  the  covariance  matrix 
before  and  after  a correetion,  and  the  probabilistic  uncertainties 
in  the  target  conditions  before  and  after  the  correction.  Addi- 
tional computations  are  made  to  determine  the  commanded  correc- 
tion the  perfect  correction  AV,  and  the  error  in  correc- 

tion due  to  navigation  uncertainty.  The  actual  correction  AV 
is  also  determined. 


Computational  logic: 
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Computational  logic  (continued) 
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22.  Subroutine  HYELS 


Purpose:  The  two-dimensional  or  three-dimensional  hyper- 

ellipsoid  of  a specified  matrix  is  computed  and  printed. 

Calling  sequence:  CALL  HYELS  (KS,  P,  N). 


Input/output: 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I . 

KS 

o 

Sigma  level  of  the  hyper- 
ellipsoid. 

I 

P(3,3) 

p 

Matrix  for  which  the  hyper- 
ellipsoid  is  to  be  computed. 

I 

N 

n 

i 

Dimension  of  the  square 
matrix  P. 

Subprograms  required : MATIN. 


Approximate  storage  required  (octal) : 410 


Discussion:  The  subroutine  MATIN  is  used  to  compute  the  in- 

verse of  the  matrix  P which  is  a square  matrix  of  dimension 
2 X 2 or  3 X 3.  The  three-dimensional  hyperellipsoid  is  then 
computed  as 

2 2 2 2 
ax  + by  + cz  + dxy  + exz  + fyz  = q 

where 

a = P“^  (1,1) 
b = P“^  (2,2) 
c = P'^  (3,3) 
d = 2 <1,2)1 

e = 2 [P'^  (1,3£| 
f = 2 [p'^  (2,3)1 

For  the  two-dimensional  hyperellipsoids  the  appropriate  com- 
ponent is  set  to  zero. 
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23.  Subroutine  HYPER 


Purpose:  This  program  computes  the  elements  of  the  launch 

hyperbola  on  which  the  injection  Conditions  are  based. 

Calling  sequence:  CALL  HYPER  (S,  RP,  VHL,  GME,  ELAT,  A,  E, 

XI,  XL,  XW,  W,  PV,  Q,  AZ,  C3,  P,  DLA,  RAL) . 


Input/output : 


I/O 

Fortran 

name 

Math 

S3mibol 

Definition 

I 

S(3) 

/s 

s 

Hyperbolic  excess  velocity 
(equatorial  coordinates) 

I 

RP 

^p 

Periapsis  radius  (~  6560  km) 

I 

VHL 

% 

Speed  at  infinity  along 
hyperbola 

I 

GME 

Up 

Gravitational  constant  of 
launch  planet 

I 

ELAT 

^L 

Latitude  of  launch  site 

0 

A 

a 

Semimajor  axis 

0 

E 

e 

Eccentricity 

0 

XI 

i 

Inclination 

0 

XL 

a 

Longitude  of  ascending  node 

0 

XW 

(jO 

' Argument  of  periapsis 

0 

W(3) 

Normal  to  plane 

0 

PV(3) 

/s 

p 

Unit  vector  directed  toward 
periapsis 

0 

Q(3) 

/s 

Q 

Unit  vector  normal  to  P in 
orbital  plane 

I 

AZ 

^L 

Launch  azimuth 

0 

C3 

s 

Launch  energy 

0 

P 

p 

Semilatus  rectum 

0 

DLA 

5 

Declination  of  departure 
a s3miptote 

0 

BAL 

0 

Right  ascension  of  de- 
parture asymptote 

Subprograms  required : None , 


Approximate  storage  required  (octal) : 600. 

Discussion:  This  program  is  adapted  from  programs  in  the 

SPARC  program  (ref  1) . The  nominal  launch  azimuth  is  set  for  a 
due  east  launch,  but  if  that  is  impel  ^ble  (viththe  approaxh 
as3miptote  constraints)  it  is  reset  m I the  program  to  a real- 
istic value.  The  periapsis  radius  is  set  equal  to  the  desired 
parking  orbit  radius.  Otherwise  the  program  is  a standard  conic 
program. 
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24.  Subroutine  HYPSV 


Purpose : This  program  computes  the  position  and  velo city 

vectors  in  ecliptic  and  equatorial  coordinates  and  time  from 
periapsis  at  a given  radius  on  a specified  hyperbola , 

Calling  sequence;  CALL  HYPSV  (R,  P,  E,  C3,  VHL,  GME,  RP,  PV, 
Q,  TA,  XEQ,  VEQ,  VS,  GAM,  TS,  XEG,  VEC,  ECEQ)  . 


Input/output : 


I/O 

Fortran 

name 

Math 

symbol 

Defini tion 

I 

R 

r 

Radius  at  which  state  is 
desired 

I 

P 

Semilatus  rectum 

I 

E 

e 

Eccentricity 

I 

C3 

S 

Energy 

I 

VHL 

\l 

Hyperbolic  excess  velocity 

I 

GME 

jolp 

Gravitatio nal  constant  of 
primary 

I 

RP 

Periapsis  radius 

I 

PV(3) 

p 

Unit  vector  to  periapsis 
from  pr imary 

I 

Q(3) 

v\ 

Q 

Unit  vector  normal  to  P in 
plane  or  orbit 

0 

TA 

V 

True  anomaly  at  given  radiu 

0 

XEQ(3) 

X 

eq 

Position  vector  at  given  radius 
(equatorial  coordinates) 

0 

VEQ(3) 

V 

eq 

Velocity  vector  at  given  radius 
(equatorial  coordinates) 

0 

VS 

Speed  at  given  radius 

0 

GAM 

7 

Path  angle  at  given  radius 
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0 

TS 

Time  (see)  from  periapsis  to 
radius 

0 

XEC(3) 

Position  vf.ctor  at  given 
radius  (ecliptic  coordinates) 

0 

VEC(3) 

Velocity  vector  at  given 
radius  (ecliptic  coordinates) 

I 

ECEQ(3) 

^GEQ 

Transformation  matrix  from 
ecliptic  to  equatorial 
coordinates 

Subprograms  required:  none. 


Approximate  storage  required  (octal)' : 500 . 

Discussion:  This  program  is  a standard  conic  program. 
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25.  Subroutine  IHPUTZ 


Purpose:  This  subroutine  is  responsible  for  converting  the 

input  informatiori  for  the  virtual  mass  program  into  variables 
compatible  with  the  rest  of  the  virtual  mass  subroutines. 

Calling  sequence:  CALL  INPUTZ  (RS"  NTP"  IPRINT) , 


Input/ output: 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RS(6) 

X 

Heliocentric  ecliptic  coor- 
dinates of  the  vehicle  at 
the  ini tia 1 time . 

I 

NTP 

i- 

Code  number  of  the  target 
planet . 

I 

IPRINT 

An  internal  code  used  to 
determine  if  the  printing 
of  initial  information  is 
desired . 

Subprograms  required:  NEWPGE,  SPACE,  TIME. 


Approximate  storage  required  (octal):  520. 

Discussion:  This  routine  converts  all  input  information  into 

the  proper  units  in  addition  to  setting  the  correct  variable  names 
and  printing  the  initial  information  if  desired.  If  the  input 
variable  IPRINT  = 0,  the  initial  data  will  be  printed.  Other- 
^‘^ise,  no  initial  printout  will  occur. 
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26 . Subroutine  JACOBI 


Purpose;  The  eigenvalues  and  eigenvectors  of  a given  matrix 
are  computed  and  returned. 

Calling  sequence:  CALL  JACOBI  (A,  W2,  V,  N,  FOB). 

Input /output: 


I/O 

Fortran  name 

Math  symbol 

Definition 

I 

A(l) 

A 

Input  matrix  to  be  diagonalized 
(will  be  destroyed) . 

0 

W2(l) 

Output  vector  of  eigenvalues. 

0 

V(l) 

Output  matrix  of  eigenvectors 
[size  (N,  N)"]  . 

I 

N 

n 

Dimension  of  square  matrix  A. 

I 

FOB 

Final  off-diagonal  annihilation 
value . 

Subprograms  required : None . 

Approximate  storage  required  (octal):  440. 


Discussion:  The  subroutine  uses  the  threshold  version  of 

the  Jacobi  method  for  computing  eigenvalues  and  eigenvectors  of 
A.  The  A matrix  should  be  real  and  symmetric. 
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27.  Subroutine  LAMB 

Purpose:  This  program  solves  for  heliocentric  edlptical 

transfer  orbits  that  are  specified  by  an  initial  radius » a final 
radius,  a central  angle,  and  a time  of  flight. 

Calling  sequence:  CALL  LAMB  (RL,  RP,  PSI,  TP,  ®I,  LOC,  NTYS, 

A,  E,  P,  VL,  VP). 


Input /output: 


I/O 

Fortran  name 

Math  S3mibol 

. Definition 

I 

RL 

Heliocentric  launch  planet  radius 

1 

RP 

Heliocentric  target  planet  radius 

I 

PSI 

f 

Transfer  angle,  radi 

I 

TP 

^f 

Time  of  flight,  days 

I 

GM 

y 

Gravitational  constant  of  sun 

0 

LOC 

Flag  indicating  whether  iterative 
process  converged  (LOC  4)  or 
failed  (LOC  5). 

I 

NTYS 

NTYS  = 1 for  0 < t < 180® 
= 2 for  180®  < t < 360® 

0 

A 

a 

Semimajor  axis  of  heliocentric 
ellipse 

0 

E 

e 

Eccentricity  of  heliocentric  el- 
lipse 

0 

P 

P 

Semilatus  rectum  of  heliocentric 
ellipse 

0 

VL 

True  anomaly  at  launch,  radi 

0 

VP 

^p 

True  anomaly  at  arrival,  radi 

Subprograms  required:  None. 


Approximate  storage  required  (octal):  1100. 

Discussion:  This  program  is  a simplified  version  of  the  Lam- 

bert-theorem  program  LMC  discussed  in  reference  1.  LAMB  does 
not  ccmipute  hyperbolic  cases;  however,  since  energy  limitations  do 
not  allow  heliocentric  hyperbolic  transfers  from  Earth  launch  this 
does  not  seem  a severe  restriction. 
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Computational  logic : 


28 « Subroutine  MATIN 


Purpose;  This  subroutine  computes  the  inverse  of  the  input 
matrix. 

Galling  sequence;  CALL  MATIN  (A,  R,  N) . 

Input / output ; 


I/O 

Fortran  name 

Math  symbol 

Definition 

I 

A(l) 

A 

Matrix  that  is  to  be  inverted. 

0 

R(l) 

R 

Inverse  of  matrix  A. 

I 

N 

n 

Size  of  matrix  A. 

Subprograms  required ; None . 

Approximate  storage  required  (octal) ; 1610 . 


Discussion;  The  subroutine  uses  the  bordering  method  of  ma- 
trix inversion.  Matrices  A and  R may  share  the  same  loca- 
tions in  which  case  A is  destroyed. 
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29.  Subroutine  MENO 


Purpose:  The  measurement  noise  matrix  is  determined  and  re~ 

turned  to  the  basic  cycle.  Alternately,  the  actual  measurement 
noise  may  be  determined. 

Calling  sequence:  CALL  MENO  (MMCODE,  ICODE) . 


Input /output : 


I/O 

Portran  name 

Definition 

I 

MMCODE 

Measurement  model  code. 

I 

ICODE 

Internal  code  used  to'  distinguish 

between  the  two  alternative  listed 

above . 

Subp TO  grams  required : None . 


Approximate  storage  required  (octal):  140. 

Discussion:  The  measurement  noise  is  input  for  each  type  of 

measurement.  MENO  chooses  the  correct  value  according  to  MMCODE 
and  places  it  in  the  appropriate  location.  If  ICODE  ~ 0,  MENO 
computes  the  measurement  noise  matrix,  R,  for  both  the  error 
analysis  and  simulation  modes.  However,  if  the  actual  measurement 
noise  matrix,  AR,  is  desired  for  the  simulation  mode,  ICODE  = 1. 
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30.  Subroutine  MUND 


Purpose:  MUND  is  responsible  for  computing  the  augmented  por- 

tion of  the  state  transition  matrix  when  the  gravitational  constant 
of  the  Sun  or  of  the  target  planet  has  been  augmented  to  the  basic 
state  vector. 

Calling  sequence;  CALL  MUND  (RI,  RF,  POSS) . 


Input / output ; 


I/O 

Fortran  name 

Math  symbol 

Definition 

I 

RI(6) 

Position  and  velocity  of  the  vehi- 
cle at  the  beginning  of  the  time  - 
interval. 

I 

RF(6) 

^^f 

Position  and  velocity  of  the  vehi- 
cle at  the  end  of  the  time  inter- 
val . 

I 

POSS 

r 

Distance  of  the  vehicle  from  the 
target  planet  at  the  initial  time. 

Subprograms  required:  NTM, 


Approximate  storage  required  (octal):  240. 

Discussion:  A numerical  differencing  technique  is  used  to 

compute  that  augmented  portion  of  the  state  transition  matrix 
which  relates  to  the  gravitational  constants  of  the  Sun  and  of 
the  target  planet.  The  amount  by  which  the  gravitational  con- 
stant of  either  body  is  altered  may  be  input  as  data  or  in  their 
absence,  the  program  will  assume  the  values  specified  in  DATA. 
The  portion  of  the  state  transition  matrix  relating  deviations 
of  the  gravitational  constant  of  the  target  planet  will  be  as- 
sumed zero  until  the  vehicle  approaches  a distance  from  the  tar- 
get planet  of  six  times  the  sphere  of  influence  of  the  planet . 
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31.  Subroutine  NAVM 


Purpose : The  navigation  module  propagates  the  covarianee  ma- 

trix from  the  time  of  the  last  measurement  or  event  to  the  pre- 
sent through  the  use  of  the  standard  Kalman  algorithm. 

Calling  sequence:  CALL  NAVM  (NR,  ICODE) . 


Input /output : 


I/O 

Fortran  name 

Definition 

I 

NR 

Number  of  rows  in  the  measurement 
noise  matrix. 

I 

ICODE 

Internal  code  which  determines  if 
a measurement  is  being  processed 
(see  dicussion) . 

Subprograms  required:  MATIN. 


Approximate  storage  required  (octal) : 470 . 

Discussion:  The  standard  Kalman  filtering  equations  are 

used  to  propagate  the  covariance  matrix  P . 

\ ^ \-lj  “ ®k,  k-1  \-l  k-1  k-1 

If  ICODE  = 1,  no  measurement  is  being  processed  and  P,  = is 

K.  K. 

returned  as  the  covariance  matrix  at  time  t,  . However,  if  a 

k ’ 

measurement  is  indeed  being  processed,  ICODE  = 0 and  P^  is  cal- 
culated . 

Note:  If  no  measurement  is  being  processed  (as  in  an  event)  the 

calling  sequence  should  be  CALL  NAVM  (1,  1)  as  the  value  of  NR 
is  unimportant,  but  must  appear. 
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32 , Subroutine  NDTM 


Purpose:  The  numerical  differencing  technique  is  used  to  com- 

pute the  unaugmented  porcion  oB^the  state  transition  matrix, 

r 

Calling  Sequence:  GALL  NDTM  (RI,  RF)  . 


Input /output: 


I/O 

Fortran 

Name 

Math 

Symbol 

Definition 

I 

I 

RI(6) 

RF(6) 

X. 

1 

Position  and^  velocity  of  the  vehi- 
cle at  the  beginning  of  the  time 
interval . 

Position  and  velocity  of  the  state 
vector  at|  th^  of  the  time  inter- 

val . t'X 

" 

Subprograms  Required : NTM . 


Approximate  storage  required  (octal):  220. 

Discussion:  The  numerical  differencing  technique  used  to  com- 

pute the  unaugmented  portion  of  the  state  transition  matrix  con- 
sists of  altering  each  component  of  the  initial  state  vector  in 
its  turn  and  finding  the  final  state  vector  corresponding  to  the 
new  initial  conditions.  This  results  in  obtaining  six  ”new**  state 
vectors  at  the  final  time,  one  corresponding  to  each  altered  ini- 
tial component.  The  state  transition  matrix  then  consists  of  the 
differences  in  each  component  of  the  final  state  vector  divided 
by  the  amount  by  which  the  initial  component  was  altered. 
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33.  Subroutine  NEWFGE 


Purpose:  This  subroutine  is  used  in  conjunction  with  the 

virtual  mass  program  when  print-out  of  trajectory  information 
is  desired.  NEWPGE  prints  the  appropriate  heading  at  the  top 
of  each  page. 

Calling  sequence:  CALL  NEWPGE. 

Inp  u t / o u t p u t : Non  e . 

Subprograms  required:  None  - 

Approximate  storage  required  (octal):  100. 

Discussion:  If  a new  page  is  desired  in  the  printed  output, 

NEWPGE  is  called-  It  allows  the  printer  to  skip  to  the  top 
of  the  next  page  and  prints  the  virtual  mass  heading.  No  com- 
putations relating  to  the  technique  are  accomplished. 
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34.  Subroutine  NJEXN 


Purpose;  This  program  computes  patched  conic  injection  con- 
ditions corresponding  to  a mission  specified  by  a launch  date 
and  planet,  and  a target  data  and  planet. 

Calling  sequence:  CALL  NJEXN  (JC3,  JUT,  NDD,  NTT,  DDJD, 

TTJD,  HHRl,  HHVl,  S). 


I/O 

Fortran  name 

Definition 

I 

JC3 

Flag  indivCating  whether  biased 
(JC3=1)  or  unbiased  (JC3=0) 
condition  are  generated 

I 

JINJT 

Flag  indicating  whether  in- 
jector time  is  updated  (=0) 
or  not  (=1) 

I 

NDD 

Index  specifying  launch  planet 

I 

NTT 

Index  specifying  target  planet 

I-O 

DDJD 

Julian  date  of  launch  (if 
JlNJIr=0,  output  as  injection 
time) 

I 

TTJD 

Julian  date  of  encounter 

0 

HHRl (3) 

Injection  position  vector 
( 1 aunch  plane  t e c 1 i p t ic ) 

0 

HHVl (3) 

Injection  velocity  vector 
(launch  planet  ecliptic) 

0 

S(3) 

Excess  velocity  at  target 
planet 

Subprograms  required:  AUX,  CONST,  EPHEM,  HYPER,  HYPSY, 

LAMB,  ORB,  0T2,  PLANE,  POSVE,  TIME. 

Approximate  storage  requied  (octal);  1500. 

Discussion:  The  NJEXN  program  is  esstentially  equivalent  to 

the  patched  conic  trajectory  portion  of  the  SPARC  program  de- 
veloped in  reference  1,  A summary  of  the  analytical  basis  of 
this  program  is  provided  in  Volume  II.  'S^o  main  options  have 
been  added  to  the  SPARC  program  in  the  NJEXN  program. 
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NJEXN  generates  either  of  two  quite  similar  sets  of  injection 
conditions.  The  first  set  specified  by  setting  the  flag  JC3=1 
is  a good  zero-iterate  for  n~body  trajectory  targeting  (and  is 
equivalent  to  the  SPARC  conditions);  the  second  set  determined 
when  JC3=G  is  closer  to  the  condisions  required  for  a targeted 
patched  conic.  The  distinguishing  computation  of  the  two  options 
is  in  the  calculation  o f the  velocity  at  infinity  before  de- 

termining the  near  launch  planet  hyperbola  (HYPER).  If  JC3=1, 
is  set  equal  to  where  is  the  magnitude  of  the 

difference  between  the  heliocentric  ellipse  velocity  vector  and 
the  launch  planet  orbital  velocity  vector.  This  is  no  error 
(in  the  patched  conic  sense)  since  the  speed  is  actually 

desired  at  the  sphere  of  influence  of  the  planet  where  the  helio- 
centric patching  occurs.  Thus,  the  actual  desired  velocity  at 
infinity  (for  a patched  conic)  becomes  V = ^ 

This  is  the  excess  velocity  used  when  JG3=0,  which  yields  im- 
proved injection  velocities  for  a patched  conic  trajectory. 

The  second  option  is  provided  by  a flag  jlNJT.  If  JINJT  =0, 
the  initial  date  is  updated  within  the  program  to  the  injection 
time.  If  J1NJT=1  the  initial  time  is  left  as  its  original  value. 
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Computational  logic: 


(EMtEft) 


SET  LAUMCjH  profile  OEtERMlNEP  BY 
TAR6ET  PLANET  (COtASr) 


DETERMINE  POSITION  ANP  YEUXITY  OF 
LAUNCH  PLANET  AT  INITIAL  THE  AMO 

TAR&6T  planet  at  FINAL  TiHE  % ,% 

(oRB,6PMEHV  _Ll_ 


COMPOTE  MATRIX  ECEQ  fOR  iRANSiORMATlOH 
i FROM  ECLIPTIC  10  BSlUAlORlAL  COORDINATES 

^ - ! 
OETEftHlWe  HEUOCEVJIRIC.  TRANSFER  WITH 

states  ■«;  1^1  ^ lav»jch  and  at 

FINAL  TIME  (PLANE)  LAMB) 


COMPOTE  NYPER80UC  E«1ESS  VEL 

AND  ASSOCIATED  tJAOA  AT  TAR&ET  PlAIOET 


COMPOTE  rtYPERBOUC  EXCESS  VEL 

ANb  Associated  daia  at  uonch  planet 


X3- ? 


CQggECT  \4tL  BY^ 

'•W-* 
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35*  Subroutine  NTH 


Purpose:  N1H  acts  as  an  intermediate  routine  between  the 

program  calling  for  trajectory  information  and  the  virtual  mass 
trajectory  program  itself.  This  subroutine  sets  various  codes 
according  to  which  trajectory  is  being  run  and  what  information 
is  desired  on  return  to  the  calling  program. 

Calling  sequence:  CALL  NlM  (RI,  RF,  NTMG,  ICODE). 


Input/ output : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RI(6) 

X. 

1 

State  vector  of  the  vehicle  at 
the  beginning  of  the  time  interval 

0 

RF(6) 

IX! 

Position  and  velocity  at  the  final 
time 

I 

NTMG 

Nominal  trajectory  module  code 
that  determines  which  type  of 
trajectory  program  is  to  be  used. 
(Note:  only  the  virtual  mass 

technique  is  supplied  with  this 
program.  However,  with  little  ef- 
fort any  trajectory  program  may  be 
added  as  an  extra  option) 

I 

ICODE 

i 

Internal  code  that  determines 
which  trajectory  is  being  run  and 
what  information  is  desired. 

Subprograms  required:  VMP. 


Approximate  storage  requied  (octal):  1630. 

Discussion:  NTH  may  be  used  to  generate  any  of  the  three 

trajectories  that  are  needed  in  the  simulation  mode  of  STEAP  -- 
the  original  nominal  trajectory,  the  most  recent  nominal  trajec- 
tory, and  the  actual  trajectory. 

The  input  variable  ICODE  is  used  to  distinguish  between  these 
trajectories.  It  is  unimportant  to  the  virtual  mass  technique 
which  trajectory  is  being  computed.  However,  it  is  important  to 
keep  them  separated  so  that  the  proper  codes  are  set  that  check 
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for  approaching  the  sphere  of  influence  of  the  target  planet  and 
reaching  closest  approach.  It  is  also  important  to  keep  separate 
the  conditions  at  which  these  occur  for  each  trajectory.  The 
following  list  descirbes  ICODE  completely. 

ICODE  = 3,  NIM  will  check  to  see  if  the  sphere  of  influence 
and/or  closest  approach  has  been  reached  on  the 
actual  trajectory-  If  not,  VMP  will  check  for  these 
conditions  and  on  encountering  either,  NIM  places 
the  conditions  in  special  storage  locations  so  they 
will  be  saved  for  future  reference. 

ICODE  = 2,  NXM  performs  the  same  operations  as  described 
above  for  the  most  recent  nominal  trajectory, 

ICODE  = 1,  NTM  again  checks  for  sphere  of  influence  and 

closest  approach  as  above  for  the  original  nominal 
trajectory. 

ICODE  = 0,  the  only  important  information  in  this  situation 
is  the  state  vector  at  the  end  of  the  time  interval. 
Therefore,  NTM  does  not  check  to  see  if  closest 
approach  or  sphere  of  influence  is  encountered. 

This  might  occur  in  numerical  differencing,  for 
example. 

ICODE  = -1,  it  is  important  to  know  if  sphere  of  influence 
or  closest  approach  is  reached  on  the  original 
nominal  trajectory.  However,  it  is  not  desired 
that  the  information  be  stored  for  future  use. 

This  situation  occurs  in  the  guidance  event. 

ICODE  - -2,  the  same  comments  may  be  made  as  if  ICODE  = -1, 
except  this  is  on  the  most  recent  nominal  trajec- 
tory. 

ICODE  = -3,  again,  this  value  of  ICODE  is  treated  the  same 
as  is  ICODE  =^-l,  for  the  actual  trajectory. 

It  should  be  pointed  out  that  the  only  difference  between 
the  original  nominal  trajectory  and  the  most  recent  nominal  trajec- 
tory is  that  the  most  recent  nominal  trajectory  may  be  updated 
at  any  time.  However,  the  physical  constants,  the  ephemeris, 
and  other  pertinent  information  are  exactly  the  same  in  the  two 
trajectories.  This  is  not  true  of  the  actual  trajectory.  There 
may  be  biases  in  the  ephemeris , in  the  gravitational  constants 
of  various  bodies  involved,  or  more  bodies  may  be  added  to  the 
analysis  for  the  actual  trajectory,  NTM  handles  the  logic  in- 
volved for  all  of  these  options. 
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Computational  logic 
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36.  Subroutine  ORB 


Purpose:  The  orbital  elements  --  inclination,  longitude  of 

ascending  node,  longitude  of  perihelion,  eccentricity,  and  length 
of  semimajor  axis  --  are  computed  for  a specified  planet  at  a 
given  time. 


Galling  sequence:  CALL  ORB  (IP,  D). 

Input/ output: 


I/O 

Fortran  name 

Definition 

I 

IP 

i 

'r 

j 

Code  number  of  planet 

- 1 , Sun 

= 2,  Mercury 
= 3,  Venus 

- 4,  Earth 

- 5,  Mars 

= 6,  Jupiter 
= 7,  Saturn 
= 8,  Uranus 
=9,  Neptune 
= 10,  Pluto 
= 11,  Earth's  Moon 

I 

D 

Julian  date,  epoch  1900  of  the  time 
at  which  the  elements  are  to  be  cal- 
culated. 

Subprograms  required:  None. 

Approximate  storage  required  (octal):  250. 


Discussion:  The  above  mentioned  elements  are  computed  as  a 

time  series  expansion  as  described  in  reference  1. 


37.  Subroutine  0T2 


Purpose:  This  program  is  responsible  for  converting  the 

point-to-point  injection  conditions  to  convenient  units  and  print 
ing  the  resulting  data  in  a format  similar  to  that  of  the  SPARC 
program. 

Calling  sequence:  CALL  0T2  (XL,  XP,  DDRMl,  CCVMl,  CCPSI,  CCA 

CCI,  DDVMl,  TTRM7,  TTVM7 , CCXAl , CCTA7 , TL,  TINJ,  NTDO,  TF,  NTTT, 
C3,  HHUM2,  DLAQ,  RALQ , RJ,  HHVQM,  PTH,  VHP,  DPA,  RAP,  HHE,  DDAZ, 
TB,  PHI,  THI,  RAI,  AZI,  TC,  CCE)  . 


Input/ output : 


I/O 

Fortran 

name 

Math 

symbol 

— ' 

Definition 

I 

XL(6) 

State  of  launch  planet  at  initial 
date 

I 

XP(6) 

State  of  target  planet  at  target 
date 

I 

DDRMl 

^1 

Heliocentric  distance  to  launch 
planet  at  initial  time 

I 

CCVMl 

\p 

Heliocentric  speed  of  launch 
planet  at  initial  time 

I 

CCPSI 

Central  angle  of  heliocentric 
conic 

I 

CCA 

a 

Semimajor  axis  of  heliocentric 
conic 

I 

CCI 

i 

Inclination  of  heliocentric  conic 

.1 

DDVMl 

h 

Speed  on  heliocentric  conic  at 
initial  time 

I 

TTRM7 

^2 

Heliocentric  distance  to  target 
planet  at  final  time 

I 

1 

TTVM7 

Heliocentric  speed  of  target 
planet  at  final  time 

1 

I 

CCTAl 

True  anomaly  on  heliocentric 
conic  at  initial  time 

I 

CCTA7 

^2 

True  anomaly  on  heliocentric 
conic  at  final  time 

I 

TL 

Time  of  launch  on  launch  date, 
hours 

I 

TINJ 

Time  of  injection  or  launch 
date,  hours 

I 

NTDD(5) 

Year -month-day-hour -min  of 
initial  time 

I 

TF 

Flight  time 

I 

NTTT(5) 

Year -month-day-hour ~mtn  of 
final  time 

I 

C3 

% 

Energy  of  hyperbolic  orbit 

I 

HHVM2 

^HE 

Hyperbolic  excess  velocity  at 
launch  planet 

1 

DLAQ 

Declination  of  HHVM2 

I 

RALQ 

Right  ascension  of  HHVM2 

I 

RJ 

Injection  radius 

I 

HHVQM 

Injection  velocity 

I 

PTH 

r 

Injection  path  angle 

I 

VHP 

V 

HP 

Hyperbolic  excess  velocity  at 
target  planet 

I 

DPA 

6 

Declination  of  VHP 

I 

RAP 

a 

Right  ascension  of  VHP 

I 

HHE 

e 

Eccentricity  of  hyperbola 

I 

DDAZ 

2 

Launch  azimuth 

I 

TB 

Time  from  launch  to  injection 

I 

PHI 

Injection  latitude 

I 

THI 

Injection  longitude 

I 

RAI 

©j 

Injection  right  ascension 

I 

AZI  ; 

Injection  azimuth 

I 

TC 

t 

c 

Coast  time 

I 

1 

CCE 

e 

Heliocentric  eccentricity 

Subprograms  required:  None. 

Approximate  storage  required  (octal);  1000. 

Discussion:  The  program  simply  prints  the  point  to  point 

data  in  a concurrent  form. 
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38.  Subroutine  OUTl 


Purpose:  This  program  is  responsible  for  the  output  of  pre- 

liminary data  before  the  numerical  differencing  cycle  is  begun. 

Calling  sequence;  CALL  OUTl  (ITARG,  INJEK,  NITS,  NB,  IDATl, 
SI,  IDAT2,  S2,  IDAT3,  S3,  BUT,  BDR,  DINCL,  RCA,  TOLl,  T0L2,  T0L3 , 
ACC,  RS,  INPR,  DELTP,  NBOD,  ISKEJ,  AC,  MIDI). 


Input / out  put : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

ITARG 

Targeting  option  flag 

I 

INJEK 

Injection  option  flag 

I 

NITS 

Maximum  allowable  iterations 
at  final  level 

I 

NB(NBOD) 

Indices  of  gravitational 
bodies 

I 

IDATl (5),  SI 

Date  of  injection  (year, 
month , day , hour , minute , 
sec) 

I 

IDAT2(5),  S2 

Date  at  sphere  of  influence 

I 

IDAT3(5),  S3 

Date  of  closest  approach 

I 

BDT 

B-T 

Impact  plane  parameter 

I 

BDR 

B-R 

Impact  plane  parameter 

I 

DINCL 

^CA 

Inclination  at  closest 
approach 

I 

RCA 

*^CA 

Radius  at  closest  approach 

I 

TOLl,  T0L2, 
T0L3 

Acceptable  tolerances  on 
target  constraints 

I 

ACC 

Final  accuracy  level 

I 

RS(6) 

Injection  state  (position 
and  velocity  vectors) 

I 

INPR 

Integration  increments  be- 
tween printouts  in  final 
integration 
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I 

DELTP 

Days  between  printouts  in 
final  integration 

I 

NBOD 

Ntpber  of  gravitational 
bodies 

I 

ISKEJ 

Number  of  accuracy  levels 
in  targeting  schedule 

I 

AC(ISKEJ) 

Accuracy  levels 

I 

MIDI 

i 

Number  of  iterations  made  at 
intermediate  accuracy  levels 

Subprograms  required:  None. 


Approximate  storage  required  (octal):  1400. 


Discussion: 
parameters . 


The  program  simply  prints  out  specific  program 

V, 
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39 . Subroutine  PARTL 


Purpose:  The  partial  of  B*T  and  B»R  with  respect  to  the 

position  and  velocity  bf  the  vehicle  are  computed. 

Calling  sequence:  CALL  PARTL  (R,  V,  B,  BDT,  BDR,  PBT,  PBR) • 

Input/ output : 


I/O 

Fortran 

name 

Def in it ion 

I 

R(3) 

Position  of  vehicle  relative  to  planet 

I 

V(3) 

Velocity  of  vehicle  relative  to  planet 

0 

B 

0 

BDT 

B*T 

0 

BDR  / 

) 

B*R 

0 

PBT(6) 

Partial  of  B*T  with  respect  to  R and  V 

0 

PBR(6) 

Partial  of  B*R  with  respect  to  R and  V 

Subprograms  required : None . 

Approximate  storage  required  (octal):  330. 


Discussion:  This  subroutine  determines  the  partial  deriva- 
tives of  B*T  and  B-R  with  respect  to  the  state  vector.  The 
general  B- plane  equations  are  given  by, 


B-T 


B.R 


XV  - vx 


(^xx  +-  vv)z 

. 1 

(.2  , .2] 

\x  + V ^ 

/.2  , .2] 
U + y i 

H/2  1 

X -2  . -2] 

+ y + Z j 

|l/2 
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U 2 P Y 2 = ^ 2 -h  V 2 V >/  3 ~ (^  u s/  i ^ 
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THfe 

b T/^  r e 
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X 

YT  / U 
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- X / 0 

p8  r ^ 
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o . o 

P&T.^ 

0 

o 

J» 

X “ 

X i /i/sJ 

P8R; 

- IL^^(.V2XX 

P 6 R ^ y i / KJ  SI 
PBR^^  -V>/$ 


- X A-  U2PV2  it  f?uj  /UV3 

- i0^2CV2it  Y~'^  ^ i) 
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40.  Subroutine  PCIM 


Purpose:  This  routine!  computes  the  unaugmented  portion  of 

the  state  transition  matrix  using  the  patched-conic  technique. 

Calling  sequence:  CALL  PCIM  (RI)  . 


Input /out put : 


Subprograms  required:  C0NG2 , EPHEM,  ORB. 


Approximate  stdrage  required  (octal):  230.- 

Discussion:  The  subroutine  checks  each  planet  being  considered 

in  the  analysis  in  turn  and  decides  if  the  vehicle  at  the  initial 
time  is  inside  its  sphere  of  influence.  If  it  is  not  inside  the 
sphere  of  influence  of  any  planet  the  governing  body  is  considered 
to  be  the  Sun.  After  determining  the  governing  body,  PCTM  calls 
the  routine  C0NC2  to  compute  the  unaugmented  portion  of  the  state 
transition  matrix. 
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Computational  logic: 


3 


USc.  i^RTO-teO  COHIC 

i-CR  ^ ,C- stain 


CftUL  CtpNCZ 
ReTUdW  $ 
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41.  Subroutine  PECEQ 


Purpose:  This  program  computes  the  matrix  defining  the  trans- 

formation from  planet  centered  ecliptic  coordinates  to  planet 
centered  equatorial  coordinates  as  a function  of  the  particular 
planet  and  time. 


Calling  sequence:  CALL  PECEQ (NP,D,EC£Q) . 

In put /output : 


I/O 

Fortran 

name 

Math 
symbo 1 

Definition 

I 

NP  / 

Index  of  planet 

I 

D / 

Julian  date  (referenced  to  1900) 

0 

ECEQ(3,3) 

M 

ECEQ 

Transformation  matrix 

Subprograms  required:  EULMX. 

Approximate  storage  required  (octal):  400 


Discussion:  The  program  sets  four  angles  for  the  computation 

of  the  matrix.  The  angles  and  their  definitions  are: 

XI  - the  inclination  of  the  orbital  plane  to  the  ecliptic; 

XL  - the  longitude  of  the  ascending  node  of  the  orbital 
plane  to  the  ecliptic; 

XIQ  - the  inclination  of  the  planet  equator  to  the  orbital 
plane ; 

XLQ  - the  longitude  of  the  ascending  node  of  the  planet 
equator  to  the  orbital  plane. 

The  angles  XI  and  XL  are  specified  as  functions  of  time  for 
all  planets.  The  angles  XIQ  and  XLQ  are  set  equal  to  zero 
for  all  planets  except  the  Earth  and  Mars  where  they  are  set  to 
nonzero  constant  values.  These  angles  may  be  easily  changed  when 
better  values  are  learned. 


42.  Subroutine  PLANE 


Purpose:  This  program  calculates  information  pertaining  to 

the  heliocentric  plane  used  in  generating  the  injection  condi- 
t ions . 

Calling  sequence:  CALL  PLANE(XL,  XP,  HCA,  HGW,  HCN,  NTYS) . 


Input/output : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

XL(6) 

In i t ia 1 s t a t ^ (posit ion , ve 1 o c it  y 
of  launch  planet 

Final  state  o|  target  planet 

I 

XP(6) 

0 

HCA 

t 

Heliocentric  central  angle 

i 

0 

HCI 

Inclination  of  heliocentric 
plane 

0 

HCW 

Longitude  of  heliocentric  plane 

0 

HCN (3) 

Normal  to  heliocentric  plane 

0 

NTYS 

Flag  set  = 1 for  0 < t < 180, 
= 2 for  180  < t < 360° 

Subprograms  required:  None. 


Approximate  storage  required  (octal)  : 400 . 

Discussion:  This  is  an  elementary  program  that  is  easily 

understood  from  the  program  listing. 


43 . Subroutine  PLHD 


Purpose;  The  portion  of  the  state  transition  matrix  corre- 
sponding to  the  state  vector  in  which  the  ephemerls  biases  of  the 
target  planet  are  augmented  is  computed  in  PLND. 

Calling  sequence:  CALL  PLND  (RI,  RP) . 


Input /output: 


Fortran 

"Math 

I/O 

name. 

symbol 

Definition 

I 

RI(6) 

I \ 

Position  and  velocity  of  vehicle  at 
beginning  of  interval. 

I 

RF(6)  ^ 

1. 

^f 

Position  and  velocity  of  vehicle  at 
end  of  interval. 

Subprograms  required:  NTM. 


Approximate  storage  required  (OCTAL):  440. 

Discussion:  The  numerical  differencing  method  Is  used  to  gen- 

erate the  6x3  portion  of  the  state  transition  matrix  correspond- 
ing to  the  augmented  state  vector.  The  ephemerls  biases  that  are 
augmented  are  the  semimajor  axis,  eccentricity,  and  Inclination. 
The  values  of  these  used  by  the  virtual  mass  program  are  altered 
in  turn  by  previously  specified  increments  and  the  differences  in 
the  final  state  vector  are  noted.  Finally,  the  state  transition 
matrix  is  computed  as  the  differences  in  each  component  of  the 
state  vector,  divided  by  the  amount  by  which  the  appropriate  con- 
stant was  altered. 


Computational  logic: 


K = Z(ntp-Z') 
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44.  Subroutine  POSVL 


Purpose;  This  program  calculates  the  vector  position  and  ve- 
locity corresponding  to  a specified  mean  anomaly  on  a specified 
ellipse. 

Calling  sequence  ; CALL  POSVL  (A,  E,  XI  , WC  , W,  AM,  WP  , SP,  R, 
VP,  V,  CMS). 


Input/ output ; 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

A 

a 

Semimajor  axis 

I 

E 

e 

Eccentricity 

I 

XI 

1 

Inclination 

I 

WC 

Q 

Longitude  of  ascending  node 

I 

w 

CO 

Argument  of  periapsis 

I 

AM 

M 

Mean  anomaly 

I 

WP(3) 

w 

Normal  to  plane 

0 

RP(3) 

Position  vector  (heliocentric  ecliptic) 

0 

R 

Position  magnitude 

0 

VP  (3) 

Velocity  vector  (heliocentric  ecliptic) 

0 

V 

Speed 

I 

GMS 

Gravitational  constant  of  sun 

Subprograms  required;  None. 

Approximate  storage  required  (octal):  600. 

Discussion;  The  program  solves  Kepler's  equation  iteratively 
to  Compute  the  eccentric  anomaly.  The  vector  position  and  veloc- 
ity are  then  computed  by  standard  conic  formulas. 
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45.  Subroutine  PREP 


Purpose:  This  sub routine|  is  'espousible  for  the  logic  at  a 

prediction  event  in  the  error*  analysis  mode  of  STEAP,  It  computes 
the  matrix  of  uncertainties  iih  _tie|  state  vector  when  a prediction 
is  made  from  a stated  time  to  anotlier  specified  time. 

Calling  sequence:  CALL  PREi''  (RI,  TBVN)  . 


Input/output:  \ 

\ 


Fortran 

Math 

1/0 

name 

symbol 

Definition 

I 

RI(6) 

X 

Position  and  velocity  of  the  vehi- 
cle at  the  time  of  the.  last  meas- 
urement or  ev^4t» 

I 

TEVN 

t 

ev 

The  trajectory  |time  of  the  predic- 
tion event.  \ 

Subprograms:  required:  DYNO,  HYELS , JACOBI,  NAVM,  NTM,  PSIM. 


Approximate  storage  required  (octal):  4260. 

Discussion:  In  PRED,  the  covariance  matrix  is  propagated  for- 
ward to  the  time  of  the  prediction  event,  in  EIGEN.  At 

this  time,  however,  an  additional  computation  is  made  that  propa- 
gates it  forward  to  the  time  to  which  one  is  predicting,  bp^. 

This  covariance  matrix  is  then  diagonalized  and  the  eigenvalues 
and  eigenvectors  are  printed.  The  program  then  returns  to  the 
' basic  cycle  for  processing  of  the  next  measurement  or  event. 
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46.  Subroutine  PRESIM 


Purpose;  The  routine  contains  the  logic  for  a prediction  event 
in  the  simulation  mode  of  STEAP. 

Calling  sequence:  CALL  PEESIM  (RI  , TEVN,  RIl) . 


Input /output: 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RI(6) 

X 

Original  nominal  state  vector  of  the 
vehicle  at  the  time  of  the  last  meas- 
urement or  event. 

I 

TEVN 

"ev 

Time  of  the  prediction  event. 

I 

RIl  (6) 

X 

j 

The  most  recent  nominal  state  vector 
at  the  time  of  the  last  measurement 
or  event. 

Subprograms  required:  DYNO,  HYELS,  JACOBI,  NAVM,  NTM,  PSIM. 

ApproKimate  storage  required  (octal) 5 4350 ♦ 

Discussion:  The  covariance  matrix  is  propagated  forward  from 

the  time  of  the  last  measurement  or  event  to  the  time  of  the  pre- 
diction event.  This  matrix  is  dlagonaliaed  and  the  eigenvalues, 
eigenvectors,  and  hyperellipsoids  are  computed  and  printed.  The 
correlation  coefficient  matrix  is  also  printed.  Then,  the  covari- 
ance matrix  is  propagated  forward  to  the  prediction  time,  t^j, 

and  again  diagonalized.  The  routine  then  returns  control  to  the 
basic  cycle. 

The  covariance  matrices  mentioned  above  are  based  on  the  most 
recent  nominal  trajectory  for  the  simulation  mode  rather  than  the 
original  trajectory  used  in' P RED  for  the  error  analysis  mode. 
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47  > Subroutirie  PRINT 


Purpose:  This  subroutine  is  responsible  for  printing  the 

virtual  mass  information  as  desired. 

Calling  sequence:  CALL  PRINT 

Input/output : None . 

Subprograms  required:  NEOTGE,  SPACE,  TIME. 

Approximate  storage  required  (octal):  1210. 

Discussion:  | The  printed  output  has  f our  sections  : 

1)  Spacecraft  information  giving  the  spacecraft  inertial 
trajectory; 

2)  Ephemeris  data  that  prints  the  position  and  velocity 
of  each  planet; 

3)  Spacecraft  relative  trajectories  in  which  the  position 
and  velocity  of  the  spacecraft  relative  to  each  planet 
is  printed; 

4)  The  virtual  mass  information  is  printed  In  which  the 
position  and  velocity  of  the  virtual  mass  is  given 
in  addition  to  the  position  and  velocity  of  the 
spacecraft  relative  to  the  virtual  mass,  the  Kepler 
vector,  the  eccentricity  vector,  the  virtual  mass  mag- 
nitude, and  the  magnitude  rate; 

5)  Finally,  the  position  and  velocity  of  the  virtual 
mass  relative  to  each  of  the  planets  is  printed. 
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48.  Subroutine  PRINTl 


Purpose:  This  routine  prints  a summary  of  the  trajectory 

generated  by  the  trajectory  mode  of  iiTEAP. 

Calling  sequence:  CALL  PRINTl  (Ri’)  . 


Input /output : 


I/O 

Fortran 

name 

Math 

symbol 

1 Definition 

I 

RF(6) 

X 

Position  and  velocity  of  the  vehi- 
cle at  the  final  time. 

I 


Subprograms  required:  TIME.  ^ 

Approximate  storage  required  (oc^al) : 1360. 

Discussion:  The  initial  and  final  posil^ion  and  velocity  of 

the  vehicle  is  printed  together  with  the  position  and  velocity  of 
the  vehicle  relative  to  each  planet  at the  final  time.  The  con- 
ditions at  closest  approach  and  on  encowtering  the  sphere  of  in- 
fluence are  printed.  > 
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49.  Subroutine  PB^NTa 

I 

Purpose!  The  pertinent  information  at  the  end  of  each  meas- 
urement is  printed  ih  this  routine. 

Calling  sequence:  CALL  PRINTS  (MMCODE,  NR). 

Input/output: 


I/O 

Fortran 

name 

Definition 

I 

MMCODE 

Code  that  determines  which  type  of  meas- 

ment  was  made. 

I 

NR 

; Number  of  rows  in  the  observation  ma- 

/ trix  H. 

f 

Subprograms _x.equJLred:  EPHEM,  ORB,  TIME. 


Approximate  s to age  required  (octal)  : 2320. 

Discussion:  Fq'r  a listing  of  the  printed  output  received  from 

this  routine  refer  to  Chapter  III. 


50.  Subroutine  PBINT4 


Purpose:  This  subroutine  prints  all  necessary  data  at  the 

end  of  each  measurement  in  the  simulation  mode. 

Calling  sequence:  CALL  PRINT4  (MMCODE,  NR). 


Input/output: 


I/O 

Fortran 

name 

Definition 

I 

MMCODE 

Measurement  code  that  determines  which 

type  of  measurement  was  taken 

I 

NR 

Number  of  rows  in  the  observation  iia- 

trix 

Subprograms  required:  EPHEM,  ORB,  TIME. 


Approximate  storage  required  (octal):  3710. 

Discussion:  An  outline  of  the  printed  output  for  which  this 

routine  is  responsible  is  given  in  Chapter  III. 


51.  Subroutine  PBNTS3 


J'Purpose;  This  sub routiiae' prints  a summary  of  the  error  anal- 
ysis mode.  ' 

' Calling;  sequence : CALL  PBNTS3  (RF)  . 


Input/output.: 


t/d 

i 

^ Fortran 
name 

5 

Math 

symbol 

Definition 

I 

1 RF(6) 

X 

Position  and  velocity  of  vehicle  at 
final  time 

i 

Subpiograms  required:  TIME 


? Approximate  storage  required  (octal):  2760. 

Discussion:  ' See  Chapter  III  for  a detailed  account  of  the 
printed  output  generated  by  PRNTS3. 


52 . Subroutine  PRNTS4 


Purpose:  A printout  summary  of  the  simulation  mode  is  pre- 

sented by  this  subroutine. 

Calling  sequence:  CALL  PRNlW  (RF,  RFl)  . 


Input /output : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RF(6) 

X 

Position  and  velocity  of  the 
cle  on  the  original  nominal 
jectory  at  the  final  time. 

vehi- 

tra- 

I 

RFl (6) 

X ‘ 

Position  and  velocity  of  the  vehi- 
cle oh  the  most  recent  nominal  tra- 
jectory at  the  final  time. 

Subprograms  required:  EPHEM,  ORB,  TIME. 


Approximate  storage  required  (octal):  6210. 

Discussion:  For  a description  of  the  printed  output  see 

Chapter  III. 
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53  ^ Subroutine  PSIM 


Purpose:  The  logic  for  computation  of  state  transition  matri- 

ces is  provided  by  this  routine. 

Calling  Sequence:  CALL  PSIM  (RI,  RF,  ISTMC) . 


Input /output : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RI(6) 

X. 

X 

Position  and  velocity  of  the  ve- 
hicle at  the  beginning  of  the 
interval 

I 

RF(6) 

Position  and  velocity  of  the  ve- 
hicle at  the  end  of  the  inter- 
val , 

I 

ISTMC 

A code  specifying  which  techni- 
que is  to  be  used  to  compute  the 
unaugmented  portion  of  the  state 
transition  matrix  (see  Chapter  II 
for  more  details) . 

Subprograms  Required:  C0MC2 , EPHEM,  MUND,  NDTM,  ORB,  PGTM, 

PLND . 

Approximate  storage  required  (octal):  360. 

Discussion:  A decision  is  made  through  the  use  of  ISTMC  as  to 

which  technique  will  be  used  to  compute  the  unaugmented  portion 
of  the  state  transition  matrix.  Then  the  proper  subroutine  is  called 
to  accomplish  this.  If  the  gravitational  constants  of  the  Sun  and 
the  target  planet  have  been  augmented  to  the  state,  the  subroutine 
MUND  is  called  to  calculate  the  corresponding,  portion  of  the  state 
transition  matrix.  Finally,  a check  is  made  to  determine  if  the 
ephemeris  biases  of  the  target  planet  have  been  augmented  to  the 
state  and,  if  so,  it  is  determined  whether  the  distance  of  the  ve- 
hicle from  the  target  planet  is  less  than  six  times  its  sphere  of 
influence,  in  which  case  the  subroutine  PLND  is  called  to  compute 
the  final  portion  of  the  state  transition  matrix.  If  the  vehicle 
is  farther  from  the  target  planet  than  six  times  its  sphere  of  in- 
fluence, that  portion  of  the  state  transition  matrix  is  considered 


54  > Subroutine  QUASI 

Purpose:  This  subroutine  contains  the  logic  required  for  the 

quasi-linear  filtering  event  in  the  simulation  mode  whose  purpose 
it  is  to  update  the  most  recent  nominal  trajectory  so  that  it  might 
correspond  more  closely  with  the  actual  trajectory. 

Calling  Sequence:  CALL  QUASI  (RI,  TEVN,  RII) . 


Input /output : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RI(6) 

X 

Position  and  velocity  of  the  vehi- 
cle on  the  original  nominal  tra- 
jectory at  the  time  of  the  last 
measurement  or  event 

I 

TEVN 

t 

ev 

Trajectory  time  of  the  quasi-li- 
near filtering  event. 

I 

RI1(6) 

j 

ic 

Position  and  velocity  of  the  vehi- 
cle on  the  most  recent  nominal  tra- 
jectory at  the  time  of  the  last 
measurement  or  event. 

Subprograms  required:  DYNO,  HYELS,  JACOBI,  NAVM,  NTM,  PSIM. 


Approximate  storage  required  (octal):  2270. 

Discussion:  At  a quasi-linear  filtering  event,  the  original 

nominal  trajectory  is  updated  by  using  the  most  recent  nominal 
estimate.  This  event  is  provided  as  a method  to  help  combat  di- 
vergence due  to  the  possible  invalidity  of  the  linearizing  assump- 
tion that  is  the  basis  for  the  estimation  algorithm.  The  general 
equations  for  updating  the  original  nominal  are  provided  in  Volume 
II  of  this  report. 


154 


55.  Subroutine  KNUM 


Purpose:  RNUM  is  a function  subprogram  whose  purpose  it  is 

to  return  random  numbers  on  a normal  distribution  with  mean  zero 
and  standard  deviation. 


Calling  sequence:  A = RNUM  (SIGMA) 

Input/output : 


I/O 

Fortran 

Name 

Math 

symbol 

Definition 

I 

SIGMA 

0 

Standard  deviation  of  the 
normal  distribution 

0 

RNUM 

X 

Randomly  distributed  number 
from  the  population  de- 
scribed above. 

Subprograms  required:  None. 

Approximate  storage  required  (octal):  130. 


Discussion:  The  method  used  here  to  generate  a randomly  dis- 

tributed number  from  a normal  distribution  with  mean  zero  and 
standard  deviation,  a,  is  to  compute  twelve  random  numbers  be- 
tween 0 and  1 (many  routines  that  are  statistically  consistent 
may  be  found  that  accomplish  this  function)  . 


Then  RNUM  = 


12 

i=l 
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56.  Subroutine  SCHED 

Purpose:  The  routine  determines  what  type  of  measurement  is 

to  be  taken  next  and  at  what  time  it  will  occur. 

Calling  sequence:  CALL  SCHED  (Tl,  T2,  MMCODE) . 


Input/output: 


I/O 

Fortran 

name 

Definition 

I 

Tl 

Present  trajectory  time. 

0 

T2 

Trajectory  time  at  which  the  next  meas- 

urement occurs. 

0 

MMCODE 

Measurement  model  code  (see  Chapter  II 

for  details) 

Subprograms  required : None . 


Approximate  storage  required  (octal):  40. 

Discussion:  Chapter  II  describes  the  means  by  which  the  meas- 

urement schedule  is  input.  A short  part  of  the  DATA  subprogram 
then  arranges  these  in  the  order  in  which  they  are  to  occur, 

SCHED  simply  finds  the  next  measurement  after  Tl , 
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57.  Subroutine  SPACE 


Purpose:  This  subroutine  is  used  in  the  virtual  mass  program 

for  computing  the  trajectories.  It  keeps  a count  of  the  total 
number  of  lines  that  have  been  written  on  a given  page  and  de- 
cides when  to  start  a new  page. 

Calling  sequence;  CALL  SPACE  (LINES). 


Input /out put: 


I/O 

Fortran 

name 

Definition 

I 

LINES 

Number  of  line  that  will  be  written 
in  the  next  output  statement 

Subprograms  required : NEWPGE , 


Approximate  storage  required  (octal):  -30. 

Discussion:  If  the  total  number  of  lines  will  exceed  the 

maximum  lines  per  page  SPACE  calls  NEWPGE, 
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58 . Subroutine  STAPARL 

Purpose:  The  partial  derivatives  of  station  location  errors 

are  computed . 

Calling  sequence:  CALL  PARTL  (AL,  ALON,  ALAT,  PAT2,  VEC,  PA). 

Input/ output: 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

AL 

r 

Altitude  of  the  station 

I 

ALON 

0 

Longitude  of  the  station 

I 

ALAT 

Latitude  of  the  station 

I 

PAT2 

I 

VEC (6) 

X 

Position  of  the  vehicle, 
relative  to  the  station 

0 

PA (6, 3) 

M 4Mi  MM 

Partial  of  altitude, 
latitude , and  longitude 
with  respect  to  VEC. 

Subprograms  required:  None, 

Approximate  storage  required  (octal) : 300 , 


Discussion:  This  subroutine  computes  the  partial  derivatives 

for  station  location  errors  when  the  geocentric  radius,  latitude, 
and  longitude  are  included  in  the  augmented  state  vector. 

From  the  general  equations  for  defining  the  position  and 
velocity  of  a station  on  a rotating  Earth,  (from  TRAKM  subroutine) 
the  following  partial  derivatives  are  obtained  for  any  of  the  three 

cp  + 0)  (t  - T) 

-cos  Q cos  G 
R sin  0 cos  G 


stations: 

Let  G = 

M _ 

■ “ bR 

■ 

■ ■ Be 
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Bcp 

M 

SR 

M 

B0 

Sep 


R cos  0 sin  G 

-[sin  e sin  0 + cos  e cos  6 sin  G] 

R cos  € sin  0 sin  G - R cos  e cos  0 
-R  cos  € cos  0 cos  G 


SR 

S0 

M 

Sep 

Sr 

M 

S0 

Sep 

M 

SR 

'M 

SO 


Sep 

SR 


sin  G cos  0 sin  G - cos  € sin  0 
- [R  sin  € sin  0 sin  G + R cos  e cos  0] 
R sin  G cos  0 cos  G 
CO  cos  0 sin  G 


-ojR  sin  0 sin  G 


{joR  cos  0 cos  G 

->■0)  cos  6 cos  c cos  G 

(joR  cos  € sin  0 cos  G 


(jjR  cos  € cos  cp  sin  G 


u)  sin  G cos  cp  cos  G 
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= -^coR  sin  € sin  ( 


$cp 


-o)R  sin  € cos 


cos  G 
sin  G 
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Computational  logic : 
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5 9 * Sub rout Ine  TIME 


Purpose:  If  the  Julian  date  is  supplied  to  this  routine, 

the  corresponding  calendar  date  will  be  returned.  Alternately, 
the  Julian  date,  epoch  1900,  will  be  returned  if  the  calendar 
date  is  supplied. 

Calling  sequence:  CALI  TIME  (DAY,  lYR,  MO,  IDAY,  IHR,  MIN, 

SEC,  ICODE). 

Input /output: 


I/O 

Fortran 

name 

Definition 

I/O 

DAY 

Julian  date^  epoch  Jan*  0,  1900* 

O/I 

lYR 

Calendar  year 

O/I 

MO 

Calendar  month 

O/I 

IDAY 

Calendar  day 

O/I 

IHR 

Hour  of  day 

O/I 

MIN 

Minutes 

O/I 

SEC 

Seconds 

I 

ICODE 

An  internal  code  that  determines 
which  of  the  above  options  is  ex- 
ercised. 

Subprograms  required:  None. 


Approximate  storage  required  (octal):  250. 

Discussion;  This  subroutine  will  convert  from  Julian  date, 
epoch  January  0,  1900,  to  calendar  date  or  from  calendar  date 
to  Julian  date  depending  on  the  value  of  ICODE  as  mentioned  above. 

ICODE  = p indicates  the  calendar  date  is  supplied,  Julian 
date  will  be  returned. 

ICODE  = 1 Julian  date  is  given  and  calendar  date  will  be 
returned . 

Note:  In  the  calendar  date  as  supplied  to  this  routine,  the 

year,  month,  day,  hour,  and  minutes  are  considered  integers , How- 
ever, the  number  of  seconds  is  returned  or  supplied  as  a real 
(floating  point)  number.  Thus,  a calendar  date  might  be  July  10, 

5 hr,  6 min,  3.22  sec,  1972. 

Hor  a discussion  of  the  equations  used  in  these  conversions 
see  reference  1. 


60 • Subroutine  TRAKM 


Purpose:  The  observations  and  the  observation  matrix  for  a 

given  type  of  measurement  is  computed  by  this  routine. 

Calling  sequence:  GALL  TRAKM  (HECV,  ITRK,  HR,  lOBS,  VECTOR). 


Input /output : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

HECV (6) 

X 

Position  and  velocity  of  the 
vehicle  at  the  time  of  the 
measurement . 

I 

ITRK 

Code  that  determines  what 
type  of  measurement  is  being 
made,  (Note:  this  variable 

is  called  MMCODE  elsewhere 
in  STEAP)  , 

0 

NR 

n 

Number  of  rows  in  the  obser- 
vation matrix. 

I 

lOBS 

Internal  code  that  states 
whether  only  the  observation 
is  desired  or  if  both  the 
observation  and  the  observa- 
tion matrix  are  to  be  com- 
puted , 

0 

VECTOR (4) 

Y 

Observation  that  is  made. 

Subprograms  required:  EPHEM,  ORB,  STAPARL, 


Approximate  storage  required  (octal):  2310, 

Discussion:  The  equations  used  to  compute  the  observation 

matrix  are  discussed  in  Volume  II  of  this  document.  The  obser- 
vation  matrix  is  needed  for  both  the  error  analysis  and  simula- 
tion modes  when  a measurement  is  taken.  The  observation  itself 
is  needed  only  in  the  simulation  mode  to  compute  the  estimated 
and  actual  measurements.  Which  of  these  options  is  exercisedr  is 
determined  by  lOBS.  When  lOBS  = 0,  the  observation  matrix  is 
needed.  Therefore,  the  observation  itself  is  not  placed  in  VEC- 
TOR. However,  some  "dummy”  vector  should  appear  in  the  calling 
sequence  regardless  of  whether  it  is  used. 

When  lOBS  = 1,  the  estimated  observation  will  be  returned  in 
VECTOR  to  the  simulation  mode  of  STEAP, 
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when  lOBS  = 2,  the  actual  observation  will  be  returned  to 
STEAP.  The  value  of  VECTOR  depends  primarily  on  the  state  vector 
of  the  vehicle,  HECV,  at  the  time  the  observation  is  being  made. 
The  only  reason  there  is  a need  to  distinguish  between  the  esti- 
mated and  actual  observations  is  that  in  considering  the  actual 
observation  a bias  in  the  station  locations  may  be  taken  into 
consideration.  See  Chapter  II  for  input  options,. 
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Qomputatioml  logic: 


hr  = trtmi  4 oflT:y  + oettiA 


SET  HZ4,n)  = 0.0 


A A 

t 

S --  •?*+  i’V'* 

4 §l  Vr 

A A 

I “>■  t 


Q,^  1 - 


->  A '> 
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R = ( X*  + 

R = (XX  4 XX  tzi')/)? 
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S3=f - 
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14  (1,5)*  A'i  riCI,6)=R3 
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Computational  logic  (continued)  : 
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Computational  logic  (continued) : 


Computational  logic  (continued) : 


SBT  ; 

x=  I j 3=  'T-e.e 

x=2, 

x?3,  3=^.8, 9 


S6t: 

1=  I,  s- 

X.  8, 

1=X  3-<2>.io,il 


MCI, 3^  = (-  WCX.OAY  - W(1,2)^X  - 

C-HCI,l')Ay-  H(X,Z)AX-  HC13)AI /A€ 
H(T,3)=  C-l-ICX*0  AX  - W(T,2)AX-  HCXA^Ai/A-i 


5,<5 

I 


R6.TVRH 


■xe 


H Clj*5)  - I'O 

r 1-0 

M (3^  /0  T 1-0 
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1.0 

M (2,(3)  s 1 

. 0 

W (3,  W)  = J 

I.  o 

1.0 
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10 
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I'O  _ 
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KfcTO  RnJ 
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Computational  logic  (concluded) ; 


HClj3)=  (“HCi.OAy  - kJ 

H C 1 j - (-H  (I.06K  - '-<  0.2)  A'f-  W ( hi)  1^1  t/^e. 

H O.J)  ^ C-H(l,OAX  -H  0.2)A'(-l4(/3)<i2/A^- 
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61 • Subroutine  TRANS 


Purpose:  Three  options  are  available  with  this  subroutine: 

1)  Convert  from  geocentric  equatorial  rectangular  coor- 
dinates to  geocentric  ecliptic  coordinates; 

2)  Convert  from  geocentric  equatorial  coordinates  to 
heliocentric  ecliptic  coordinates; 

3)  Convert  from  geocentric  ecliptic  coordinates  to 
heliocentric  ecliptic  coordinates , 

Calling  sequence:  CALL  TRANS  (ICODE,  X,  Y,  Z,  VX,  VY,  VZ,  XE, 

YE,  ZE,  VXE,  VYE,  VZE,  EPS,  IC0DE2) , 


Input /output : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

ICODE 

An  internal  code  that  determines 
if  option  1 or  2 above  will  be 
exercised , 

I/O 

X 

X 

X“Component  of  the  vehicle. 

I/O 

Y 

y 

Y-component  of  the  vehicle. 

I/O 

Z 

z 

Z-component  of  the  vehicle. 

I/O 

vx 

X 

X-velocity  component  of  the  ve- 
hicle. 

I/O 

VY 

y 

Y-velocity  component  of  the  ve- 
hicle . 

I/O 

VZ 

Z 

Z-velocity  component  of  the  ve~ 
hide , 

I 

XE 

^E 

X-component  of  Earth  in  helio- 
centric ecliptic. 

I 

YE 

^E 

Y-component  of  Earth. 

I 

ZE 

"e 

Z-component  of  Earth. 

I 

VXE 

X-velocity  component  of  Earth 
in  heliocentric  ecliptic. 

I 

VYE 

^E 

Y-velocity  component  of  Earth. 

I 

VZE 

^E 

Z-velocity  component  of  Earth. 

I 

EPS 

£ 

Obliquity  of  Earth. 

I 

IC0DE2 

An  internal  code  that  determines 
if  option  3 above  is  to  be  ex- 
ercised. 
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Subprograms  required:  None. 

Approximate  storage  required  (octal):  110. 

Discussion:  The  position  and  velocity  components  of  the  ve- 

hicle are  input  to  this  routine  in  the  desired  coordinate  system 
as  stated  above.  After  conversion  is  made  to  a new  coordinate 
system,  the  position  and  velocity  of  the  vehicle  will  be  returned 
in  the  same  locations.  A full  description  of  the  input  codes  and 
equations  used  follows: 

Option  1:  ICODE  = 1,  IC0DE2  = 1. 

X ==  X X = X 

y “ y cos  e + z sin  e J - j cos  e + z sin  e 

z SB  -y  sin  e + z cos  e z = -y  sin  e + z cos  e 

Option  2:  ICODE  = 2,  ICODE2  = 1. 

The  same  procedure  as  above  is  used  to  convert  from 
geocentric  equatorial  to  geocentric  ecliptic. 

X *=  X + Xg  X = X + Xg 

y = y + yg  y * y + y^ 

Z = Z + Zg  Z « Z + Zg 

Option  3:  ICODE  = 2,  IC0DE2  = 2. 

X * X + Xg  X = X = Xg 

y - y + yg  y » y + yg 

z » z + z„  z = z + z„ 
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62.  Subroutine  VARADA 


Purpose:  The  variation  matrix  is  built  up  by  numerical  dif- 

ferencing for  the  three  variable  B«plane  guidance  policy  in  the 
guidance  event  of  the  error  analysis  mode. 

Calling  sequence:  CALL  VARADA  (RI,  XSIP,  XSIV,  TEVN,  TSI, 

ADA,  B,  BDT,  BDR). 


Input/ output: 


I/O 

Fortran 

name 

Math 

symbol 

Definition^ 

I 

RI(6) 

X 

Position  and  velocity  of  the 
vehicle  at  the  time  of  the 
guidance  event , 

I 

XSIP(3) 

^SI 

. 

Position  of  the  vehicle  at 
the  sphere  of  influence  on 
th  e nom  i na  1 t ra  j e c t o r y , 

I 

• XSIV(3) 

^SI 

Velocity  of  the  vehicle  at 
the  sphere  of  influence  on 
the  nominal  trajectory . 

I 

TEW 

t 

ev 

Trajectory  time  of  the  sphere 
of  influence , 

I 

TSI 

^SI 

Trajectory  time  at  which  the 
vehicle  reached  the  sphere  of 
influence  on  the  nominal  tra- 
jectory. 

0 

ADA (3, 6) 

Variation  matrix. 

I 

B 

B of  the  nominal  trajectory. 

I 

BDT 

B*T  of  the  nominal  trajectory. 

I 

BDR 

B-Rof  the  nominal  trajectory. 

Subprograms  required:  NTM, 


Approximate  storage  required  (octal):  320, 


Discussion:  The  variation  matrix,  T].,  Is  generated  using 

the  numerical  differencing  technique.  Each  component  of  the  state 
vector  of  the  vehicle  at  the  time  of  the  guidance  event  is  al- 
tered in  its  turn  and  changes  in  B*T,  B*R  and  the  time  at  which 
the  vehicle  reaches  the  sphere  of  influence  are  noted.  Then  the 
usual  method  is  applied  to  obtain  the  3x6  variation  matrix. 
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Computational  logic : 


63.  Subroutine  VARSIH 


Purpose:  The  variation  matrix,  t),  is  computed  for  the 

three-variable  B-plane  guidance  policy  in  the  guidance  event  of 
the  simulation  mode. 


Calling  sequence:  CALL  VARSIM  (RIl,  TEVN,  TSI,  ADA). 


Input/ output : 


I/O 

Fortran 

name 

Math 

symbol 

Definition 

I 

RIl (6)  . 

X 

Position  and  velocity  of  the 
vehicle  on  the  most  recent 
nominal  trajectory  at  the 
time  of  the  guidance  event. 

I 

TEVN 

t 

ev 

Trajectory  time  of  the  guid- 
ance event. 

I 

TSI 

^SI 

Trajectory  time  at  which  the 
vehicle  reached  the  sphere 
of  influence  on  the  most 
recent  nominal  trajectory. 

0 

ADA (3, 6) 

-q 

Variation  matrix. 

Subprograms  required:  NTM. 


Approximate  storage  required  (octal) : 270. 


Discussion:  The  variation  matrix  is  generated  for  the  three- 

variable  B-plane  in  this  routine.  The  numerical  differencing 
technique  is  used.  By  altering  independently  each  component  of 
the  position  and  velocity  of  the  vehicle  at  the  time  of  the  guid- 


ance event,  the  changes  in  B*T,  B*R,  and  t 


SI 


are  noted.  The 


usual  method  is  then  applied  to  obtain  the  3x6  variation  matrix. 
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64*  Subroutine  VECTOR 


Purpose:  This  subroutine  calculates  the  vector  orbital  ele- 

ments k,  e,  computes  the  spacecraft  final  position  on  the 
orbit  to  accurately  approximate  the  desired  time  interval,  and 
finally  computes  the  conic  section  time  of  flight* 

Calling  sequence:  CALL  VECTOR. 

Input/output : All  communication  with  VECTOR  is  accomplished 

through  COMMON  statements* 

Subprograms  required:  SPACE. 

Approximate  storage  required  (octal):  570. 

Discussion:  For  a complete  formulation  of  the  techniques 

used  in  this  routine  refer  to  the  Analytical  Manual  (Volume  II) 
of  this  report. 
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65*  Subroutine  VMASS 


Purpose:  This  subroutine  determines  the  virtual  mass  data 

needed  in  the  trajectory  analysis.  The  virtual  mass  position, 
velocity,  magnitude,  and  magnitude  rate  are  calculated. 

Calling  sequence:  CALL  VMASS. 

Input/output:  All  communication  with  this  routine  is  through 

COMMON  statements. 

Subprograms  required:  None. 

Approximate  storage  required  (octal):  330. 

Discussion:  The  formulas  used  in  this  subroutine  are  dis- 

cussed in  the  Analytical  Manual,  Volume  II. 


183 


66.  Subroutine  VMP 


Purpose:  This  subroutine  is  responsible  for  the  logic  in- 

volved in  generating  a virtual  mass  trajectory* 

Calling  sequence:  CALL  VMP  (RS,  ACC,  Dl,  TRTM,  DELTM,  RSF, 

ISP2). 


Input/ output : 


I/O 

Fortran 

name 

Math 
symbo 1 

Definition 

I 

RS(6) 

X. 

1 

Position  and  velocity  of  ve- 
hicle at  initial  time. 

I 

ACC 

Ar/  r 

Accuracy  used. 

I 

Dl 

d 

Julian  date,  epoch 
January  0,  1900,  of  initial 
trajectory  time. 

I 

TRTM 

t 

o 

Initial  trajectory  time. 

I 

DELTM 

At 

Time  interval  over  which 
trajectory  is  to  be  gen- 
erated. 

0 

RSF (6) 

Position  and  velocity  of 
vehicle  at  final  time. 

I 

ISP2 

A code  that  determines  if 
the  trajectory  is  to  stop 
at  sphere  of  influence. 

Subprograms  required:  ACTB,  EPHEM,  ESTMT,  INPUTZ,  NEWPGE, 

ORB,  PRINT,  SPACE,  TIME,  VECTOR,  VMASS. 

Approximate  storage  required  (octal):  1730. 

Discussion:  This  subroutine  handles  the  general  flo\^  of  the 

virtual  mass  program.  In  addition  it  checks  to  see  if  the  vehicle 
has  encountered  closest  approach  or  the  sphere  of  influence  of 
the  target  planet.  If  closest  approach  or  the  sphere  of  influence 
is  reached  during  the  time  increment  over  which  the  trajectory  is 
being  computed,  the  program  will  not  check  for  a second  closest 
approach  or  a second  encounter  with  the  sphere  of  influence. 
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Also,  only  one  target  planet  may  be  specified  for  a given  run. 
Thus,  it  is  not  possible  to  check  for  closest  approach  or  sphere 
of  influence  for  a second  target  planet. 
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VI,  VARIABLE  LIST 


IN  THIS  CHAPTER  EACH  VARIABLE  USED  IN  THE  STEAP  PROGRAM 
IS  LISTED  AND  DESCRIBED,  AS  A GREAT  NUMBER  OF  THESE  VARIABLES 
APPEAR  IN  COMMON  BLOCKS  AND  IN  ORDER  TO  PREVENT  REPETITION* 

ALL  COMMON  BLOCKS  ARE  TREATED  SEPARATELY,  SUBSEQUENTLY*  ONLY 
THE  NAME  OF  THE  COMMON  STATEMENT  IS  LISTED  IN  THE  SUBROUTINE, 


COMMON  BLOCKS  — 


BLK 

T 

PMASSdl) 

CNcao) 

ST (50) 

EMN(15) 

SMURU8) 

RADIUS(U) 

RMASSdl) 

NO(ll) 

ELMNTCaO) 
SPHERE  (U) 

XP(6) 


trajectory  time  in  days 

GRAVITATIONAL  CONSTANTS  OF  PLANETS  IN 
A,U,**3/DAY**2 

CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  FIRST  FIVE  PLANETS 
CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  LAST  FOUR  PLANETS 
THE  CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  MOON 

CONSTANTS  USED  TO  CALCULATE  THE  SEMI-MAJOR 

AXES  OF  the  planets 

THE  RADIUS  OF  A GIVEN  PLANET  IN  A,U, 

THE  relative  GRAVITATIONAL  CONSTANT  OF  A 
STATED  PLANET  WITH  RESPECT  TO  THE  SUN 
AN  ARRAY  OF  PLANET  CODES  BEING  USED  TO 
generate  the  virtual  mass  TRAJECTORY 
CONTAINS  THE  ORBITAL  ELEMENTS  OF  THE  PLANETS 
THE  SPHERES  OF  INFLUENCE  OF  THE  PLANETS  IN 
A,U,: 

THE  POSITION  AND  VELOCITY  OF  A PLANET  IN 
HELIOCENTRIC  ECLIPTIC  COORDINATES 


COM 

V(16*7) 


F(44*4) 


PI 

RAD 

ITRAT 


KOUNT 

INCMNT 

INCPR 


AN  ARRAY  WHICH  STORES  PERTINANT  VECTORS  USED 
IN  THE  calculation  OF  THE  VIRTUAL  MASS 

trajectory 

CONTAINS  THE  POSITIONS  AND  VELOCITIES  OF  THE 
planets  at  a SPECIFIED  TIME  PLUS  THE  POSITIONS 
AND  VELOCITIES  OF  THE  SPACECRAFT  RELATIVE  TO 
THE  planets 

THE  value  of  the  MATHEMATICAL  CONSTANT  PI 
THE  NUMBER  OF  DEGREES  PER  RADIAN 
IN  INTERNAL  CODE  USED  TO  DETERMINE  HOW  MANY 

iterations  have  been  accomplished  in  the 

VIRTUAL  MASS  PROCEDURE 

A CODE  WHICH  SPECIFIES  WHETHER  PRINT-OUT  IS 
TO  OCCUR  AFTER  THIS  TIME  INCREMENT 
NUMBER  OF  INCREMENTS  USED 
SPECIFIES  after  HOW  MANY  TIME  INCREMENTS 
PRINT-OUT  IS  TO  OCCUR 


INC 

DETERMINE  WHETHER  THE  ABOVE  OPION  IS  TO  BE 
USED 

I PR 

A CODE  WHICH  DETERMINES  IF  PRINT-OUT  IS  TO 
OCCUR  AFTER  A SPECIFIED  NUMBER  OF  DAYS 

NBODYl 

number  OF  BODIES  CONSIDERED  IN  VIRTUAL  MASS 
TRAJECTORY 

NBODY 

BASED  ON  ABOVE  VALUE-EQUAL  TO  4*NB0DYI-3 

IPRT(4) 

SPECIFIES  PRINT  OPTIONS  (IN  STEAP  TRAJECTORY 
THIS  OPTION  IS  OMITTED.  WHEN  PRINT-OUT  OCCURS 
ALL  SECTIONS  ARE  AUTOMATICALLY  PRINTED) 

KL 

•— 

PROBLEM  NUMBER 

IPG 

PAGE  number 

LINCT 

LINE  COUNT 

LINPGE 

— — 

LINES  PER  PAGE 

const 

OMEGA 

EARTH’S  ROTATION  RATE 

FPS 

OBLIQUITY  OF  EARTH 

NST 

NUMBER  OF  STATIONS  TO  BE  USED  <MAXIMUM  3) 

SAL (3) 

«»«» 

ALTITUDES  OF  STATIONS 

SLAT (3) 

LATITUDES  OF  STATIONS 

SL0N(3) 

longitudes  of  stations 

DNCN(3) 

CONSTANTS  FROM  WHICH  DYNAMIC  NOISE  IS  COMPUTED 

MNCNU2) 

MEASUREMENT  NOISE  CONSTANTS 

C0NST2 

U1 

DIRECTION  COSINE  OF  STAR  1 

U2 

DIRECTION  COSINE  OF  STAR  2 

U3 

DIRECTION  COSINE  OF  STAR  3 

VI 

direction  COSINE  OF  STAR  1 

V2 

DIRECTION  COSINE  OF  STAR  2 

V3 

— 

DIRECTION  COSINE  OF  STAR  3 

W1 

DIRECTION  COSINE  OF  STAR  1 

W2 

DIRECTION  COSINE  OF  STAR  2 

W3 

DIRECTION  COSINE  OF  STAR  3 

FOP 

OFF-DIAGONAL  ANNIHILATION  VALUE  FOR  POSITION 
EIGENVALUES 

FOV 

OFF-DIAGONAL  ANNIHILATION  VALUE  FOR  VELOCITY 
EIGENVALUES 

CONST 3 

DELXA 

THE  AMOUNT  OF  CHANGE  IN  X-COMPONENT  DUE  TO 
CHANGE  IN  SEMI-MAJOR  AXIS  OF  TARGET  PLANET 

DELYA 

THE  AMOUNT  OF  CHANGE  IN  Y-COMPONENT  DUE  TO 
CHANGE  IN  SEMI-MAJOR  AXIS  OF  TARGET  PLANET 

DELZA 

wm.tm 

THE  AMOUNT  OF  CHANGE  IN  Z-COMPONENT  DUE  TO 
CHANGE  IN  SEMI-MAJOR  AXIS  OF  TARGET  PLANET 

OELXE 

«»»«» 

THE  AMOUNT  OF  CHANGE  IN  X-COMPONENT  DUE  TO 
CHANGE  IN  eccentricity  OF  TARGET  PLANET 

delye 

the  AMOUNT  OF  CHANGE  IN  Y-COMPONENT  DUE  TO 
CHANGE  IN  ECCENTRICITY  OF  TARGET  PLANET 

DELZE 

THE  AMOUNT  OF  CHANGE  IN  Z-COMPONENT  DUE  TO 
CHANGE  IN  ECCENTRICITY  OF  TARGET  PLANET 

□ELXI 

«»w» 

THE  AMOUNT  OF  CHANGE  IN  X-COMPONENT  DUE  TO 
CHANGE  IN  inclination  OF  TARGET  PLANET 

□ELY  I 

DELZI 

DELAXS 

DELECC 

DEL I CL 

DELMU5 

DELMUP 


THE  AMOUNT  OF  CHANGE  IN  Y-COMPONENT  DUE  TO 
CHANGE  IN  inclination  OF  TARGET  PLANET 
THE  AMOUNT  OF  CHANGE  IN  Z-COMPONENT  DUE  TO 
CHANGE  IN  inclination  OF  TARGET  PLANET 
CHANGE  IN  SEMI-MAJOR  AXIS  OF  TARGET  PLANET 
USED  TO  GENERATE  STATE  TRANSITION  MATRIX 
CHANGE  IN  ECCENTRICITY  OF  TARGET  PLANET  USED 
TO  GENERATE  STATE  TRANSITION  MATRIX 
CHANGE  IN  INCLINATION  OF  TARGET  PLANET  USED 
TO  GENERATE  STATE  TRANSITION  MATRIX 
CHANGE  IN  GRAVITATIONAL  CONSTANT  OF  SUN  USED 
TO  GENERATE  STATE  TRANSITION  MATRIX 
CHANGE  IN  GRAVITATIONAL  CONSTANT  OF  TARGET 
PLANET  USED  TO  GENERATE  STATE  TRANSITION  MATRIX 


EVENT 

NEV 

TEV(50) 

IEVNT(50) 

IHYPI 

IE  16 

TPT2(20) 

1CDT3(20) 

NPE 

NGE 

IPOL 

IIPOL 


ICDQ3(20) 


SI GRES 

SIGPRO 

S 16 ALP 

SI6BET 

NEVl 

NEV2 

NEV3 

NEV4 

NQE 


number  of  events 

TIMES  OF  EVENTS 
CODES  OF  EVENTS 

hyperellipsoid  code  used  to  determine  if 

K=l»  K-3»  OR  BOTH 

CODE  USED  TO  DECIDE  IF  BOTH  POSITION  AND 
velocity  eigenvectors  ARE  REQUESTED 

prediction  times 

CODES  WHICH  determine  WHICH  GUIDANCE  POLICIES 
ARE  being  used 

NUMBER  OF  PREDICTION  EVENTS  HAVING  OCCURRED 
NUMBER  OF  GUIDANCE  EVENTS  HAVING  OCCURRED 
CODE  WHICH  DETERMINES  IF  FIXED-TIME-OF- 
ARRIVAL  GUIDANCE  EVENT  HAS  OCCURED 
CODE  WHICH  DETERMINES  IF  EITHER  TWO-VARIABLE 
OR  THREE-VARIABLE  B-PLANE  GUIDANCE  POLICY 
HAS  OCCURRED 

ARRAY  OF  CODES  WHICH  DETERMINE  WHICH 
EXECUTION  POLICIES  ARE  TO  BE  USED  IN  GUIDANCE 
EVENTS 

VARIANCE  OF  RESOLUTION  ERROR 

VARIANCE  OF  PROPORTIONALITY  ERROR 

VARIANCE  OF  ERROR  IN  POINTING  ANGLE  1 

VARIANCE  OF  ERROR  IN  POINTING  ANGLE  2 

TOTAL  NUMBER  OF  EIGENVECTOR  EVENTS 

TOTAL  NUMBER  OF  PREDICTION  EVENTS 

total  NUMBER  OF  GUIDANCE  EVENTS 

TOTAL  NUMBER  OF  QUASI-LINEAR  FILTERING  EVENTS 

QUASI-LINEAR  filtering  EVENTS  HAVING  OCCURRED 


GUI 

PG(17»17) 

XG(6) 

T6 

EM(2»6) 


covariance  matrix  at  time  of  last  guidance 

EVENT 

state  vector  at  time  of  last  guidance  EVENT 
TIME  OF  LAST  GUIDANCE  EVENT 

PARTIAL  OF  B.T  AND  B.R  WITH  RESPECT  TO  STATE 
VECTOR 


* 
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MEAS 

TMN(IOOO)  — 
MCODEdOOO)  — 
NMN 
MCNTR 

Wise 

ACC 

IDNF 

ICOOR 

ITR 

IMNF 

FACP 

FACV 

ISP2 

aiA(12) 

IPGN 


TIMES  OF  MEASUREMENTS 

ARRAY  OF  MEASUREMENT  CODES 

TOTAL  NUMBER  OF  MEASUREMENTS 

NUMBER  OF  MEASUREMENTS  HAVING  OCCURRED 

ACCURACY  FIGURE  USED  IN  VIRTUAL  MASS  PROGRAM 
dynamic  NOISE  FLAG 

state  vector  code  which  determines  in  WHICH 

coordinate  system  the  Vector  is  read  in 

MODE  FLAG 

measurement  noise  flag 

POSITION  FACTOR  USED  IN  NUMERICAL  DIFFERENCING 
VELOCITY  FACTOR  USED  IN  NUMERICAL  DIFFERENCING 
SPHERE  OF  INFLUENCE  FLAG 

measurement  biases 

PAGE  NUMBER 


NAME 

MDNM(4f2)  — 
EVNM(4) 
MNNAMEU2»3-“ 
CMPNM(  11 » 17- 


MODE  NAME 
EVENT  NAME 
measurement  NAME 

component  name 


PRT 

MONTH  U2)  — NAMES  OF  MONTHS 

planet (11)  — NAMES  OF  PLANETS 


SIMCNT 

DMUSB 

DMUPB 

DAB 

DEB 

DIB 

TTIMI 

TTIM2 

UNMAC(3r3) 

SLBC9) 

AVARM(12) 

lAMNF 

ARES (20) 

APRO(20) 

AALP(20) 

ABET (20) 


BIAS  IN  GRAVITATIONAL  CONSTANT  OF  SUN 
BIAS  IN  GRAVITATIONAL  CONSTANT  OF  TARGET 
PLANET 

BIAS  IN  SEMI-MAJOR  AXIS  OF  TARGET  PLANET 
BIAS  IN  ECCENTRICITY  OF  TARGET  PLANET 
BIAS  IN  INCLINATION  OF  TARGET  PLANET 
FIRST  time  used  FOR  UNMODELLED  ACCELERATION 
SECOND  TIME  USED  FOR  UNMODELLED  ACCELERATION 

unmodelled  acceleration 

BIASES  IN  STATION  LOCATION  CONSTANTS 
VARIANCE  OF  ACTUAL  MEASUREMENT  NOISE 

actual  measurement  noise  flag 
actual  resolution  error 

ACTUAL  PROPORTIONALITY  ERROR 
ACTUAL  ERROR  IN  POINTING  ANGLE  1 
actual  ERROR  IN  POINTING  ANGLE  2 


SIMl 

XIK17) 

XFK17) 

ADEVX(17) 
EDEVX( 17) 
W(17) 


INITIAL  state  vector  OF  MOST  RECENT  NOMINAL 

trajectory 

FINAL  state  vector  OF  MOST  RECENT  NOMINAL 
TRAJECTORY 

actual  deviation  in  THE  STATE  VECTOR 

estimated  deviation  in  the  state  vector 
actual  dynamic  noise 

* 
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ZU7) 
AN01S(17) 
RES (4) 
EY(4) 

AY  (4) 
AR(4»4) 
ZI(17) 
ADEVXB(17) 


ACTUAL  STATE  VECTOR 
ACTUAL  WHITE  NOISE 
RESIDUAL 

ESTIMATED  MEASUREMENT 
ACTUAL  measurement 
ACTUAL  MEASUREMENT  NOISE 
INITIAL  actual  STATE  VECTOR 

ACTUAL  DEVIATION  IN  STATE  VECTOR  AT  BEGINNING 
OF  TRAJECTORY 


SIM2 

NBKll) 

ACCl 

NBODl 


ARRAY  OF  planet  CODES  IN  ACTUAL  TRAJECTORY 
ACCURACY  USED  IN  ACTUAL  TRAJECTORY 
NUMBER  OF  BODIES  IN  ACTUAL  TRAJECTORY 


STM 

PU7»17) 
PSIU7»17)  — 
Q(17»17) 
H(4»17) 

R(4»4) 
AK(l7f4) 
PBU7»17)  — 

PSIPU7»17)  — 
HPHRU7»17)  — 


covariance  MATRIX 
STATE  transition  MATRIX 
DYNAMIC  NOISE  MATRIX 
OBSERVATION  MATRIX 
measurement  noise  MATRIX 
K MATRIX 

COVARIANCE  MATRIX  AT  BEGINNING  OF  TRAJECTORY 
covariance  MATRIX  BEFORE  THE  MEASUREMENT 
H*P*H-TRANSP0SE  + R 


STVEC 
XI U7) 
XF(I7) 
NOIM 
lAUG 
XB(17) 


INITIAL  STATE  VECTOR  OF  ORIGINAL  NOMINAL 
FINAL  STATE  VECTOR  OF  ORIGINAL  NOMINAL 
DIMENSION  OF  STATE  VECTOR 

augmentation  code 

state  vector  of  original  nominal  at  beginning 

OF  TRAJECTORY 


TIM 

TRTMl 

DELTM 

FNTM 

UNIVT 

TRTMB 


INITIAL  TRAJECTORY  TIME 
TIME  INCREMENT 
FINAL  trajectory  TIME 
UNIVERSAL  TIME 

trajectory  time  at  beginning  of  trajectory 


TRJ 

I son 

IS0I2 

ISO  1 3 

ICAl 

ICA2 

ICA3 

RCAU6) 

RCA2(6) 

RCA3{6) 

RS0IK3) 


SPHERE  OF  INFLUENCE  CODE  FOR  ORIGINAL  NOMINAL 
SPHERE  OF  INFLUENCE  CODE  FOR  MOST  RECENT 
NOMINAL 

SPHERE  OF  INFLUENCE  CODE  FOR  ACTUAL  TRAJECTORY 
CLOSEST  APPROACH  CODE  FOR  ORIGINAL  NOMINAL 
CLOSEST  APPROACH  CODE  FOR  MOST  RECENT  NOMINAL 

closest  approach  code  for  actual  trajectory 
state  at  closest  approach  on  ORIGINAL  NOMINAL 
STATE  AT  CLOSEST  APPROACH  ON  MOST  RECENT 
NOMINAL 

state  at  CLOSEST  APPROACH  ON  ACTUAL  TRAJECTORY 
POSITION  AT  SPHERE  OF  INFLUENCE  ON  ORIGINAL 
NOMINAL 

♦ 
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RS0I2(3) 

RS0I3(3) 

VS0IK3) 

VS0I2(3) 

VSGI3(3) 

TCAl 

TCA2 

TCA3 

TSOIl 

TSOI2 

TS0I3 

BSU 

B5I2 

BSI3 

BDTSIl 

BDTSI2 

BDTSI3 

BDRSn 

BDRSI2 

BDRSI3 


POSITION  AT  SPHERE  OF  INFLUENCE  ON  MOST  RECENT 
NOMINAL 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  ACTUAL 

trajectory 

velocity  at  sphere  of  influence  on  original 
nominal 

velocity  at  sphere  of  influence  on  most  recent 

NOMINAL 

velocity  at  sphere  of  influence  on  actual 
trajectory 

TIME  AT  CLOSEST  APPROACH  OF  ORIGINAL  NOMINAL 
TIME  AT  CLOSEST  APPROACH  OF  MOST  RECENT 
NOMINAL 

time  at  closest  approach  of  actual  TRAJECTORY 
TIME  AT  SPHERE  OF  INFLUENCE  OF  ORIGINAL 
NOMINAL 

TIME  AT  SPHERE  OF  INFLUENCE  OF  MOST  RECENT 
NOMINAL 

TIME  AT  sphere  OF  INFLUENCE  OF  ACTUAL 
trajectory 

B ON  ORIGINAL  NOMINAL 
B ON  MOST  recent  NOMINAL 
B ON  ACTUAL  TRAJECTORY 
B DOT  T ON  ORIGINAL  NOMINAL 
B DOT  T ON  MOST  RECENT  NOMINAL 
B DOT  T ON  actual  TRAJECTORY 
B DOT  R ON  ORIGINAL  NOMINAL 
B DOT  R ON  MOST  RECENT  NOMINAL 
B DOT  R ON  ACTUAL  TRAJECTORY 


TRAJCD 

NTMC 

ISTMC 

ISTMl 

DTMAX 

NDACC 

ACCND 


nominal  trajectory  CODE 
STATE  transition  MATRIX  CODE 
ALTERNATE  STATE  TRANSITION  MATRIX  CODE 
MAXIMUM  TIME  INCREMENT  FOR  WHICH  ISTMC  IS 
VALID 

NUMERICAL  DIFFERENCING  ACCURACY  CODE 
ACCURACY  USED  IN  NUMERICAL  DIFFERENCING  IF 
NDACC  INDICATES 


VM 

NBOD 

NBUl) 

NTP 

ALNGTH 

TM 

DELTP 

INPR 

IPROB 

RC(6) 

DC 

RSI (3) 
VSK3) 
DSI 


NUMBER  OF  BODIES  USED  IN  VIRTUAL  MASS  PROGRAM 
CODES  OF  planets 
CODE  OF  TARGET  PLANET 
LENGTH  units  PER  A.U* 

TIME  UNITS  PER  DAY 
PRINT  INCREMENTS  (IN  DAYS) 

PRINT  increments  (IN  INCREMENTS) 

PROBLEM  number 

state  at  closest  approach 

JULIAN  DATE»EP0CH  1900 » AT  CLOSEST  APPROACH 
POSITION  AT  SPHERE  OF  INFLUENCE 
VELOCITY  AT  SPHERE  OF  INFLUENCE 
JULIAN  DATEf  EPOCH  1900 » AT  SPHERE  OF 
INFLUENCE 


ISPH 

SPHERE  OF  INFLUENCE  CODE 

RVS(6) 

POSITION  OF  VEHICLE  RELATIVE  TO  VIRTUAL  MASS 

VMU 

— 

GRAVITATIONAL  CONSTANT  OF  VIRTUAL  MASS 

6 

— 

B AT  SPHERE  OF  INFLUENCE 

BDT 

B DOT  T 

BDR 

— 

B DOT  R 

DELTH 

— 

INCREMENT  IN  TRUE  ANOMALY  USED 

TIMINT 

•VM 

TOTAL  time  USED 

INCMT 

— 

TOTAL  INCREMENTS  USED 

lEPHEM 

— 

EPHEMERIS  CODE 

ICL 

MM 

CLOSEST  APPROACH  CODE 

IPRINT 

— 

PRINT  CODE 

R£(6) 

'mm 

POSITION  AND  VELOCITY  OF  EARTH 

RTP(6) 

-- 

POSITION  AND  VELOCITY  OF  TARGET  PLANET 

ICL2 

CLOSEST  approach  TERMINATION  CODE 

STEAP— MAIN  PROGRAM 


COMMON 
BLK 
COM 
CONST 
CONST 2 
C0NST3 
EVENT 
GUI 
ME  AS 
MISG 
NAME 
PRT 

simcnt 

SIMl 
SI  M2 
STM 

stvec 

TIM 

TRAJCD 

TRJ 

VM 


VARIABLES 

BVAU 

DUM 

I 

ICODE 

iron 

IRUNX 

J 

K 

NEVENT 

NR 

TEVN 

TRTM2 


BIAS  IN  MEASUREMENT 

INTERMEOIATE  variable  used  in  COMPUTING  EDEVX 
INDEX 

INTERMEDIATE  EVENT  CODE 

NUMBER  OF  RUNS  MADE 

total  NUMBER  OF  RUNS  TO  BE  MADE 

INDEX 

INDEX 

number  of  events  having  OCCURRED 
NUMBER  OF  ROWS  IN  H 

intermediate  time  of  event 

TIME  OF  next  measurement 

* 
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MA  IN-TARGETING 
COMMON 
VMP 
RLK 

VARIABLES 

A 

AC 

ACC 

ACK 

AINCL 

AU 

AUDAY 

AUS 

BDELV 

CTSE 


DB 

DBDR 

DBDT 

DELTM 

DELV 

□END 

DENE 

DINCL 

DRCA 

DTI 

DT2 

DT3 

DVl 

DV2 

DV3 

D1 

02 

03 

E 

ECEQP 

EOECP 

ERROR 

ERRl 

ERR2 

ERR3 

FE 


HI 


HL 

HP 


SEMI-MAJOR  AXIS  OF  TARGET  PLANET  HYPERBOLA 
ACCURACY  LEVELS  TO  BE  USED  IN  TARGETING 
FINAL  ACCURACY  LEVEL 

current  ACCURACY  LEVEL  DURING  NUMERICAL 
DIFFERENCING 

TRAJECTORY  INCLINATION  AT  CLOSEST  APPROACH 
CONVERSION  UNIT  FROM  KM  TO  ASTRONOMICAL  UNITS 
(A.U.) 

CONVERSION  UNIT  FROM  KM/SEC  TO  AU/DAY 
CONVERSION  UNIT  FROM  KM  TO  A.U. 

BASIC  VELOCITY  INCREMENT  FOR  STM  .COMPUTATION 

COSINE  OF  TRUE  ANOMALY  AT  SPHERE  OF  INFLUENCE 

IN  TARGET  PLANET  HYPERBOLA 

TARGET  IMPACT  PARAMETER  B 

B.R 

B • T 

DAYS  between  PRINTOUT  ON  FINAL  TRAJECTORY 
INTEGRATION 

VELOCITY  INCREMENT  USED  IN  CURRENT  TARGETING 
JULIAN  DATE  OF  FINAL  TIME  IN  INTEGRATION 
intermediate  VARIABLE 
TARGET  inclination  (DEGREES) 

TARGET  RADIUS  OF  CLOSEST  APPROACH 
DESIRED  CHANGE  IN  FIRST  TARGET  PARAMETER 
DESIRED  CHANGE  IN  SECOND  TARGET  PARAMETER 
DESIRED  CHANGE  IN  THIRD  TARGET  PARAMETER 
predicted  CHANGE  IN  FIRST  VELOCITY  COMPONENT 
predicted  change  in  second  VELOCITY  COMPONENT 
predicted  change  in  third  velocity  COMPONENT 
JULIAN  DATE  OF  INITIAL  TIME 
JULIAN  DATE  AT  SHPERE  OF  INFLUENCE 
JULIAN  DATE  AT  CLOSEST  APPROACH 
eccentricity  of  target  planet  HYPERBOLA 
TRANSFORMATION  MATRIX  FROM  TARGET  PLANET 
ECLIPTIC  TO  target  PLANET  EQUATORIAL 

transformation  matrix  from  target  planet 

EQUATORIAL  TO  TARGET  PLANET  ECLIPTIC 

MEASURE  OF  ERROR  IN  CURRENT  ITERATION 

ERROR  IN  FIRST  TARGET  PARAMETER 

ERROR  IN  SECOND  TARGET  PARAMETER 

ERROR  IN  THIRD  TARGET  PARAMETER (TARGET  DATE) 

INTERMEDIATE  VARIABLE  IN  HYPERBOLIC  TIME 

CALCULATION 

INCLINATION  OF  TARGET  PLANET  HYPERBOLIC 
W.R.T.  ECLIPTIC 

longitude  OF  TARGET  PLANET  HYPERBOLIC  W.R.T. 
ECLIPTIC 

SEMI-LATUS  RECTUM  OF  TARGET  PLANET  HYPERBOLA 
W.R.T.  ECLIPTIC 
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HW 

IDATl 

IDAT2 

IDAT3 

ILS6 

INCPR 

INJEK 

IPSI2 

ISKEJ 

ISP2 

ISSKJ 

ISTEP 

ISTM 

ISTP 

ITAR6 

ITAR6S 

ITER 

ITIM 

JC3 

vilNvJT 

LEVEL 

MIDI 

NITRS 

NITS 

NLP 

NOSOI 

P 

PERI 
PHI 
PRERR 
PSI 
G . 

R 

RAD 

RCA 

RD 


AReUMENT  OF  PER I APS IS  OF  TARGET  PLANET 
HYPERBOLA  W.R.T.  ECLIPTIC 

CALENDAR  DATE  OF  INITIAL  DATE  EXCEPT  SECONDS 

CALENDAR  DATE  AT  SPHERE  OF  INFLUENCE 

CALENDAR  DATE  AT  CLOSEST  APPROACH 

FLAG  SPECIFYING  WHETHER  LAST  STEP  UNDER 

target  option  6 HAS  BEEN  MADE 

DESIRED  number  OF  INCREMENTS  BETWEEN  PRINTOUTS 

OF  FINAL  trajectory 

INJECTION  OPTION  FLAG 

FLAG  indicating  WHETHER  CLOSEST  APPROACH 
STM  HAS  BEEN  COMPUTED  OR  NOT 
TOTAL  NUMBER  OF  ACCURACY  LEVELS 
FLAG  INDICATING  WHETHER  INTEGRATION  SHOULD 
STOP  AT  SHPERE  of  INFLUENCE  OR  NOT 
storage  for  ISKEJ 

current  step  (INTEGRATION)  DURING  STM 
PERTURBED  INTEGRATIONS 

FLAG  INDICATING  WHETHER  STM  IS  RECOMPUTED 
OR  not 

STORAGE  FOR  ISTEP 

target  option  flag 

storage  for  ITARG 

NUMBER  OF  ITERATIONS  COMPLETED 

FLAG  INDICATING  WHETHER  TIME  OF  CLOSEST 

APPROACH  HAS  BEEN  COMPUTED  OR  NOT 

FLAG  INDICATING  WHETHER  BIASED  OR  UNBIASED 

PATCHED  CONIC  CONDITIONS  ARE  TO  BE  COMPUTED 

FLAG  INDICATING  WHETHER  INJECTION  TIME  SHOULD 

BE  updated  OR  NOT 

current  level  of  accuracy  in  targeting 

PROCEDURE 

NUMBER  OF  ITERATIONS  TO  BE  MADE  AT  EACH 

intermediate  ACCURACY  LEVEL 

MAXIMUM  NUMBER  OF  ITERATIONS  TO  BE  MADE  AT 

current  level 

MAXIMUM  NUMBER  OF  ITERATIONS  TO  BE  MADE  AT 

FINAL  level 

INDEX  OF  LAUNCH  PLANET 

FLAG  INDICATING  WHETHER  IN  INNER  OR  OUTER 

targeting 

UNIT  VECTOR  IN  DIRECTION  OF  PERIAPSIS  IN 

target  planet  hyperbola 

PERIAPSIS  RADIUS  OF  TARGET  PLANET  HYPERBOLA 

STM  FOR  TARGETING  OPTION  3 

ERROR  OF  PREVIOUS  ITERATE 

STM  FOR  ANY  SET  OF  3 TARGET  CONDITIONS 

UNIT  VECTOR  PERPENCICULAR  TO  P IN  TARGET 

planet  HYPERBOLA 

magnitude  of  radius  at  closest  APPROACH 
CONVERSION  UNIT  FROM  DEGREES  TO  RADIUS 
trajectory  radius  of  CLOSEST  APPROACH 
RATE  OF  CHANGE  OF  RADIAL  MAGNITUDE  AT 
closest  APPROACH  BEFORE  ITERATING 
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RED 


— FACTOR  BY  WHICH  BAD  STEP  CORRECTIONS  ARE 
REDUCED 

RM  — RADIUS  MAGNITUDE 

RQ  CLOSEST  APPRIACH  STATE  IN  TARSET  PLANET 

EQUATORIAL  COORDINATES 

RS  INITIAL  STATE  IN  TRAJECTORY  INTEGRATIONS 

RSF  — FINAL  STATE  IN  TRAJECTORY  INTEGRATIONS 

RSS  — STORAGE  OF  TARGETED  STATE  AT  FIRST  ACCURACY 

LEVEL 

R1  — INJECTION  POSITION  IN  LAUNCH  PLANET  ECLIPTIC 

COORDIATES 

SDEL  — STORAGE  FOR  DELV 

SFE  — INTERMEDIATE  VARIABLES  FOR  HYPERBOLIC  TIME 
CALCULATION 

SRS  STORAGE  OF  TARGETED  VELOCITY  AT  FINAL 

ACCURACY  LEVEL 
SSPH  — STORAGE  FOR  TTS 
STARGl  STORAGE  FOR  TARGl 

STARG2  — storage  FOR  TARG2 
STARG3  — storage  FOR  TARG3 

SVi  — STORAGE  OF  PREVIOUS  ITERATE  FIRST  VELOCITY 

component 

SV2  — STORAGE  OF  PREVIOUS  ITERATE  SECOND  VELOCITY 
component 

SV3  STORAGE  OF  PREVIOUS  ITERATE  THIRD  VELOCITY 

component 

51  — SECONDS  OF  INITIAL  TIME 

52  — SECONDS  OF  TIME  AT  SPHERE  OF  INFLUENCE 

53  — SECONDS  OF  TIME  AT  CLOSEST  APPROACH 

TA  TRUE  ANOMALY  AT  SPHERE  OF  INFLUENCE  ALONG 

TARGET  PLANET  HYPERBOLA 
TARGl  — FIRST  TARGET  VALUE 

TARG2  SECOND  TARGET  VALUE 

TARG3  TARGET  TIME 

TIMC  »-  cumulative  COMPUTER  TIME 

TIMCR  — correction  TIME  FOR  CLOSEST  APPROACH 

iteration 

TIMPR  — DAYS  BETWEEN  PRINTOUTS  ON  FINAL  TRAJECTORY 

integration 

TIMS  — COMPUTER  TIME  AT  START  OF  PROGRAM 

TMDF  — TIME  CORRECTION  FOR  OUTER  TARGETING 

TMU  "»  target  PLANET  GRAVITATIONAL  CONSTANT 

TOLRi  — TOLERANCE  OF  FIRST  VARIABLE  AT  CURRENT  LEVEL 

T0LR2  — TOLERANCE  OF  SECOND  VARIABLE  AT  CURRENT  LEVEL 

T0LR3  TOLERANCE  OF  THIRD  VARIABLE  AT  CURRENT  LEVEL 

TOLi  — FINAL  Tolerance  of  first  target  variable 

T0L2  FINAL  TOLERANCE  OF  SECOND  TARGET  VARIABLE 

T0L3  — FINAL  TOLERANCE  OF  THIRD  TARGET  VARIABLE 
TR61  — trajectory  VALUES  OF  FIRST  TARGET  PARAMETER 
AT  NOMINAL  AND  PERTURBED  INTEGRATIONS 
TRG2  trajectory  VALUES  OF  SECOND  TARGET  PARAMETER 

AT  NOMINAL  AND  PERTURBED  INTEGRATIONS 
TRG3  »“  trajectory  VALUES  OF  THIRD  TARGET  PARAMETER 
AT  NOMINAL  AND  PERTURBED  INTEGRATIONS 
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TRIM 

INITIAL  TRAJECTORY  TIME 

TSICA 

TIME  FROM  SPHERE  OF  INFLUENCE  TO  CLOSEST 
APPROACH 

TSPH 

-- 

TARGET  PLANET  SPHERE  OF  INFLUENCE 

V 

velocity  MAGNITUDE  AT  CLOSEST  APPROACH  IN 
OUTER  targeting 

VEL 

velocity  COMPONENTS  FOR  NOMINAL  AND  PERTURBED 
INTEGRATIONS 

VHE 

hyperbolic  excess  velocity  on  target  planet 

HYPERBOLA 

VM 

velocity  magnitude  at  closest  approach 

VX 

.mtmi 

magnitude  of  velocity  at  sphere  of  INFLUENCE 
ON  target  planet  hyperbola 

VI 

— 

injection  velocity 

WPT 

NORMAL  TO  TARGET  PLANET  HYPERBOLA 

XTOLl 

STORAGE  FOR  TOLl 

XT0L3 

STORAGE  FOR  T0L2 

XT0L3 

STORAGE  FOR  T0L3 

2 

NORMAL  TO  CLOSEST  APPROACH  PLANE 

ZM 

magnitude  Of  angular  MOMENTUM  AT  CLOSEST 
APPROACH 

ACTS 

VARIABLES 

A 

SEMI-MAJOR  AXIS 

AB 

4M»«W 

magnitude  of  RV 

BV 

B VECTOR 

CTA 

COSINE  OF  TRUE  ANOMALY 

Cl 

W«l» 

MAGNITUDE  OF  RXV 

E 

ECCENTRICITY 

1 

INDEX 

P 

SEMI-LATUS  RECTUM 

PV 

INTERMEDIATE  VECTOR 

QV 

-- 

intermediate  vector 

RD 

— 

R DOT  V DIVIDED  BY  MAGNITUDE  OF  R 

RM 

MAGNITUDE  OF  R 

RRD 

R DOT  V 

RV 

INTERMEDIATE  VECTOR 

STA 

W.«*» 

SINE  OF  TRUE  ANOMALY 

SV 

«B  MB 

INTERMEDIATE  VECTOR 

TV 

••MB 

INTERMEDIATE  VECTOR 

VM 

-MB 

magnitude  of  V 

WV 

— » 

RXV 

z 

-M. 

INTERMEDIATE  VECTOR 

AUX 

VARIABLES 

ANSI 

ANGLE  OF  FIRST  BURN 

ANG2 

M.MB 

ANGLE  OF  SECOND  BURN 

AZ 

DESIRED  LAUNCH  AZIMUTH 

AZI 

'•■MP 

INJECTION  AZIMUTH 

DJL 

JULIAN  DATE  OF  LAUNCH 

E 

ECCENTRICITY  OF  HYPERBOLA 

ELAT 

LATITUDE  OF  LAUNCH  SITE 
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ELON 

6ME 

PHI 

PV 

Q 

RAI 

ROT 

RP 

S 

TAI 

TB 

TC 

THI 

TIMl 

TIM2 

TIN4 

TU 

W 


LONG I TUOE  OF  LAUNCH  site 
GRAVITATIONAL  CONSTANT  OF  LAUNCH  PLANET 
INJECTION  latitude 

UNIT  VECTOR  IN  DIRECTION  OF  PERIaPSIS  OF 
HYPERBOLA 

UNIT  VECTOR  IN  PLANE  OF  HYPERBOLA 
perpendicular  to  PV 
INJECTION  RIGHT  ASCENSION 

rotational  rate  of  launch  planet 

PERIAPSIS  RADIUS  OF  HYPERBOLA 

UNIT  VECTOR  IN  DIRECTION  OF  DEPARTURE 

asymptote 

TRUE  ANOMALY  AT  INJECTION 

TIME  BETWEEN  LAUNCH  AND  INJECTION 

COAST  time 

INJECTION  LONGITUDE 

TIME  OF  first  BURN  (SEC) 

TIME  OF  SECOND  BURN  (SEC) 

TIME  (HRS)  OF  INJECTION  FROM  ZERO  HOURS  ON 
DATE  OF  LAUNCH 

TIME  (HRS)  OF  LAUNCH  AFTER  ZERO  HOURS  ON. 

DATE  OF  LAUNCH 

NORMAL  TO  LAUNCH  PLANE 


3.  BIAS 
COMMON 
MISC 

VARIABLES 

BVAL  — BIASES 

MCODE  — MEASUREMENT  CODE 


A,  block  data 
COMMON 
BLK 
COM 
PRT 


5.  CASOI 

VARIABLES 


A 

SEMI-MAJOR  AXIS 

C 

NORMAL  TO  PLANE  IN  TARGET  PLANE  EQUATORIAL 

coordinates 

CIMP 

NORMAL  TO  PLANE  IN  IMPACT  PLANE  COORDINATES 
(R  HAT»  S HAT#  T HAT) 

CM 

.«■»«» 

angular  momentum  from  equatorial  coordinates 

CSD 

mm 

COSINE  (DVP) 

CSW 

mm 

COSINE  (RVP) 

CTA 

mm 

COSINE  (TA) 

CIS 

mm 

COSINE  OF  TRUE  ANOMALY  AT  SPHERE  OF  INFLUENCE 

Cl 

mm 

angular  MOMENTUM  FROM  ECLIPTIC  COORDINATES 

DB 

mm 

target  impact  parameter  B 

OBDR 

mm 

TARGET  D.R 

DBDT 

mm 

target  b.t 

DECL 

mm 

DECLINATION  OF  APPROACH  ASYMPTOTE 
(EQUATORIAL  COORDINATES) 
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DEN 

DINCL 

DRCA 

DVP 

E 

ECIM 

EQEC 

EQIM 

F 

HI 

HL 

HP 

HW 

P 

PERI 

PI 

Q 

RA 

RAD 

RD 

RRD 

RS 

RSM 

RVP 

S 

SCZ 

50 

SOELW 

SF 

51 

SINCL 

SM 

SND 

SNW 

STA 

STS 

TA 

TAND 

TDELW 


intermediate  variable  in  hyperbolic  time 

CALCULATION 

INCLINATION  AT  CLOSEST  APPROACH 

RADIUS  AT  CLOSEST  APPROACH 

DECLINATION  OF  APPROACH  ASYMPTOTE  (ECLIPTIC 

COORDINATES) 

ECCENTRICITY  OF  TARGET  PLANE  HYPERBOLA 
ECLIPTIC-TO-IMPACT  PLANE  COORDINATE 

transformation 

TRANSFORMATION  MATRIX  FROM  EQUATORIAL  TO 
ECLIPTIC  COORDINATES 

equator I AL-TO-IMP ACT  PLANE  COORDINATE 

transformation 

intermediate  variable  in  hyperbolic  time 

CALCULATION 

INCLINATION  OF  HYPERBOLIC  ORBIT  PLANE 
LONGITUDE  OF  ASCENDING  NODE  OF  HYPERBOLIC 
ORBIT  PLANE 

SEMI-LATUS  rectum  OF  HYPERBOLA 
ARGUMENT  OF  PER TAPS IS  OF  HYPERBOLA 
UNIT  VECTOR  IN  DIRECTION  OF  PERIAPSIS 
PER I APS IS  RADIUS  OF  HYPERBOLA 
3.1415926536 

UNIT  VECTOR  NORMAL  TO  P BAR  IN  ORBITAL  PLANE 
longitude  of  incoming  ASYMPTOTE  (EQUATORIAL 
COORDINATES) 

CONVERSION  UNIT  FROM  RADIANS  TO  DEGREES 

intermediate  variable  in  hyperbolic  time 

CALCULATION 

intermediate  variable  in  hyperbolic  time 

CALCULATION 

POSITION  vector  at  SPHERE  OF  INFLUENCE 
RADIUS  MAGNITUDE  AT  SPHERE  OF  INFLUENCE 
INTERSECTION 

right  ascension  of  incoming  asymptotic 

(ECLIPTIC  COORDINATES) 

INCOMING  ASYMPTOTE (EQUATORIAL  COORDINATES) 

SIGN  OF  2 component  OF  ANGULAR  MOMENTUM 
SIGN  OF  DECLINATION  DECL 
SIGN  OF  ANGLE  BETWEEN  ASCENDING  NODE  AND 
INCOMING  ASYMPTOTE 

intermediate  VARIABLE  IN  HYPERBOLIC  TIME 
CALCULATION 

SIGN  OF  TARGET  INCLINATION 
STORAGE  OF  DINCL 

SIGN  OF  MOTION  (POSIGRADE  OR  RETROGRADE) 

SINE (DVP) 

SINE  RVP 
SINE  TA 

SINE  OF  ANGLE  AT  SPHERE  OF  INFLUENCE 
TRUE  ANOMALY  AT  SPHERE  OF  INFLUENCE 
tangent  DVP 

TANGENT  OF  ANGLE  BETWEEN  ASCENDING  NODE  AND 
INCOMING  ASYMPTOTE 
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theta 

TSICA 

TTG 

VHE 

VHP 

VHPM 

VVP 

W 

WPT 

Z 


ANGLE  IN  B-PLANE  FROM  T-AXIS  TO  B-PARAMETER 
TIME  FROM  SPHERE  OF  INFLUENCE  TO  CLOSEST 
APPROACH  ON  HYPERBOLA 

GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

corrected  hyperbolic  excess  velocity 
velocity  vector  at  sphere  of  influence 
magnitude  of  approach  asymptote 

NORMALIZED  APPROACH  ASYMPTOTE  (ECLIPTIC  COOR) 
longitude  of  ascending  node  (ECLIPTIC 

COORDINATES) 

normal  to  orbital  plane  (ECLIPTIC  COORDINATE) 
INTERMEDIATE  VECTOR  USED  IN  COMPUTING  P»Q 
VECTORS 


C0NC2 

VARIABLES 

A 

AM2 

A1 

A2 

A3 

CSE 

CTA 

CTA2 

Cl 

DDXO 

DDYO 

DXO 

DYO 

E 

EA 

F 

FMIl 

FMI 

1 

U 

K 

L 

N 

OPEC 

ORB 

P 

PI 

PS  I OP 

PV 

G 

RD 

RM 

RRD 

RTHD 

R2 

R3 

SNE 

SNF 


SEMI-MAJOR  AXIS 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
intermediate  VARIABLE 
COSINE  OF  ECCENTRIC  ANOMALY 
COSINE  OF  TRUE  ANOMALY 
COSINE  OF  TRUE  ANOMALY  ON  ELLIPSE 

magnitude  of  RXV 

intermediate  VARIABLE 

INTERMEDIATE  VARIABLE 

INTERMEdlATE  VARIABLE 

INTERMEDIATE  VARIABLE 

ECCENTRICITY 

ECCENTRIC  ANOMALY 

intermediate  VARIABLE 

INTERMEDIATE  VECTOR 

INTERMEDIATE  VECTOR 

INDEX 

INDEX 

INDEX 

INDEX 

intermediate  variable 
intermediate  vector 
intermediate  variable 

SEMI-LATUS  rectum 

mathematical  constant 
intermediate  state  transition  matrix 
intermediate  vector 
intermediate  vector 

R DOTvV  DIVIDED  BY  MAGNITUDE  OF  R 

magnitude  of  r 

R DOT  V 

INTERMEDIATE  VARIABLE 

intermediate  variable 
intermediate  variable 

SINE  OF  ECCENTRIC  ANOMALY 
SINE  OF  F 


ST  A 

SINE  OF  TRUE  ANOMALY 

STA2 

SINE  OF  TRUE  ANOMALY  ON  ELLIPSE 

TIMl 

— 

intermediate  TIME 

TIMS 

INTERMEDIATE  TIME 

VM 

magnitude  of  V 

WV 

RXV 

XO 

INTERMEDIATE  VARIABLE 

YO 

INTERMEDIATE  VARIABLE 

2 

INTERMEDIATE  VECTOR 

CONIG 

VARIABLES 

A 

SEMI-MAJOR  AXIS 

£ 

— 

ECCENTRICITY 

GMX 

GRAVITATIONAL  CONSTANT  OF  PRIMARY  BODY 

P 

-- p 

SEMI-LATUS  RECTUM 

PV 

standard  unit  vector  In  direction  OF 

PER I APS IS 

Q 

STANDARD  UNIT  VECTOR  IN  ORBITAL  PLANE 
NORMAL  TO  PV 

R 

— 

POSITION  VECTOR 

RM 

mm 

POSITION  vector  MAGNITUDE 

RP 

«mmm 

PERIAPSlS  RADIUS 

TA 

TRUE  ANOMALY  OF  SPECIFIED  POSITION 

V 

-- 

VELOCITY  VECTOR 

VM 

VELOCITY  VECTOR  MAGNITUDE 

W 

ARGUMENT  OF  PERIAPSlS 

WV 

NORMAL  TO  ORBITAL  PLANE 

XI 

INCLINATION 

XL 

longitude  of  ascending  node 

CONST 

VARIABLES 

AN61 

ANGLE  OF  first  BURN 

ANS2 

ANGLE  OF  SECOND  BURN 

DDIQ 

mm 

OBLIQUITY  OF  LAUNCH  PLANET  ORBIT 

DOLAT 

LATITUDE  OF  LAUNCH  SITE 

DDLON 

LONGTUDE  OF  LAUNCH  SITE 

DDLQ 

ASCENDING  NODE  OF  LAUNCH  PLANET  ORBIT 

HHTA 

— 

TRUE  ANOMALY  OF  TRAJECTORY 

NOD 

INDEX  OF  LAUNCH  PLANET 

NTT 

INDEX  OF  TARGET  PLANET 

ROT 

rotational  rate  of  LAUNCH  PLANET 

RP 

PARKING  ORBIT  RADIUS 

TIMl 

TIME  OF  FIRST  BURN 

TIM2 

TIME  OF  SECOND  BURN 

CONVERT 

VARIABLES 

B1 

INTERMEDIATE  VARIABLE 

B2 

INTERMEDIATE  VARIABLE 

B3 

INTERMEDIATE  VARIABLE 

C6 

«... 

COSINE  OF  PATH  ANGLE 

CP 

mm 

COSINE  OF  declination 
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10. 


CT 

— COSINE  OF  RIGHT  ASCENSION 

S6 

— SINE  OF 

PATH  ANGLE 

SP 

— sine  of 

DECLINATION 

ST 

— SINE  OF 

RIGHT  ASCENSION 

DATA 

COMMON 

BLK 

COM 

CONST 

C0NST2 

C0NST3 

EVENT 

eul 

MEAS 

MISC 

NAME 

PRT 

SIMCNT 

SI  Ml 

SIM2 

STM 

STVEC 

TIM 

TRAJCD 

TRJ 

VM 

VARIABLES 
AMIN  ~- 

D -- 

DATE 

EARTH 

FNDT 

6AMMA 

I 

ICNT 

IDAY 

I HR 
IL 

IMIN 

IMO 

IPRO 

IROW 

lYR 

II 
12 

13  — 

14 
J 

JUPITER  — 
K 

LDAY 


intermediate  VARIABLE 
INTERMEDIATE  JULIAN  DATE 
INTERMEDIATE  JULIAN  DATE 

CALENDAR  DATE  AT  WHICH  EARTHS  ORBITAL  ELEMENTS 

WILL  BE  CALCULATED 

DATE  OF  FINAL  TIME 

PATH  ANGLE 

INDEX 

COUNTER 

CALENDAR  DAY  OF  FINAL  TIME 
CALENDAR  HOUR  OF  FINAL  TIME 
INDEX 

CALENDAR  MINUTES  OF  FINAL  TIME 
CALENDAR  MONTH  (JF  FINAL  TIME 
PROBLEM  number 
INDEX 

CALENDAR  YEAR  OF  FINAL  TIME 

counter 

COUNTER 

COUNTER 

COUNTER 

INDEX 

CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 

JUPITER  WILL  BE  CALCULATED 

INDEX 

CALENDAR  DAY  OF  INITIAL  TIME 


LHR 

CALENDAR  HOURS  OF  INITIAL  TIME 

LMIN 

CALENDAR  MINUTES  OF  INITIAL  TIME 

LMO 

CALENDAR  MONTH  OF  INITIAL  TIME 

LYR 

CALENDAR  YEAR  OF  INITIAL  TIME 

MARS 

CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS 
MARS  WILL  BE  CALCULATED 

OF 

MEAS 

MEASUREMENT  CODES 

MERCURY 

ww 

CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS 
MERCURY  WILL  BE  CALCULATED 

OF 

MOON 

CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS 
EARTHS  MOON  WILL  BE  CALCULATED 

OF 

NENT 

NUMBER  OF  ENTRIES  IN  MEASUREMENT  SCHEDULE 

NEPTUNE 

CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS 
NEPTUNE  WILL  BE  CALCULATED 

OF 

N1 

-- 

COUNTER 

N2 

COUNTER 

N3 

counter 

N4 

COUNTER 

PHI 

— 

DECLINATION 

PLUTO 

mmmit 

CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS 
PLUTO  WILL  BE  CALUCLATED 

OF 

RDS 

geocentric  RADIUS  OF  VEHICLE 

SATURN 

CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS 
SATURN  WILL  BE  CALCULATED 

OF 

SCHED 

ARRAY  OF  times  IN  MEASUREMENT  SCHEDULE 

SEC 

INTERMEDIATE  CALENDAR  SECONDS 

SEC  I 

CALENDAR  SECONDS  AT  FINAL  TIME 

SECL 

CALENDAR  SECONDS  AT  INITIAL  TIME 

SIGMA 

azimuth 

theta 

— 

RIGHT  ASCENSION 

T1 

INTERMEDIATE  TIME 

T2 

INTERMEDIATE  TIME 

T3 

— 

INTERMEDIATE  TIME 

T4 

INTERMEDIATE  TIME 

URANUS 

CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS 
URANUS  WILL  BE  CALCULATED 

OF 

VEL 

magnitude  of  velocity  of  vehicle 

VENUS  . 

mmm 

CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS 
VENUS  WILL  BE  CALCULATED 

OF 

VUNIT 

INTERMEDIATE  VELOCITY  CONVERSION  FACTOR 

11.  DYNO 
COMMON 
CONST 
MISC 
SIMCNT 
SIMl 
STM 
STVEC 
TIM 
VM 

VARIABLES 

DT  TIME  increment 

D2  — SQUARE  OF  DT 


I 

— INDEX 

IC 

— INDEX 

J 

— INDEX 

T1 

— INITIAL  TIME 

T2 

— FINAL  time 

I2t  EIGEN 
COMMON 
CONSTE 
EVENT 
MISC 
NAME 
STM 
STVEC 
TIM 

TRAJCD 

VM 

VARIABLES 

E6VCT 

EGVL 

I 

ICODE 

J 

K 

LINES 

MAX 

PEI6 

RF 

RHO 

VEIG 


EIGENVECTORS 

EIGENVALUES 

INDEX 

INTERMEDIATE  CODE  USED  IN  COMPUTING  EIGEN- 
VECTORS 
INDEX 
INDEX 

LINE  COUNT 

MAXIMUM  NUMBER  OF  LINES  PER  PAGE 
INTERMEDIATE  ARRAY 

POSITION  AND  VELOCITY  OF  VEHICLE  AT  TIME  OF 
EIGENVECTOR  EVENT 
CORRELATION  COEFFICIENT  MATRIX 
INTERMEDIATE  VECTOR 


13f  EIGSIM 
COMMON 
CONST 
C0NST2 
EVENT 
MISC 
NAME 
SIMl 
SIM2 
STVEC 
TIM 

TRAJCD 

TRJ 

VM 

VARIABLES 

DUM 

EGVCT 

EGVL 

I 

ICODE 

J 

K 


INTERMEDIATE  VECTOR 
EIGENVECTORS 
EIGENVALUES 
INDEX 

INTERMEDIATE  CODE  USED  IN  COMPUTING  EIGEN- 
VALUES AND  EIGENVECTORS 
INDEX 
INDEX 


LINES 

— 

LINE  COUNT 

MAX 

MAXIMUM  number  OF  LINES  PER  PAGE 

PEIG 

intermediate  array 

RF 

• • 

POSITION  AND  VELOCITY  OF  VEHICLE  AT  TIME  OF 
EIGENVECTOR  EVENT  ON  ORIGINAL  NOMINAL 

RFl 

POSITION  AND  VELOCITY  OF  VEHICLE  ON  MOST 
RECENT  NOMINAL  AT  TIME  OF  EIGENVECTOR  EVENT 

RF2 

•mmm 

POSITION  AND  VELOCITY  OF  VEHICLE  ON  ACTUAL 
trajectory  at  TIME  OF  EIGENVECTOR  EVENT 

RHO 

— 

CORRELATION  COEFFICIENT  MATRIX 

RI2 

POSITION  AND  VELOCITY  OF  VEHICLE  ON  ACTUAL 
trajectory  at  time  of  LAST  MEASUREMENT  OR 
EVENT 

VEIG 

— 

INTERMEDIATE  VECTOR 

14.  EPHEM 
COMMON 
BLK 
COM 
PRT 

VARIABLES 

DO 

E2 

E3 

FCTR 

1 

IJ 

IJl 

IK 

IL 

IN 

INO 

ITEMP 

ITEST 


ITEST2  — 


J 

K 

P 

PI2 

R 

TRG 

VEL 

WX 

WY 

WZ 


INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

intermediate  VARIABLE 

velocity  divided  by  RADIUS 

CODE  OF  PLANET 

INDEX 

INDEX 

INDEX 

INDEX 

INDEX » ROW  OF  F 
INDEX 

INTERMEDIATE  VARIABLE 

INTERNAL  CODE  WHICH  DETERMINES  IF  COORDINATES 
OF  earth  are  being  CALCULATED  ONLY  IN  ORDER 
TO  COMPUTE  THOSE  OF  MOON 

INTERNAL  CODE  WHICH  DETERMINES  IF  COORDINATES 

OF  EARTH  HAVE  BEEN  COMPUTED  PRIOR  TO  COMPUTING 

THOSE  OF  MOON 

INDEX 

INDEX 

SEMI-LATUS  rectum 

EQUAL  TO  TWO  TIMES  PI 

HELIOCENTRIC  RADIUS  OF  PLANET 

ARRAY  OF  TRIGONOMETRIC  FUNCTIONS  OF  SPECIFIED 

ANGLES 

velocity  of  planet 

X-COMPONENT  OF  INTERMEDIATE  VECTOR^  W 

Y-COMPONENT  OF  INTERMEDIATE  VECTORr  W 

Z-COMPONENT  OF  INTERMEDIATE  VECTOR » W 


15.  ESTMT 
COMMON 
BLK 

* 
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COM 

PRT 

VARIABLES 
I — INDEX 

sJ  — INDEX 

16 f EULMX 

VARIABLES 

ALP  — FIRST  ROTATION  ANGLE 

BET  — SECOND  ROTATION  ANGLE 

GAM  — THIRD  ROTATION  ANGLE 

LL  — THIRD  AXIS  OF  ROTATION 

MM  — SECOND  AXIS  OF  ROTATION 

NN  FIRST  AXIS  OF  ROTATION 

P THE  transformation  MATRIX 


17.  6HA 

COMMON 

TIM 

VARIABLES 

D 

EQMEG 

ID 

REFJD 

TFRAC 

tstar 


NUMBER  OF  DAYS  IN  TSTAR 
EARTH  ROTATION  RATE 
GREENWICH  HOUR  ANGLE 

intermediate  variable 

JULIAN  DATE  OF  JAN.  0»  1950 
FRACTION  OF  DAY  IN  TSTAR 

JULIAN  DATE»  EPOCH  JAN.  0»  1950»  OF  INITIAL 
trajectory  time 


18*  GUID 
COMMON 
BLK 

CONST2 

EVENT 

GUI 

MISC 

NAME 

STM 

STVEC 

TIM 

TRAJCD 

VM 

VARIABLES 

A — GUIDANCE  SUB-MATRIX  A 

BB  — GUIDANCE  SUB-MATRIX  B 

BDRS  — B DOT  R 

BDRl  — VALUE  OF  B DOT  R RETURNED  FROM  PARTL  (NOT 
USED) 

BDTS  — B DOT  T 

BDTI  — VALUE  OF  B DOT  T RETURNED  FROM  PARTL  (NOT 
USED) 

BS  --  magnitude  of  B VECTOR 

B1  — VALUE  OF  B RETURNED  FROM  PARTL  (NOT  USED) 

D — intermediate  JULIAN  DATE 
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DUMl 

D1 

E6VCT 

EGVL 

1 

ICLS 

ICS 

INCMTS 

I PR 

ISP 

U 

K 

L 

LINES 

MAX 

PBR 

PBT 

PHIl 
PHI2 
PH  1 3 
RI 

RIPS 

TCA 

TIM INS 

TSI 

XCA 

XSIP 

XSIV 


EIGENVECTORS 

STORAGE  LOCATION  FOR  DTMAX 

EIGENVECTORS 

EIGENVALUES 

INDEX 

intermediate  storage  FOR  ICL 
intermediate  storage  for  ICL2 

intermediate  storage  for  incmt 

STORAGE  FOR  IPRINT 

intermediate  storage  for  ISP2 

INDEX 

INDEX 

INDEX 

LINE  COUNT 

MAXIMUM  number  OF  LINES  PER  PAGE 
PARTIAL  OF  B DOT  R WITH  RESPECT  TO  STATE 
VECTOR 

PARTIAL  OF  B DOT  T WITH  RESPECT  TO  STATE 
VECTOR 

INTERMEDIATE  ARRAY 
INTERMEDIATE  ARRAY 

intermediate  array 

POSITION  AND  VELOCITY  OF  VEHICLE  AT  TIME  OF 
GUIDANCE  EVENT 

POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
SUN  AT  SPHERE  OF  INFLUENCE 
trajectory  time  at  CLOSEST  APPROACH 
INTERMEDIATE  STORAGE  FOR  TIMINT 

trajectory  time  at  sphere  of  influence 

POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
SUN  at  closest  APPROACH 

POSITION  OF  vehicle  RELATIVE  TO  TARGET  PLANET 
AT  SPHERE  OF  INFLUENCE 

velocity  of  vehicle  relative  to  target  planet 

AT  SPHERE  OF  INFLUENCE 


19.  GUIOM 
COMMON 
CONST 
C0NST2 
EVENT 
GUI 
MISC 
NAME 
STM 
STVEC 
TIM 

TRAJCD 

VM 

VARIABLES 

ADA  — variation  MATRIX 

AMAX  — intermediate  VARIABLE  USED  TO  FIND  MAXIMUM 
EIGENVALUE  OF  S 

DUM  — RHO  DIVIDED  BY  MAGNITUDE  OF  EIGENVECTOR 
CORRESPONDING  TO  MAXIMUM  EIGENVALUE  OF  S 


DUMl 

DUM2 

EGM 

EGVCT 

EGVL 

EXEC 

EXM 

EXV 

GA 

GAP 

I 

ICODE 

IC0DE2 

IGP 

IQP 

ISPHC 
I TEMP 

vi 

K 

L 

LINES 

MAP 

MAX 

NN 

PI 

P2 

RF 

RHO 

S 

SDV 

TRS 

U 

VEie 

X2 

Y2 

Z2 


INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 

magnitude  of  eigenvector  eORRESPONDING  TO 

MAXIMUM  EIGENVALUE  OF  S 

EIGENVECTORS 

EIGENVALUES 

EXECUTION  ERROR  MATRIX 
INTERMEDIATE  VARIABLE 
EXPECTED  VALUE  OF  VELOCITY  CORRECTION 
GUIDANCE  MATRIX 

INTERMEDIATE  ARRAY  EQUAL  TO  GA  TIMES  P 
INDEX 

INTERNAL  CODE 
INTERMEDIATE  CODE 

CODE  WHICH  determines  WHICH  GUIDANCE  POLICY 
IS  BEING  USED 

CODE  WHICH  DETERMINES  WHICH  POLICY  IS  BEING 

USED  TO  COMPUTE  THE  EXECUTION  ERROR  MATRIX 

temporary  STORAGE  FOR  ISPH 

INTERMEDIATE  VARIABLE 

INDEX 

INDEX 

INDEX 

LINE  COUNT 

INDEX  OF  MAXIMUM  EIGENVALUE  OF  S 
MAXIMUM  LINES  PER  PAGE 
intermediate  INDEX 
INTERMEDIATE  STORAGE  FOR  P 
intermediate  STORAGE  FOR  P 

POSITION  AND  VELOCITY  OF  VEHICLE  AT  TIME  OF 

GUIDANCE  EVENT 

EXPECTED  VALUE  OF  DELTA  V 

COVARIANCE  MATRIX  ASSOCIATED  WITH  VELOCITY 

COMPONENTS 

STANDARD  DEVIATION  OF  EXPECTED  VALUE  OF 
DELTA  V 
TRACE  OF  S 

INTERMEDIATE  VARIABLE 
INTERMEDIATE  VECTOR 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 


GUIS 

COMMON 

BLK 

CONST 

C0NST2 

EVENT 

GUI 

MISC 

NAME 

SIMl 

SIM2 


STM 

STVEC 

TIM 

TRAvICD 

TRJ 

VM 

variables 

A 

BB 

BDRl 

BDTl 

B1 


DUM 

DUMl 

01 

EGVCT 

EGVL 

I 

ICUS 
ICS 
I PR 
ISPS 

vJ 

K 

L 

LINES 

MAX 

PBR 

PBT 

PHII 
PHI2 
PH  1 3 
RI 

RIl 

RMCA 

RMS  I 


RTPS 

TCA 

TSI 

VMCA 

V MS  I 

XCA 


GUIDANCE  SUB-MATRIX  A 
GUIDANCE  SUB-MATRIX  B 

VALUE  OF  B DOT  R RETURNED  FROM  PARTL  (NOT 
USED) 

VALUE  OF  B DOT  T RETURNED  FROM  PARTL  (NOT 
USED) 

magnitude  of  B VECTOR  RETURNED  FROM  PARTL 
(NOT  USED) 
intermediate  ARRAY 
EIGENVECTORS 

TEMPORARY  STORAGE  FOR  DTMAX 

EIGENVECTORS 

EIGENVALUES 

INDEX 

intermediate  storage  FOR  ICL 
intermediate  storage  for  ICL2 
intermediate  storage  for  iprint 
intermediate  storage  for  ISP2 

INDEX 

INDEX 

INDEX 

LINE  COUNT 

MAXIMUM  NUMBER  OF  LINES  PER  PAGE 
PARTIAL  OF  B DOT  R WITH  RESPECT  TO  STATE 
VECTOR 

PARTIAL  OF  B DOT  T WITH  RESPECT  TO  STATE 
VECTOR 

intermediate  ARRAY 
INTERMEDIATE  ARRAY 

intermediate  array 

POSITION  AND  VELOCITY  OF  VEHICLE  ON  ORIGINAL 
NOMINAL  TRAJECTORY  AT  TIME  OF  GUIDANCE  EVENT 
POSITION  AND  VELOCITY  OF  VEHICLE  ON  MOST 
RECENT  NOMINAL  AT  TIME  OF  GUIDANCE  EVENT 
distance  of  vehicle  FROM  TARGET  PLANET  AT 
CLOSEST  APPROACH 

DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  AT 
SPHERE  OF  INFLUENCE 

POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE 
TO  SUN  AT  SPHERE  OF  INFLUENCE 
trajectory  TIME  AT  CLOSEST  APPROACH 
trajectory  time  at  SPHERE  OF  INFLUENCE 
magnitude  of  velocity  of  VEHICLE  RELATIVE 

TO  target  planet  at  closest  approach 
magnitude  of  velocity  of  vehicle  relative 
TO  target  planet  at  sphere  of  influence 
position  and  velocity  of  vehicle  relative 
TO  SUN  at  closest  APPROACH 
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21.  6UISIM 
COMMON 


C0NST2 

EVENT 

6Ui 

MISC 

NAME 

simcnt 

SIM2 

STM 

STVEC 

TIM 

TRAWCD 

TRJ 

VM 

VARIABLES 

ADA 

variation  matrix 

AKl 

intermediate  variable  for  resolution  error 

ALl 

«« 

intermediate  variable  for  error  in  Pointing 

BTl 

mm 

angle  1 

intermediate  variable  for  error  in  pointing 

DEUX 

mm 

ANGLE  2 

estimated  deviation  of  state  vector  from 

OUM 

mm 

ORIGINAL  NOMINAL^  ALSO  USED  FOR  ERROR, AT 
target  conditions  due  to  NAVIGATION  UNCER- 
TAINTY 

INTERMEDIATE  VECTOR 

OUMl 

mm 

intermediate  variable 

DUM2 

.mm 

INTERMEDIATE  ARRAY 

DUM3 

mm 

INTERMEDIATE  VARIABLE 

DV 

mm 

perfect  correction#  also  USED  FOR  ACTUAL 

DVC 

ERROR  IN  CORRECTION  AND  ACTUAL  EPROR  AT 

target  after  correction 

COMMANDED  CORRECTION 

DVCM 

mm 

MAGNITUDE  OF  COMMANDED  CORRECTION 

DVE 

mm 

ERROR  IN  CORRECTION  DUE  TO  NAVIGATION  UNCER- 

DX 

mm 

TAINTY#  ALSO  USED  FOR  ACTUAL  CORRECTION 
ACTUAL  deviation  OF  STATE  VECTOR  FROM 

E6VCT 

ORIGINAL  NOMINAL#  ALSO  USED  AS  ACTUAL  ORBIT 

DETERMINATION  INACCURACY 

EIGENVECTORS 

E6VU 

mm 

EIGENVALUES 

EXEC 

mm 

EXECUTION  ERROR  MATRIX 

EXM 

mm 

intermediate  variable 

€A 

mm 

guidance  MATRIX 

GAP 

mm 

INTERMEDIATE  ARRAY  EQUAL  TO  GA  TIMES  P 

I 

mm 

INDEX 

ICOOE 

mm 

INTERNAL  CODE 

IC0DE2 

mm 

INTERNAL  code 

I6P 

mm 

CODE  USED  TO  DETERMINE  WHICH  GUIDANCE  POLICY 

J 

mm 

IS  being  used 

INDEX 

K 

mm 

INDEX 

U 

mm 

INDEX 
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22. 


23. 


LINES 

LINE  count 

MAX 

MAXIMUM  number  OF  LINES  PER  PAGE 

NN 

— 

INTERMEDIATE  INDEX 

PI 

TEMPORARY  STORAGE  FOR  P 

RF 

POSITION  AND  VELOCITY  OF  VEHICLE  ON  ORIGINAL 
NOMINAL  AT  TIME  OF  GUIDANCE  EVENT 

RFl 

POSITION  AND  VELOCITY  OF  VEHICLE  ON  MOST 
RECENT  NOMINAL  AT  TIME  OF  GUIDANCE  EVENT 

RF2 

POSITION  AND  velocity  OF  VEHICLE  ON  ACTUAL 
TRAUECTORY  AT  time  of  GUIDANCE  EVENT 

RI2 

POSITION  AND  VELOCITY  OF  VEHICLE  ON  ACTUAL 

trajectory  at  time  of  last  measurement  or 

EVENT 

S 

covariance  matrix  associated  with  velocity 

COMPONENTS 

SI 

INTERMEDIATE  VARIABLE  FOR  PROPORTIONALITY 
ERROR 

VEI6 

INTERMEDIATE  VECTOR 

X2 

— 

INTERMEDIATE  VARIABLE 

Y2 

INTERMEDIATE  VARIABLE 

Z2 

INTERMEDIATE  VARIABLE 

HYELS 

VARIABLES 

I 

INDEX 

u 

INDEX 

K 

INDEX 

K2 

SQUARE  OF  SIGMA  LEVEL 

PI 

INVERSE  OF  MATRIX  P 

P12 

TWICE  the  value  OF  (1.2)  ELEMENT  OF  PI 

P13 

TWICE  the  value  OF  (1.3)  ELEMENT  OF  PI 

P23 

TWICE  the  value  OF  (2.3)  ELEMENT  OF  PI 

V 

-- 

temporary  storage  vector  for  array  P 

HYPER 

variables 

A 

«nr  w 

SEMI-MAJOR  AXIS 

AZ 

LAUNCH  AZIMUTH 

C3 

LAUNCH  ENERGY 

DLA 

— 

DECLINATION  OF  DEPARTURE  ASYMPTOTE 

E 

ECCENTRICITY 

ELAT 

LATITUDE  OF  LAUNCH  SITE 

GME 

mim 

gravitational  constant  of  LAUNCH  PLANET 

P 

SEMI-LATUS  RECTUM 

PV 

— 

UNIT  VECTOR  DIRECTED  TOWARD  PER I APS IS 

Q 

UNIT  VECTOR  NORMAL  TO  P HAT  IN  ORBITAL  PLANE 

RAL 

RIGHT  ASCENSION  OF  DEPARTURE  ASYMPTOTE 

RP 

' , ^ : \ 

PERIAPSIS  RADIUS 

S 

HYPERBOLIC  EXCESS  VELOCITY 

VHL 

mtm 

SPEED  AT  INFINITY  ALONG  HYPERBOLA 

W 

mm 

NORMAL  TO  PLANE 

XI 

mm- 

INCLINATION 

XL 

•• 

LONGITUDE  OF  ASCENDING  NODE 

XW 

-«»  w 

ARGUMENT  OF  PERIAPSIS 

24*  HYPSV 

variables 

C3 

E 

ECEQ 


6AM 

6ME 

P 

PV 

Q 

R 

RP 

TA 

TS 

VEC 

VEQ 

VHL 

VS 

XEC 


ENERGY 

ECCENTRICITY 

transformation  matrix  from  ECLIPTIC  TO 
EQUATORIAL  COORDINATES 
PATH  ANGLE  AT  GIVEN  RADIUS 
gravitational  constant  of  PRIMARY 
SEMI-LATUS  RECTUM 

UNIT  VECTOR  TO  PERI APSIS  FROM  PRIMARY 

UNIT  VECTOR  NORMAL  TO  P HAT  IN  PLANE  OF  ORBIT 

RADIUS  AT  WHICH  STATE  IS  DESIRED 

PERIAPSIS  RADIUS 

TRUE  ANOMALY  AT  GIVEN  RADIUS 

time  FROM  PERIAPSIS  TO  RADIUS 

VELOCITY  AT  GIVEN  RADIUS 

velocity  vector  at  given  radius 

HYPERBOLIC  EXCESS  VELOCITY 
SPEED  AT  GIVEN  RADIUS 
POSITION  VECTOR  AT  GIVEN  RADIUS 
POSITION  VECTOR  AT  GIVEN  RADIUS 


25.  INPUTZ 
COMMON 
BLK 
COM 
PRT 

VARIABLES 

D 

D2 

I 

IDAY 

IHR 

IMIN 

IMO 


INERR 

JP  mm 

lYR 

U 

LDAY 

LHR 

LMIN 

LMO 

LYR 

SECI 

SECL 

TP 


JULIAN  DATE  OF  INITIAL  TRAJECTORY  TIME 
JULIAN  DATE  OF  FINAL  TRAJECTORY  TIME 
INDEX 

DAY  OF  calendar  DATE  OF  FINAL  TRAJECTORY  TIME 
HOUR  OF  CALENDAR  DATe  OF  FINAL  TRAJECTORY  TIME 
MINUTE  OF  CALENDAR  DATE  OF  FINAL  TRAJECTORY 

time 

MONTH  OF  CALENDAR  DATE  OF  FINAL  TRAJECTORY 
TIME 

INTERNAL  CODE 

CODE  number  of  PLANET 

YEAR  OF  CALENDAR  DATE  OF  FINAL  TRAJECTORY  TIME 
INDEX 

DAY  OF  CALENDAR  DATE  OF  INITIAL  TIME 
HOUR  OF  CALENDAR  DATE  OF  INITIAL  TIME 
MINUTE  OF  calendar  DATE  OF  INITIAL  TIME 
MONTH  OF  CALENDAR  DATE  OF  INITIAL  TIME 
YEAR  OF  calendar  DATE  OF  INITIAL  TIME 
SECOND  OF  calendar  DATE  OF  FINAL  TIME 
SECOND  OF  calendar  DATE  OF  INITIAL  TIME 
INTERMEDIATE  VARIABLE 


26.  JACOBI 

VARIABLES 

A I IP  — INTERMEDIATE  VARIABLE 

AIPIP  — INTERMEDIATE  VARIABLE-A(IPIP) 
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AIPJP 

INTERMEDIATE  VARIABLE-A( IPUP) 

AJPJP 

I NTERMEDI ATE  V ART  ABLE-A ( UPUP ) 

CS 

INTERMEDIATE  VARIABLE 

DEL 

DIFFERENCE  IN  ELEMENTS  OF  A 

I 

INDEX 

II 

INDEX 

IIP 

INDEX 

lU 

INDEX 

UP 

mmmm 

INDEX 

IP 

INDEX 

IPI 

INDEX 

IP  IP 

INDEX 

IPJP 

INDEX 

IPPI 

•— 

INDEX 

IPI 

INDEX 

IREDO 

-- 

COUNTER 

vJ 

— 

INDEX 

vJP 

INDEX 

UP  I 

INDEX 

UPUP 

INDEX 

KR 

DIMENSION  OF  A 

KRPl 

KR  + 1 

NMl 

N - 1 

RAD 

intermediate  VARIABLE 

SN 

INTERMEDIATE  VARIABLE 

TN 

INTERMEDIATE  VARIABLE 

T1 

mmnm 

LARGEST  OFF-DIAGONAL  ELEMENT 

VHP 

INTERMEDIATE  VARIABLE 

LAMB 

VARIABLES 

A 

— 

SEMI-MAUOR  AXIS  OF  HELIOCENTRIC  ELLIPSE 

E 

«■»«» 

ECCENTRICITY  OF  HELIOCENTRIC  ELLIPSE 

GN 

— 

GRAVITATIONAL  CONSTANT  OF  SUN 

LOG 

FLAG  INDICATING  WHETHER  ITERATION  PROCESS 

NTYS 

MRW 

converged  OR  FAILED 

FLAG  SPECIFYING  WHETHER  PS I IS  LESS  THAN 

P 

«B«W 

DEGREES  OR  IS  GREATER  THAN  180  DEGRESS 
SEMl-LATUS  RECTUM  OF  HELIOCENTRIC  ELLIPSE 

PSI 

TRANSFER  ANGLE 

RL 

HELIOCENTRIC  LAUNCH  PLANET  RADIUS 

RP 

m»4m 

heliocentric  target  planet  radius 

TF 

— P 

TIME  OF  FLIGHT 

VL 

TRUE  ANOMALY  AT  LAUNCH 

VP 

mt*m 

TRUE  ANOMALY  AT  ARRIVAL 

MATIN 

VARIABLES 

AL 

A(LL)  + S (INTERMEDIATE  VARIABLE) 

ALBAR 

intermediate  VARIABLE 

B 

•PP 

INTERMEDIATE  VECTOR 

DETR 

m*" 

INTERMEDIATE  VECTOR 

6 

INTERMEDIATE  VECTOR 

I 

•••• 

INDEX 
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Ij 

INDEX 

IK 

INTERMEDIATE 

INDEX 

IL 

intermediate 

INDEX 

lOFF 

INDEX 

IX 

INTERMEDIATE 

VECTOR 

I XL 

intermediate 

INDEX 

sJ 

INDEX 

JI 

INTERMEDIATE 

INDEX 

OL 

INTERMEDIATE 

INDEX 

JOFF 

— 

intermediate 

INDEX 

K 

INDEX 

KJ 

INTERMEDIATE 

INDEX 

KJA 

INTERMEDIATE 

INDEX 

KR 

DIMENSION  OF 

A 

L 

INDEX 

LI 

INTERMEDIATE 

INDEX 

LJ 

— 

INTERMEDIATE 

INDEX 

LL 

INDEX 

LI 

INTERMEDIATE 

INDEX 

MIXI 

wmmm 

intermediate 

VARIABLE 

MIXJ 

mmmm 

INTERMEDIATE 

VARIABLE 

MI  XL 

INTERMEDIATE 

VARIABLE 

S 

INTERMEDIATE 

VARIABLE 

X 

INTERMEDIATE 

VARIABLE 

XOFF 

INTERMEDIATE 

VARIABLE 

29.  MENO 
COMMON 
CONST 
MISC 
SIMCNT 
SIMl 
STM 

VARIABLES 
I — INDEX 

J — INDEX 


30.  MUND 
COMMON 
BLK 

C0NST3 

MISC 

STM 

STVEC 

TIM 

TRAJCD 

VM 

VARIABLES 
I — INDEX 

IPR  — TEMPORARY  STORAGE  FOR  IPRINT 

J — INDEX 

RPER  — ALTERED  POSITION  AND  VELOCITY  OF  VEHICLE 
AT  FINAL  TIME 


SAVE  — TEMPORARY  STORAGE  LOCATION  FOR  GRAVITATIONAL 
CONSTANTS  OF  SUN  AND  TARGET  PLANET 
THETA  — augmented  PORTION  OF  STATE  TRANSITION  MATRIX 

31.  NAVM 
COMMON 
STM 
STVEC 
VARIABLES 


A 

INTERMEDIATE 

VECTOR 

I 

INDEX 

J 

INDEX 

K 

INDEX 

KK 

-- 

INDEX 

L 

INDEX 

m 

<mmm 

INDEX 

N1 

DIMENSION  OF 

P 

FPHT 

•w 

INTERMEDIATE 

array 

32,  NDTM 
COMMON 
MISC 
STM 
TIM 

TRAUCD 

VM 

variables 


FI 

TEMPORARY  STORAGE  FOR  FACP 

F2 

TEMPORARY  STORAGE  FOR  FACV 

T 

INDEX 

II 

•pttiMI 

INDEX 

IPR 

INTERMEDIATE  STORAGE  FOR  IPRINT 

M 

INDEX 

N 

INDEX 

RP 

WMW 

POSITION  AND  VELOCITY  OF  VEHICLE 

AT  INITIAL 

TIME 

SAVE 

TEMPORARY  STORAGE  FOR  ACC 

T 

ALTERED  POSITION  AND  VELOCITY  OF 
INITIAL  TIME 

VEHICLE 

AT 

U 

ALTERED  POSITION  AND  VELOCITY  OF 
FINAL  time 

VEHICLE 

AT 

33.  NEWPGE 
COMMON 

BLK 

COM 

PRT 

34,  NJEXN 
COMMON 

BLK 

VARIABLES 

ANGl  — ANGLE  OF  FIRST  BURN 

ANG2  — ANGLE  OF  SECOND  BURN 
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AU 

AUDAY 

AUS 

AZI 

CCA 

ecE 

CCEAl 

CCI 

CCL 

CCMl 

CCN 

CCP 

CCPSl 

CCRMl 

CCRl 

CCTAl 

CCVMl 

CCVl 

CCW 

Cl 

CL 

CONV 

C3 

DDAZ 

DOG 

ODIQ 

DDJD 

DDLAT 

COLON 

DDLQ 

DON 

DDRl 

DOS 

ODVl 

DLAQ 

DPA 

ECEQ 

HHA 


CONVERSION  UNIT  FROM  KM  TO  ASTRONOMICAL 
UNITS 

CONVERSION  UNIT  FROM  KM/SEC  TO  AU/OAY 
conversion  unit  FROM  KM  TO  AU 
AZIMUTH  ANGLE  AT  INJECTION 
HELIOCENTRIC  SEMI-MAJOR  AXIS 

heliocentric  eccentricity 

ECCENTRIC  ANOMALY  ON  HELIOCENTRIC  ELLIPSE 
AT  LAUNCH 

HELIOCENTRIC  INCLINATION 
HELIOCENTRIC  LONGITUDE  OF  ASCENDING  NODE 
MEAN  ANOMALY  ON  HELIOCENTRIC  ELLIPSE  AT 
LAUNCH 

NORMAL  TO  HELIOCENTRIC  PLANE 

HELIOCENTRIC  SEMI-LATUS  RECTUM 

HELIOCENTRIC  CENTRAL  ANGLE 

MAGNITUDE  OF  HELIOCENTRIC  RADIUS  AT  LAUNCH 

heliocentric  radius  VECTOR  AT  LAUNCH  (AU) 

TRUE  ANOMALY  ON  HELIOCENTRIC  ELLIPSE  AT 

LAUNCH 

magnitude  of  heliocentric  velocity  at 

LAUNCH  (AU/DAY) 

heliocentric  velocity  vector  at  launch 

(AU/DAY) 

HELIOCENTRIC  ARGUMENT  OF  PERIAPSIS 
COSINE  OF  inclination  (OF  EQUATOR  W.R.T. 
ECLIPTIC) 

COSINE  OF  LONGITUDE  OF  ASCENDING  NODE 
(OF  EQUATOR  W.R.T*  ECLIPTIC) 

CONVERSION  UNIT  FROM  KM/SEC  TO  AU/DAY 

ENERGY  MEASURE 

AZIMUTH  angle  AT  LAUNCH 

gravitational  constant  of  launch  planet 

INCLINATION  OF  EQUATOR  W.R.T.  ECLIPTIC 
JULIAN  DATE  OF  LAUNCH  (IF  JINJT=0»  OUTPUT 
IS  INJECTION  time) 

LATITUDE  OF  LAUNCH  SITE 

LONGITUDE  OF  LAUNCH  SITE 

LONGITUDE  OF  ASCENDING  NODE  OF  EQUATOR 

W.R.T.  ECLIPTIC 

NORMAL  VECTOR  TO  LAUNCH-PLANET-PHASE  ORBIT 
(EQUATORIAL  COORDINATES) 

position  of  launch  planet  at  launch  (helio- 
centric ecliptic  COORDINATES) 

SPHERE  OF  INFLUENCE  OF  LAUNCH  PLANET  (KM) 
VELOCITY  OF  LAUNCH  PLANET  AT  LAUNCH 
(HELIOCENTRIC  ECLIPTIC  COORDINATES) 
DECLINATION  OF  DEPARTURE  ASYMPTOTE  W.R.T. 

equator 

DECLINATION  OF  INCOMING  ASYMPTOTE  AT  TARGET 
planet  (W.R.T.  ECLIPTIC) 

TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 

EQUATORIAL  COORDINATES 

LAUNCH  PLANET  HYPERBOLA  SIMI-MAJOR  AXIS 


HHE  — LAUNCH  PLANET  HYPERBOLA  ECCENTRICITY 

HHI  — LAUNCH  PLANET  HYPERBOLA  INCLINATION(W.R.T. 

EQUATOR) 

HHL  — LAUNCH  PLANET  HYPERBOLA  LONGITUDE  OF 
ASCENDING  NODE 

HHN  — LAUNCH  PLANET  HYPERBOLA  NORMAL  VECTOR 
(EQUATORIAL  COORDINATES) 

HHP  — LAUNCH  PLANET  HYPERBOLA  SEMI-LATUS  RECTUM 

HHPV  — ALUNCH  PLANET  HYPERBOLA  P-VECTOR  (UNIT  VECTOR 

TOWARDS  PERIAPSIS) 

HHQ  — LAUNCH  PLANET  HYPERBOLA  Q-VECTOR  (UNIT  VECTOR 
NORMAL  TO  P-VECTOR) 

HHRl  — injection  POSITION  VECTOR  (LAUNCH  PLANET 
ECLIPTIC) 

HHRQl  — POSITION  VECTOR  AT  INJECTION  (LAUNCH  PLANET 
EQUATORIAL) 

HHRQ2  — POSITION  VECTOR  AT  SPHERE  OF  INFLUENCE 
(LAUNCH  PLANET  EQUATORIAL) 

HHRl  — POSITION  VECTOR  AT  INJECTION  (LAUNCH 
PLANET  ECLIPTIC) 

HHR2  — POSITION  VECTOR  AT  SPHERE  OF  INFLUENCE 
(LAUNCH  PLANET  EQUATORIAL) 

HHTA  — TRUE  ANOMALY  ALONG  LAUNCH  PLANET  HYPERBOLA 
AT  injection 

HHTaI  — TRUE  ANOMALY  ALONG  LAUNCH  PLANET  HYPERBOLA 
AT  injection  (SHOULD  EQUAL  HHTA) 

HHTI  — TIME  FROM  PERIAPSIS  TO  INJECTION  ALONG 
HYPERBOLA 

HHVDC  — DECLINATION  OF  DEPARTURE  ASYMPTOTE  (ECLYPTIC 
COORDINATES) 

HHVEQ  — DEPARTURE  ASYMTOTE  (VELOCITY)  IN  EQUATORIAL 
coordinates 

HHVMl  — SPEED  AT  INJECTION  (W.R.T,  LAUNCH  PLANET) 

HHVQl  — VECTOR  POSITION  AT  INJECTION  (LAUNCH  PLANET 

ECLIPTIC) 

HHVQ2  — VECTOR  POSITION  AT  SPHERE  OF  INFLUENCE 
(LAUNCH  PLANET  EQUATORIAL) 

HHVRA  RIGHT  ASCENSION  OF  DEPARTURE  ASYMPTOTE 

(ECLIPTIC  COORDINATES) 

HHVl  — velocity  vector  at  INJECTION  (LAUNCH  PLANET 
ECLIPTIC) 

HHV2  — velocity  VECTOR  AT  SPHERE  OF  INFLUENCE 
LAUNCH  PLANET  ECLIPTIC 

HHW  — ARGUMENT  OF  PERIAPSIS  ON  HYPERBOLA 
IVHL  — FLAG  INDICATING  WHETHER  DEPARTURE  OR  ARRIVAL- 
ASYMPTOTE  ELEMENTS  ARE  BEING  COMPUTED 
JC3  — FLAG  INDICATING  WHETHER  BIASED  (JC3=1)  OR 
* UNBIASED  (JC3=0)  CONDITIONS  ARE  GENERATED 
JINJT  — FLAG  INDICATING  WHETHER  INJECTION  TIME  IS 
UPDATED  (JINJT=0)  OR  NOT  (JINJT=1) 

LOC  — FLAB  INDICATING  WHETHER  CONVERGENCE  OCCURRED 
LOC  LESS  THAN  4*0R  NOT»LOC  GREATER  THAN  4 
NDD  — INDEX  specifying  LAUNCH  PLANET 
NTDD  — YEAR » month* DAY » HOUR » minute  OF  LAUNCH 


NTT  — INDEX  SPECIFYING  TARGET  PLANET 

NTTT  — YEAR# MONTH »DAY» HOUR » minute  OF  ENCOUNTER 

NTYS  — FLAG  SET  TO  1 FOR  CCPSI  BETWEEN  0 AND  180 

DEGREES » SET  TO  2 FOR  CCPSI  BETWEEN  180  AND 
360  DEGREES 

PHI  — injection  latitude 

PI  — CONSTANT  s 3.141591 

PR  — PARKINS  ORBIT  RADIUS 

PTH  — INJECTION  PATH  AN6LE 

PI  — INTERMEDIATE  VARIABLE 

P2  — INTERMEOIATE  VARIABLE 

RAO  — CONVERSION  UNIT  FROM  DEGREES  TO  RADIANS 
RAI  — INJECTION  RIGHT  ASCENSION 

RALQ  — • RIGHT  ASCENSION  OF  DEPARTURE  HYPERBOLA 

(LAUNCH  PLANET  EQUATORIAL) 

RAP  — RIGHT  ASCENSION  OF  ARRIVAL  HYPERBOLA  (TARGET 
PLANET  ECLIPTIC) 

RJ  — INJECTION  RADIUS 

RL  — heliocentric  RADIUS  OF  LAUNCH  PLANET  AT 

INITIAL  TIME  (AU) 

ROT  — ROTATIONAL  RATE  OF  LAUNCH  PLANET 
RP  — HELIOCENTRIC  RADIUS  OF  TARGET  PLANET  AT 

FINAL  time  (AU) 

S — EXCESS  VELOCITY  AT  TARGET  PLANET 

SOD  — SECONDS  OF  LAUNCH  DATE) 

SI  — SINE  OF  INCLINATION  OF  EQUATORIAL  W.R.T. 

ECLIPTIC 

SJC3  — STORAGE  FOR  JC3 

SL  — SINE  OF  longitude  OF  ASCENDING  NODE  OF 

EQUATORIAL  W.R.T.  ECLIPTIC 
SRL  — STORAGE  FOR  RL 

SSG  — GRAVITATIONAL  CONSTANT  OF  SUN 

STAi  — STORAGE  FOR  CCTAl 

STT  — SECONDS  OF  TARGET  DATE 

SXL  --  storage  for  XL 

TB  — time  from  launch  TO  INJECTION 

TC  ' COAST  time  IN  PARKING  ORBIT 

TF  — TOTAL  FLIGHT  TIME  FOR  HELIOCENTRIC  TRANSFER 

THI  — INJECTION  LONGITUDE 

TIMl  — TIME  (SEC)  OF  FIRST  BURN 

TIM2  — TIME  (SEC)  OF  SECOND  BURN 

TINJ  — TIME  (HOURS)  OR  DATE  OF  INJECTION 
TTJD  JULIAN  DATE  OF  ENCOUNTER 

TTN  — normal  to  PLANE  AT  TARGET  PLANET  (TARGET 
planet  ECLIPTIC) 

TTR7  — POSITION  VECTOR  AT  ARRIVAL  AT  TARGET  PLANET 
(TARGET  PLANET  ECLIPTIC) 

TTV7  — velocity  VECTOR  AT  ARRIVAL  AT  TARGET  PLANET 
(Target  planet  ecliptic) 

VHL  --  magnitude  OF  DEPARTURE  ASYMPTOTE  VELOCITY 

VHP  — MAGNITUDE  OF  ARRIVAL  ASYMPTOTE  VELOCITY 

VL  — true  anomaly  of  heliocentric  orbit  at  launch 

VP  — TRUE  ANOMALY  OF  HELIOCENTRIC  ORBIT  AT 

encounter 
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XL  — state  {position* VELOCITY)  OF  LAUNCH  PLANET 

AT  LAUNCH  (HELIOCENTRIC  ECLIPTIC) 

XP  — state  (POSITION* VELOCITY)  OF  TARGET  PLANET 

AT  encounter  (heliocentric  ECLIPTIC) 

35 ♦ NTM 
COMMON 
BLK 
EVENT 
MI  SC 
SIMCNT 
SIM2 
TIM 

TRAJCD 

TRU 

VM 

VARIABLES 


ACCS 

TEMPORARY  STORAGE  FOR  ACC 

01 

JULIAN  DATE*  EPOCH  JAN.O*  1900*  OF  INITIAL 

trajectory  time 

I 

INDEX 

K1 

WON 

INDEX 

K2 

INDEX 

K3 

INDEX 

NBODS 

temporary  storage  for  nboo 

HtS 

TEMPORARY  VECTOR  FOR  NB 

RMP 

an«« 

DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  AT 
SPHERE  OF  INFLUENCE  OR  CLOSEST  APPROACH 

SAVEl 

,*»«» 

TEMPORARY  STORAGE  FOR  GRAVITATIONAL  CONSTANT 
OF  SUN 

SAVEIO 

wmm 

TEMPORARY  STORAGE  FOR  INCLINATION  CONSTANTS 
OF  target  PLANET 

SAVEll 

SAME  comments  AS  SAVEIO 

SAVE12 

mm 

SAME  COMMENTS  AS  SAVEIO 

SAVE13 

mm 

SAME  COMMENTS  AS  SAVEIO 

SAVE2 

mm 

TEMPORARY  STORAGE  FOR  GRAVITATIONAL  CONSTANT 
OF  TARGET  PLANET 

SAVE3 

-V 

TEMPORARY  STORAGE  FOR  CONSTANTS  OF  SEMI- 
MAJOR  AXIS  OF  target  planet 

SAVE4 

«!■«« 

SAME  COMMENTS  AS  SAVES 

SAVES 

temporary  storage  FOR  ECCENTRICITY  CONSTANTS 

OF  target  planet 

SAVE6 

SAME  COMMENTS  AS  SAVE5 

SAVE? 

SAME  COMMENTS  AS  SAVES 

SAVE8 

SAME  comments  AS  SAVES 

VMP 

magnitude  of  velocity  of  vehicle  relative  to 

target  planet  at  sphere  of  influence  or 
closest  approach 


36.  ORB 
COMMON 
BLK 
PRT 

VARIABLES 

I — CODE  OF  PLANET 
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IK  — INDEX 

li  ~ INDEX 

IT  — INDEX 

ITEMP  ~ ITERMEDIATE  VARIABLE 

U — INDEX 

K — INDEX 

PI2  — TWICE  the  mathematical  CONSTANT  PI 


0T2 

VARIABLES 

AZI 

C3 

CCA 

CCE 

CCI 

CCPSI  — > 

cctai 

CCTA7 

CCVMl 

DDA2 

DDRMI 


DDVMl 

DLAQ 

DP  A 

HHE 

HHVM2 

HHVQM 

NTDD 

NTTT 

PHI 

PTH 

RAI 

RALQ 

RAP 

RJ 

TB 

TC 

TF 

THI 

TINJ 

TL 

TTRM7 


TTVM7 


VHP 

XL 

XP 


INJECTION  AZIMUTH 
ENERGY  OF  HYPERBOLIC  ORBIT 
SEIM-MAJOR  AXIS  OF  HELIOCENTRIC  CONIC 
HELIOCENTRIC  ECCENTRICITY 
INCLINATION  OF  HELIOCENTRIC  CONIC 
CENTRAL  angle  OF  HELIOCENTRIC  CONIC 
INITIAL  TIME 

TRUE  ANOMALY  ON  HELIOCENTRIC  CONip  AT 
TRUE  ANOMALY  ON  HELIOCENTRIC  CONIC  AT 
FINAL  time 

heliocentric  speed  of  LAUNCH  PLANET  AT 

initial  time 

LAUNCH  AZIMUTH 

HELIOCENTRIC  DISTANCE  TO  LAUNCH  PLANET  AT 
INITIAL  TIME 

SPEED  ON  HELIOCENTRIC  CONIC  AT  INITIAL  TIME 
DECLINATION  OF  HHVM2 
DECLINATION  OF  VHP 

eccentricity  of  hyperbola 

HYPERBOLIC  EXCESS  VELOCITY  aT  LAUNCH  PLANET 
INJECTION  VELOCITY 

year-month-day-hour-min  of  initial  time 
year-month-day-hour-min  of  final  time 
injection  latitude 
trajectory  path  angle 

INJECTION  RIGHT  ASCENSION 
RIGHT  ASCENSION  OF  HHVM2 
RIGHT  ASCENSION  OF  VHP 
INJECTION  radius 
TIME  FROM  LAUNCH  TO  INJECTION 
COAST  Time 

FLIGHT  TIME 
INJECTION  LONGITUDE 

TIME  OF  INJECTION  ON  LAUNCH  DATE  (HOURS) 

TIME  OF  launch  ON  LAUNCH  DATE  (HOURS) 
HELIOCENTRIC  DISTANCE  TO  TARGET  PLANET  AT 
FINAL  time 

heliocentric  speed  of  target  PLANET  AT  FINAL 
TIME 

HYPERBOLIC  EXCESS  VELOCITY  AT  TARGET  PLANET 

state  of  launch  planet  at  initial  date 
state  of  target  planet  at  target  date 


38.  OUT! 

VARIABLES 
BOR 
BOX 
DINCL 
GMS 
ID  AT  I 

IDAT2 

IDAT3 


INJEK 

ITAR6 

NB 

NITS 

R 

RCA 

RP 

51 

52 

53 

TOU 

T0L2 

TOL3 


V 


VP 


WP 


IMPACT  PLANE  PARAMETER 

IMPACT  PLANE  PARAMETER 

INCLINATION  AT  CLOSEST  APPROACH 

GRAVITATIONAL  CONSTANT  OF  SUN 

DATE  OF  INJECTION  (YEAR»  MONTH#  DAY.  HOUR. 

MINUTE) 

DATE  AT  SPHERE  OF  INFLUENCE  (YEAR.  MONTH. 
DAY.  HOUR.  MINUTE) 

DATE  AT  CLOSEST  APPROACH  (YEAR.  MONTH.  DAY. 
HOUR.  MINUTE) 

INJECTION  OPTION  FLAG 

targeting  option  flag 

INDICES  OF  gravitational  BODIES 

MAXIMUM  ALLOWABLE  ITERATIONS  AT  FINAL  LEVEL 

POSITION  MAGNITUDE 

RADIUS  AT  CLOSEST  APPROACH 

POSITION  VECTOR  (HELIOCENTRIC  ECLIPTIC) 

DATE  OF  INJECTION  (SECONDS) 

DATE  AT  SPHERE  OF  INFLUENCE  (SECONDS) 

DATE  AT  CLOSEST  APPROACH  (SECONDS) 
acceptable  TOLERANCES  ON  TARGET  CONSTRAINTS 
SAME  AS  TOLl 
SAME  AS  T0L2 
SPEED 

VELOCITY  VECTOR  (HELIOCENTRIC  ECLIPTIC) 
NORMAL  TO  PLANE 


39.  PARTL 

VARIABLES 

H3 

PBR 


PBT 


RV 

S 

U 

UV 

UV3 

U2 

U2PV2 

V2 


INTERMEDIATE  VARIABLE 

PARTIAL  OF  B DOT  R WITH  RESPECT  TO  STATE 
VECTOR 

PARTIAL  OF  B DOT  T WITH  RESPECT  TO  STATE 
VECTOR 

intermediate  variable 
magnitude  of  velocity 
intermediate  variable 

INTERMEDIATE  VARIABLE 

CUBE  OF  UV 

SQUARE  OF  U 

INTERMEDIATE  VARIABLE 

SQUARE  OF  MAGNITUDE  OF  VELOCITY 


40.  PCTM 
COMMON 
BLK 
MISC 
STM 
TIM 
VM 

VARIABLES 

D — JULIAN  DATE.  EPOCH  JAN.O.  1900.  OF  INITIAL 

TIME 

DELT  — LENGTH  OF  TIME  INCREMENT  IN  PROPER  UNITS 


DUM  — TEMPORARY  STORAGE  FOR  STATE  TRANSITION  MATRIX 
GMS  ~ GRAVITATIONAL  CONSTANT  OF  GOVERNING  BODY 
I — INDEX 

IP  — CODE  OF  PLANET 

J — INDEX 

K — INDEX 

RM  — DISTANCE  FROM  SPECIFIED  PLANET 

RS  — POSITION  OF  VEHICLE  RELATIVE  TO  SPECIFIED 

PLANET 

VS  — velocity  of  vehicle  relative  TO  SPECIFIED 

PLANET 


41.  PECEQ 

variables 

AC  — ACCURACY  LEVELS 

ACC  — FINAL  ACCURACY  LEVEL 

D — JULIAN  DATE  (REFERENCED  TO  1900 i 

DELTP  --  DAYS  BETWEEN  PRINTOUTS  IN  FINAL  INTEGRATION 

ECEQ  — TRANSFORMATION  MATRIX 

INPR  INTEGRATION  INCREMENTS  BETWEEN  PRINTOUTS 

IN  FINAL  integration 

ISKEJ  --  NUMBER  OF  ACfCURACY  LEVELS  IN  TARGETING  SCHEDULE 

MIDI  number  OF  ITERATIONS  MADE  AT  INTERMEDIATE 

accuracy  levels 

NBOD  --  number  of  gravitational  BODIES 
NP  INDEX  OF  planet 

RS  — injection  state  (POSITION  AND  VELOCITY  VECTORS) 

XI  — THE  INCLINATION  OF  THE  ORBITAL  PLANE  TO  THE 

ECLIPTIC 

XL  — THE  LONGITUDE  OF  THE  ASCENDING  NODE  OF  THE 

orbital  plane  to  The  ecliptic 


42.  PLANE 

VARIABLES 

HCA 

HCI 

HCN 

hcw 

NTYS 


XL 

XP 

43.  PLNO 
COMMON 
BLK 

C0NST3 

MISC 

STM 

STVEC 


heliocentric  central  angle 

INCLINATION  OF  HELIOCENTRIC  PLANE 
NORMAL  TO  heliocentric  PLANE 

longitude  of  heliocentric  plane 

FLAG*  NTYS=l  FOR  HCA  BETWEEN  0 AND  180 
DEGREES 

NTYS=2  FOR  HCA  BETWEEN  180  AND 
360  degrees 

INITIAL  state  (P0SITI0N*VEL0CITY)  OF  LAUNCH 
PLANET 

FINAL  STATE  OF  TARGET  PLANET 


♦ 
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TIM 

TRAJCD 

VM 

VARIABLES 
I — 

I PR 

J 

K 

KJ 

RPER 

SAVE! 

SAVE2 

SAVE3 

SAVE4 

THTWG 


INDEX 

TEMPORARY  STORAGE  FOR  IPRINT 

INDEX 

INDEX 

INDEX 

altered  final  position  AND  VELOCITY  OF 
VEHICLE 

TEMPORARY  STORAGE  FOR  CONSTANTS  OF  AUGMENTED 

ELEMENTS  OF  TARGET  PLANET 

SAME  COMMENTS  AS  SAVEl 

SAME  COMMENTS  AS  SAVEl 

SAME  COMMENTS  AS  SAVEl 

TEMPORARY  LOCATION  OF  AUGMENTED  PORTION  OF 
STATE  transition  MATRIX 


44.  POSVL 

VARIABLES 

A 

AM 

E 

W 

wc 

XI 

XIQ 

XLQ 


SEMI -MAJOR  AXIS 

MEAN  ANOMALY 

ECCENTRICITY 

ARGUMENT  OF  PER I APS IS 

longitude  of  ASCENDING  NODE 

INCLINATION 

THE  INCLINATION  OF  THE  PLANET  EQUATION  TO 
THE  ORBITAL  PLANE 

THE  LONGITUDE  OF  THE  ASCENDING  NODE  OF  THE 
PLANET  EQUATOR  TO  THE  ORBITAL  PLANE 


45.  PRED 
COMMON 
CONST2 
EVENT 
GUI 
MISC 
NAME 
STM  . 
STVEC 
TIM 

TRAJCD 

TRJ 

VM 

VARIABLES 


DUM 

covariance  of  uncertainties  IN  B DOT  T AND 
B DOT  R 

DUM2 

EIGENVECTORS 

DUM3 

EIGENVALUES 

EGVCT 

EIGENVECTORS 

EGVL 

Wav 

EIGENVALUES 

I 

INDEX 

ICODE 

INTERNAL  CODE 

IPR 

TEMPORARY  STORAGE  FOR  IPRINT 

J 

INDEX 

K 

INDEX 

L 

INDEX 

LINES 

LINE  COUNT 

MAX 

MAXIMUM  NUMBER  OF  LINES  PER  PAGE 

PEIG 

ITERMEDIATE  ARRAY 

PI 

TEMPORARY  STORAGE  FOR  .P 

RF 

POSITION  AND  VELOCITY  OF  VEHICLE  AT  TIME  OF 

prediction  event 

RHO 

CORRELATION  COEFFICIENT  MATRIX 

TPT 

-- 

PREDICTION  TIME 

VEI6 

intermediate  VECTOR 

46*  PRES I M 
COMMON 
CONST 
C0NST2 
EVENT 
OUl 
MISC 
NAME 
SIMl 
SIM2 
STM 
STVEC 
TIM 

TRAJCD 

TRJ 

VM 

variables 

DM 

DM2 

dm3  — 

DUM 

E6VCT 

E6VL 

I 

ICODE 

ICODEl  — 

IPR 

U 

K 

L 

LINES 

MAX 

peig 

PI 

RF 

RFl 

RF2 


covariance  of  uncertainties  in  B dot  T AND 

B DOT  R 

EIGENVECTORS 

EIGENVALUES 

INTERMEDIATE  VECTOR 

EIGENVECTORS 

EIGENVALUES 

INDEX 

INTERNAL  CODE 
INTERNAL  CODE 

TEMPORARY  STORAGE  FOR  IPRINT 

INDEX 

INDEX 

INDEX 

LINE  count 

MAXIMUM  NUMBER  OF  LINES  PER  PAGE 
intermediate  ARRAY 
TEMPORARY  STORAGE  FOR  P 

POSITION  AND  VELOCITY  OF  VEHICLE  ON  ORIGINAL 
nominal  at  time  of  prediction  EVENT 
POSITION  and  velocity  OF  VEHICLE  ON  MOST 
RECENT  NOMINAL  AT  TIME  OF  PREDICTION  EVENT 
POSITION  AND  VELOCITY  OF  VEHICLE  ON  ACTUAL 
trajectory  at  time  of  PREDICTION  EVENT 


RHO  — CORRELATION  COEFFICIENT  MATRIX 
RI2  — POSITION  AND  VELOCITY  OF  VEHICLE  ON  ACTUAL 
TRAJECTORY  AT  TIME  OF  LAST  MEASUREMENT  OR 
EVENT 

TPT  — PREDICTION  TIME 

VEie  — INTERMEDIATE  VECTOR 

^7.  PRINT 
COMMON 
BLK 
COM 
PRT 

VARIABLES 

D — JULIAN  DATE  OF  FINAL  TIME 

I — INDEX 

IDAY  — DAY  OF  CALENDAR  DATE  OF  FINAL  TIME 
IHR  — HOUR  OF  CALENDAR  DATE  OF  FINAL  TIME 

INCMNT  — TOTAL  INCREMENTS 

IP  — CODE  OF  PLANET 

lYR  — YEAR  OF  CALENDAR  DATE  OF  FINAL  TIME 

J — INDEX 

K — INDEX 

MIN  — MINUTES  OF  CALENDAR  DATE  OF  FINAL  TIME 
MO  — MONTH  OF  CALENDAR  DATE  OF  FINAL  TIME 

N2  — INDEX 

RP  — HELIOCENTRIC  RADIUS  OF  PLANET 

RS  — HELIOCENTRIC  RADIUS  OF  VEHICLE 

RV  — HELIOCENTRIC  RADIUS  OF  VIRTUAL  MASS 

SEC  — SECONDS  OF  CALENDAR  DATE  OF  FINAL  TIME 

TMP  — POSITION  AND  VELOCITY  OF  VIRTUAL  MASS  RELATIVE 

TO  PLANETS 

VMR  — MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE  TO 
VIRTUAL  MASS 

VP  — magnitude  of  velocity  of  planet 

VS  — magnitude  of  velocity  of  vehicle 

VSP  — MAGNITIDE  OF  VELOCITY  OF  VEHICLE  RELATIVE  TO 

PLANET 

VV  — magnitude  of  velocity  of  VIRTUAL  MASS 

48.  PRINTl 
COMMON 
BLK 
MISC 
PRT 
STVEC 
TIM 

TRAJCD 

VM 

VARIABLES 

D1  — JULIAN  DATE.  EPOCH  JAN»0»  1900.  OF  INITIAL 

trajectory  time 

D2  — JULIAN  DATE.  EPOCH  JaN.O.  1900.  OF  FINAL 

trajectory  time 

D3  — JULIAN  DATE  OF  INITIAL  TRAJECTORY  TIME 
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D4 

I 

IDAY 

IHR 

IMIN 

IMO 

lYR 

LDAY 

LHR 

LMIN 

LMO 

LYR 

MAX 

RI 

RMF 

RMl 

SEC  I 
SECL 
TRTM2 
VE 

VMF 

VMI 


VT 


JULIAN  DATE  OF  FINAL  TRAJECTORY  TIME 
INDEX 

CALENDAR  DAY  OF  FINAL  TIME 
CALENDAR  HOUR  OF  FINAL  TIME 
CALENDAR  MINUTE  OF  FINAL  TIME 
CALENDAR  MONTH  OF  FINAL  TIME 
CALENDAR  YEAR  OF  FINAL  TIME 
CALENDAR  DAY  OF  INITIAL  TIME 
CALENDAR  HOUR  OF  INITIAL  TIME 
CALENDAR  MINUTE  OF  INITIAL  TIME 
CALENDAR  MONTH  OF  INITIAL  TIME 
CALENDAR  YEAR  OF  INITIAL  TIME 
MAXIMUM  number  OF  LINES  PER  PAGE 
POSITION  AND  velocity  OF  VEHICLE  AT  INITIAL 
TIME 

HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL  TIME 
HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  INITIAL 
TIME 

CALENDAR  SECONDS  OF  FINAL  TIME 
CALENDAR  SECONDS  OF  INITIAL  TIME 
FINAL  trajectory  TIME 

POAITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
EARTH  AT  FINAL  TIME 

magnitude  of  velocity  of  vehicle  at  FINAL 
TIME 

magnitude  of  velocity  of  vehicle  at  ifllTIAL 

time 

POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
TARGET  PLANET  AT  FINAL  TIME 


49,  PRINTS 
COMMON 
BLK 
MEAS 
MISC 
NAME 
STM 
STVEC 
TIM 
VM 

VARIABLES 
0 — 

D1 

D2 

D3 

D4 

I *•” 

lA  ••• 

IDAY 
IHR 

IMIN  — 

IMO 

ITEMP  — 


INTERMEDIATE  DATE 

JULIAN  DATE*  EPOCH  JAN* Or  1900 » OF  INITIAL 

trajectory  time 

JULIAN  DATEr  EPOCH  JAN. 0» 1900 » OF  FINAL  TIME 
JULIAN  DATE  OF  INITIAL  TIME 
JULIAN  DATE  OF  FINAL  TIME 
INDEX 

STATION  NUMBER 
CALENDAR  DAY  OF  FINAL  TIME 
CALENDAR  HOUR  OF  FINAL  TIME 
CALENDAR  MINUTE  OF  FINAL  TIME 
CALENDAR  MONTH  OF  FINAL  TIME 

intermediate  variable 


lYR 

U 

LDAY 

LHR 

LINES 

LMIN 

LMO 

LYR 

M 

MAX 

RME 

RMP 

SEC  I 

SECL 

TRTM2 

VME 

VMP 


CALENDAR  YEAR  OF  FINAL  TIME 
INDEX 

CALENDAR  DAY  OF  INITIAL  TIME 
CALENDAR  HOUR  OF  INITIAL  TIME 
LINE  COUNT 

CALENDAR  MINUTES  OF  INITIAL  TIME 

CALENDAR  MONTH  OF  INITIAL  TIME 

CALENDAR  YEAR  OF  INITIAL  TIME 

number  OF  MEASUREMENT 

MAXIMUM  number  OF  LINES  PER  PAGE 

GEOCENTRIC  RADIUS  OF  VEHICLE 

DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET 

CALENDAR  SECONDS  OF  FINAL  TIME 

CALENDAR  SECONDS  OF  INITIAL  TIME 

trajectory  time  at  END  OF  INTERVAL 

magnitude  of  velocity  OF  VEHICLE  RELATIVE  TO 

EARTH 

magnitude  of  velocity  of  VEHICLE  RELATIVE  TO 
TARGET  PLANET 


50.  PRINT4 
COMMON 
BLK 
MEAS 
MI  SC 
NAME 
SIMCNT 
SIMl 
SIM2 
STM 
STVEC 
TIM 
VM 

VARIABLES 

AOON 

AODI 

0 

D1 

D2 

D3 

D4 

EDON 


I 

lA 

ICODE 
IDAY 
IHR 
I MIN 
IMO 
I TEMP 
lYR 
J 


ACTUAL  deviation  OF  STATE  VECTOR  FROM  ORIGINAL 
NOMINAL 

actual  orbit  determination  inaccuracy 

INTERMEDIATE  DATE 

JULIAN  DATE.  EPOCH  JAN. 0.1900.  OF  INITIAL  TIME 

JULIAN  DATE.  EPOCH  JAN. 0.1900.  OF  FINAL  TIME 

JULIAN  DATE  OF  INITIAL  TIME 

JULIAN  DATE  OF  FINAL  TIME 

estimated  DEVIATION  OF  STATE  VECTOR  FROM 

ORIGINAL  NOMINAL 

INDEX 

station  number 

INTERNAL  CODE 

CALENDAR  DAY  OF  FINAL  TIME 
calendar  HOUR  OF  FINAL  TIME 
CALENDAR  MINUTES  OF  FINAL  TIME 
CALENDAR  MONTH  OF  FINAL  TIME 
INTERMEDIATE  VARIABLE 
CALENDAR  YEAR  OF  FINAL  TIME 
INDEX 


LDAY  — CALeNDAR  DAY  OF  INITIAL  TIME 
UHR  — CALENDAR  HOURS  OF  INITIAL  TIME 

LINES  — LINE  count 

LMIN  — CALENDAR  MINUTES  OF  FINAL  TIME 

LMO  ~ CALENDAR  MONTH  OF  FINAL  TIME 
LYR  — CALENDAR  YEAR  OF  FINAL  TIME 
M — NUMBER  OF  MEASUREMENT 

MAX  — MAXIMUM  NUMBER  OF  LINES  PER  PAGE 
RMEl  — DISTANCE  OF  VEHICLE  FROM  EARTH  ON  ORIGINAL 
NOMINAL 

RME2  — DISTANCE  OF  VEHICLE  FROM  EARTH  ON  MOST  RECENT 
NOMINAL 

RME3  — DISTANCE  OF  VEHICLE  FROM  EARTH  ON  ACTUAL 
TRAJECTORY 

RMPl  ” DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
ORIGINAL  NOMINAL 

RMP2  — DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
MOST  RECENT  NOMINAL 

RMP3  — DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
ACTUAL  TRAJECTORY 

SEC I — CALENDAR  SECONDS  OF  FINAL  TIME 

SECL  — CALENDAR  SECONDS  OF  INITIAL  TIME 

TRTM2  — trajectory  TIME  AT  END  OF  INTERVAL 
VMEl  — velocity  OF  VEHICLE  RELATIVE  TO  EARTH  ON 
ORIGINAL  NOMINAL 

VME2  — VELOCITY  OF  VEHICLE  RELATIVE  TO  EARTH  ON 
MOST  RECENT  NOMINAL 

VME3  — velocity  OF  VEHICLE  RELATIVE  TO  EARTH  ON 
ACTUAL  TRAJECTORY 

VMPl  “ VELOCITY  OF  VEHICLE  RELATIVE  TO  TARGET  PLANET 
ON  ORIGINAL  NOMINAL 

VMP2  — velocity  of  VEHICLE  RELATIVE  TO  TARGET  PLANET 
ON  most  recent  nominal 

VMP3  — VELOCITY  OF  VEHICLE  RELATIVE  TO  TARGET  PLANET 
ON  ACTUAL  TRAJECTORY 

XE  — POSITION  AND  VELOCITY  OF  EARTH 

XVEi  — POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 

EARTH  ON  ORIGINAL  NOMINAL 

XVE2  — POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
EARTH  ON  MOST  RECENT  NOMINAL 
XVE3  — POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
EARTH  ON  ACTUAL  TRAJECTORY 

XVPl  — POITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
target  planet  ON  ORIGINAL  NOMINAL 
XVP2  — POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
TARGET  planet  ON  MOST  RECENT  NOMINAL 
XVP3  — POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
TARGET  planet  ON  ACTUAL  TRAJECTORY 

51.  PRNTS3 
COMMON 
CONST 
C0NST2 
C0NST3 
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EVENT 

GUI 

MEAS 

Wise 

NAME 

STM 

STVEC 

TIM 

TRAJCD 

VM 

variables 

DX  — JULIAN  DATE»  EPOCH  JAN. 0» 1900 » OF  INITIAL 

TIME 

Oa  — JULIAN  DATEf  EPOCH  JAN.  0.1900.  OF  FINAL  TIME 

D3  — JULIAN  DATE  OF  INITIAL  TIME 

D4  — JULIAN  DATE  OF  FINAL  TIME 

I — INDEX 

IDAY  — CALENDAR  DAY  OF  FINAL  TIME 

IHR  — CALENDAR  HOUR  OF  FINAL  TIME 

IMIN  — CALENDAR  MINUTES  OF  FINAL  TIME 

IMO  ~ CALENDAR  MONTH  OF  FINAL  TIME 

lYR  — CALENDAR  YEAR  OF  FINAL  TIME 

J — INDEX 

K — INDEX 

LDAY  — CALENDAR  DAY  OF  INITIAL  TIME 

LHR  — CALENDAR  HOUR  OF  INITIAL  TIME 

LINES  — LINE  COUNT 

LMIN  — CALENDAR  MINUTES  OF  INITIAL  TIME 
LMO  — CALENDAR  MONTH  OF  INITIAL  TIME 

LYR  CALENDAR  YEAR  OF  INITIAL  TIME 

MAX  — MAXIMUM  LINES  PER  PAGE 

RI  — POSITION  AND  VELOCITY  OF  VEHICLE  AT  INITIAL 

TIME 

RMF  — HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL  TIME 

RMI  — HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  INITIAL 

time 

SECI  — CALENDAR  SECONDS  OF  FINAL  TIME 

SECL  — CALENDAR  SECONDS  OF  INITIAL  TIME 

TRTM2  — TRAJECTORY  TIME  AT  END  OF  TRAJECTORY 
VE  — POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE 

TO  earth  at  final  time 

VMF  — magnitude  OF  VELOCITY  OF  VEHICLE  AT  FINAL 

Time 

VMI  — magnitude  of  velocity  of  VEHICLE  AT  INITIAL 
TIME 

VT  — POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 

TARGET  PLANET  AT  FINAL  TIME 

52.  PRNTS4 
COMMON 
BLK 
CONST 
C0NST2 
C0NST3 
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EVENT 

6UI 

MEAS 

MI  SC 

NAME 

PRT 

SIMCNT 

SIMl 

SIM2 

STM 

STVEC 

TIM 

TRAJCO 

TRJ 

VM 

variables 

ADON 


AODI 

BLANK 

D1 


02 

03 

04 

EOON 


I 

IDAY 

IHR 

IMIN 

IMO 

lYR 

yj 

yJl 

J2 

K 

LOAY 

LHR 

LINES 

LMIN 

LMO 

LYR 

MAX 

REl 


RE2 

RE3 


R.I 

Rli 


ACTUAL  deviation  OF  STATE  VECTOR  FROM  ORIGINAL 
NOMINAL 

ACTUAL  ORBIT  DETERMINATION  INACCURACY 

BLANK  HOLLERITH  CHARACTER 

JULIAN  DATEf  EPOCH  JAN. 0» 1900 » OF  INITIAL 

TIME 

JULIAN  OATE»  EPOCH  JAN.0»1900»  OF  FINAL  TIME 

JULIAN  DATE  OF  INITIAL  TIME 

JULIAN  DATE  OF  FINAL  TIME 

estimated  DEVIATION  OF  STATE  VECTOR  FROM 

ORIGINAL  NOMINAL 

INDEX 

CALENDAR  DAY  OF  FINAL  TIME 
CALENDAR  HOUR  OF  FINAL  TIME 
CALENDAR  MINUTES  OF  FINAL  TIME 
CALENDAR  MONTH  OF  FINAL  TIME 
CALENDAR  YEAR  OF  FINAL  TIME 
INDEX 


INDEX 

INDEX 

INDEX 

CALENDAR  DAY  OF  INITIAL  TIME 
CALENDAR  HOURS  OF  INITIAL  TIME 
LINE  count 

CALENDAR  MINUTES  OF  INITIAL  TIME 
CALENDAR  MONTH  OF  INITIAL  TIME 
CALENDAR  YEAR  OF  INITIAL  TIME 
MAXIMUM  number  OF  LINES  PER  PAGE 
POSITION  AND  velocity  OF  VEHICLE 
EARTH  ON  ORIGINAL  NOMINAL 
POSITION  AND  VELOCITY  OF  VEHICLE 
EARTH  On  MOST  RECENT  NOMINAL 
POSITION  AND  VELOCITY  OF  VEHICLE 
EARTH  ON  ACTUAL  TRAJECTORY 
POSITION  AND  VELOCITY  OF  VEHICLE 
NOMINAL  AT  INITIAL  TIME 
POSITION  AND  VELOCITY  OF  VEHICLE 
RECENT  nominal  AT  INITIAL  TIME 


RELATIVE  TO 
RELATIVE  TO 
RELATIVE  TO 
ON  ORIGINAL 
ON  MOST 


RME 

RMEl 

RMEE 

RME3 

RMP 

RMPl 

RMP2 

RMP3 

RMS 

RMSl 

RMS2 

RMS3 

RPl 

RP2 

RP3 

SECI 

SECL 

VME 

VMEl 

VME2 

VME3 

VMP 

VMPl 

VMP2 

VMP3 

VMS 

VMSX 

VMS2 


geocentric  radius  of  vehicle  at  initial  time 

GEOCENTRIC  RADIUS  OF  VEHICLE  ON  ORIGINAL 
NOMINAL  at  FINAL  TIME 

GEOCENTRIC  RADIUS  OF  VEHICLE  ON  MOST  RECENT 
NOMINAL  AT  FINAL  TIME 
geocentric  RADIUS  OF  VEHICLE  ON  ACTUAL 
TRAJECTORY  AT  FINAL  TIME 

DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  AT 
INITIAL  TIME 

DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
ORISINAL  NOMINAL  AT  FINAL  TIME 
DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
MOST  RECENT  NOMINAL  AT  FINAL  TIME 
DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
ACTUAL  TRAJECTORY  AT  FINAL  TIME 
HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  INITIAL  TIME 
HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL  TIME 
ON  ORIGINAL  NOMINAL 

HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL  TIME 
ON  most  recent  NOMINAL 

HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL  TIME 

ON  actual  trajectory 

STATE  OF  VEHICLE  RELATIVE  TO  TARGET  PLANET 
AT  FINAL  TIME  ON  ORIGINAL  NOMINAL 
state  of  VEHICLE  RELATIVE  TO  TARGET  PLANET 
AT  FINAL  time  ON  MOST  RECENT  NOMINAL 
state  of  VEHICLE  RELATIVE  TO  TARGET  PLANET 
AT  FINAL  TIME  ON  ACTUAL  TRAJECTORY 
CALENOAR  SECONDS  AT  FINAL  TIME 
CALENDAR  SECONDS  AT  INITIAL  TIME 
MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE  TO 
EARTH  AT  INITIAL  TIME 

magnitude  of  velocity  of  vehicle  RELATIVE  TO 
EARTH  ON  ORIGINAL  NOMINAL  AT  FINAL  TIME 
MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE  TO 
EARTH  ON  MOST  RECENT  NOMINAL  AT  FINAL  TIME 
MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE  TO 
EARTH  ON  ACTUAL  TRAJECTORY  AT  FINAL  TIME 
magnitude  of  velocity  of  VEHICLE  RELATIVE  TO 

target  planet  at  initial  time 

magnitude  of  velocity  of  VEHICLE  RELATIVE  TO 

target  planet  on  original  nominal  at  FINAL 

time 

magnitude  of  velocity  of  VEHICLE  RELATIVE  TO 
TARGET  planet  ON  MOST  RECENT  NOMINAL  AT  FINAL 
TIME 

magnitude  of  VELOCITY  OF  VEHICLE  RELATIVE  TO 
target  planet  on  actual  trajectory  at  final 
TIME 

magnitude  of  VELOCITY  OF  VEHICLE  AT  INITIAL 

time 

magnitude  of  velocity  of  VEHICLE  AT  FINAL 
TIME  ON  original  NOMINAL 
magnitude  of  velocity  of  VEHICLE  AT  FINAL 
time  on  most  recent  NOMINAL  TRAJECTORY 
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VMS3  — magnitude  OF  VELOCITY  OF  VEHICLE  AT  FINAL 
time  on  actual  TRAJECTORY 


53.  PSIM 
COMMON 
BLK 

C0NST3 
MI  SC 
STM 
STVEC 
TIM 

TRAJCD 

VM 

VARIABLES 

D 

DELT 

OUM 

I 

J 

POSS 


RS 


THSP 

VEC 

VS 


INTERMEDIATE  JULIAN  DATE 

TIME  INTERVAL  IN  CORRECT  UNITS 

TEMPORARY  STORAGE  FOR  STATE  TRANSITION  MATRIX 

INDEX 

INDEX 

DISTANCE  OF  THE  VEHICLE  FROM  THE  TARGET 

planet  at  initial  time 

position  of  vehicle  relative  to  governing 

BODY  AT  INITIAL  TIME 

constant  equal  to  six  times  the  sphere  of 
influence  of  target  planet 

POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
TARGET  planet  AT  INITIAL  TIME 

velocity  of  vehicle  relative  to  governing 
body  at  initial  time 


54.  QUASI 
COMMON 
CONST 
C0NST2 
EVENT 
MISC 
NAME 
SIM  I 
SIM2 
STM 
STVEC 
TIM 

TRAJCD 

TRJ 

VM 

VARIABLES 


DUM 

intermediate  vector 

I 

INDEX 

J 

INDEX 

K 

mm 

INDEX 

LINES 

mm 

LINE  COUNT 

MAX 

MAXIMUM  NUMBER  OF  LINES  PER 

PAGE 

RF 

mm 

state  OF  VEHICLE  AT  TIME  OF 

QUASI-LINEAR 

FILTERING  EVENT  ON  ORIGINAL 

NOMINAL 

RFl 

mm 

STATE  OF  VEHICLE  AT  TIME  OF 

QUASI -LINEAR 

FILTERING  EVENT  ON  MOST  RECENT  NOMINAL 

RF2  — STATE  OF  VEHICLE  AT  TIME  OF  QUASI-LINEAR 
FILTERING  EVENT  ON  ACTUAL  TRAJECTORY 
RHO  — CORRELATION  COEFFICIENT  MATRIX 

RI2  — state  of  the  vehicle  at  time  of  last 

MEASUREMENT  OR  EVENT  ON  ACTUAL  TRAJECTORY 


55.  RNUM 

VARIABLES 

A 


RNUM 


RR 

SS 

ww 

W1 

YY 

Y1 

ZZ 

Z1 


SUM  OF  TWELVE  RANDOM  NUMBERS  BETWEEN  ZERO 

AND  ONE 

INDEX 

INTERMEDIATE  INTEGER 

controlling  integer 
INTERMEDIATE  VARIABLE 

RANDOM  NUMBER  FROM  NORMAL  DISTRIBUTION  WITH 
MEAN  ZERO  AND  STANDARD  DEVIATION  SIGMA 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 

intermediate  variable 

INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 


56.  SCHED 
COMMON 
MEAS 

VARIABLES 

M 


INDEX 


57.  SPACE 
COMMON 
BLK 
COM 
PRT 


58.  STAPARL 
COMMON 
CONST 
VM 

VARIABLES 

Gi  — SINE  OF  LATITUDE 

62  — COSINE  OF  LATITUDE 

63  — SINE  OF  LONGITUDE  + CONSTANT 

64  — COSINE  OF  LONGITUDE  + CONSTANT 

65  — SINE  OF  OBLIQUITY  OF  EARTH 

G6  • COSINE  OF  OBLIQUITY  OF  EARTH 

0ME6  — OMEGA  IN  PROPER  UNITS 


59.  TIME 

lA  — number  of  centuries 

IB  — YEARS  IN  PRESENT  CENTURY 

ICOOE  — INTERNAL  CODE  USED  TO  DETERMINE  WHICH  DATE 
IS  TO  BE  RETURNED— JULIAN  OR  CALENDAR 
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IP 
I a 
IR 
IS 


IT 

lU 

IV 

IX 

J 

JO 

p 

R 

SEC 


— NUMBER  OF  MONTH  (BASED  ON  MARCH  AS  NUMBER  0) 

— NUMBER  OF  YEARS 

— number  of  centuries  DIVIDED  BY  A 

— ^ number  of  years  since  last  400  YEAR  SECTION 
BEGAN 

— number  of  leap  years  in  present  CENTURY 

— number  of  years  since  last  leap  year 

— NUMBER  OF  DAYS  IN  LAST  YEAR 
~ INTERMEDIATE  INTESER 

— ' INTERMEDIATE  INTESER 

— NUMBER  OF  DAYS  IN  JULIAN  DATE 
— • JULIAN  date 

— FRACTIONAL  PORTION  OF  DAY  IN  JULIAN  DATE 

— NUMBER  OF  SECONDS  IN  CALENDAR  DATE 


60. 


TRAKM 
COMMON 
BLK 
CONST 
C0NST2 
CONST 3 
SIMCNT 
STM 
STVEC 
TIM 
VM 

VARIABLES 

ADI 

ADZ 

AD3 

AL 

ALAT 

ALON 

A1 

A2 

A3 

Bl 

B2 

B3 

CE 

COALI 

COAL2 

C0AL3 

CP 

0 

DENOM 

El 

E2 

E3 

SECS 

6ELS 

HECE 

HECP 

I 


intermediate  variable 
intermediate  variable 
intermediate  variable 

ALTITUDE 

latitude 

longitude 

PARTIAL  OF  RANGE  WITH  RESPECT  TO  X 

PARTIAL  OF  RANGE  WITH  RESPECT  TO  Y 

PARTIAL  OF  RANGE  WITH  RESPECT  TO  Z 

PARTIAL  OF  range-rate  WITH  RESPECT  TO  X 

PARTIAL  OF  range-rate  WITH  RESPECT  TO  Y 

PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  Z 

COSINE  OF  obliquity  OF  EARTH 

COSINE  OF  ANGLE  1 

COSINE  OF  ANGLE  2 

COSINE  OF  angle  3 

COSINE  OF  longitude  + CONSTANT 

intermediate  date 
intermediate  variable 

PARTIAL  OF  RANGE  WITH  RESPECT  TO  ALTITUDE 
partial  of  range  WITH  RESPECT  TO  LATITUDE 
PARTIAL  OF  RANGE  WITH  RESPECT  TO  LONGITUDE 
GEOCENTRIC  EQUATORIAL  COOROINATES  OF  STATION 
GEOCENTRIC  ECLIPTIC  COORDINATES  OF  STATION 
coordinates  of  EARTH 
COORDINATES  OF  TARGET  PLANET 
INDEX 


lA  — STATION  NUMBER 

IN  — INDEX 

J — INDEX 

PA  — • PARTIALS 

PATl  — INTERMEDIATE  VARIABLE 

PAT2  — INTERMEDIATE  VARIABLE 

RADNTP  — RADIUS  OF  TARGET  PLANET 

RH  — DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET 

RHO  — DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET 

RH02  — INTERMEDIATE  VARIABLE 

RH2  — INTERMEDIATE  VARIABLE 

RRATE  — range-rate 

R1  — RANGE 

R2  — SQUARE  OF  RANGE 

SE  — SINE  OF  OBLIQUITY  OF  EARTH 

SIALl  — SINE  OF  ANGLE  1 

SIAL2  — SINE  OF  ANGLE  2 

SIAL3  — SINE  OF  ANGLE  3 

SP  — SINE  OF  LONGITUDE  + CONSTANT 


Sll 

intermediate 

variable 

S12 

INTERMEDIATE 

VARIABLE 

S13 

INTERMEDIATE 

variable 

52 1 

INTERMEDIATE 

VARIABLE 

S22 

intermediate 

VARIABLE 

S23 

INTERMEDIATE 

VARIABLE 

S31 

mmtm 

INTERMEDIATE 

VARIABLE 

S32 

intermediate 

VARIABLE 

S33 

INTERMEDIATE 

VARIABLE 

VEC 

TRANS 

intermediate 

VECTOR 

variables 

CE  — COSINE  OF  OBLIQUITY  OF  EARTH 

DUM  — INTERMEDIATE  VARIABLE 

EPS  — OBLIQUITY  OF  EARTH 

IC0DE2  — INTERNAL  CODE 

SE  — SINE  OF  OBLIQUITY  OF  EARTH 

62*  VARADA 
COMMON 
BLK 
MI  SC 
TIM 

TRAJCD 

VM 

VARIABLES 


BDRl 

TEMPORARY 

STORAGE 

FOR 

bdr 

BDTl 

TEMPORARY 

STORAGE 

FOR 

BDT 

B1 

TEMPORARY 

STORAGE 

FOR 

B 

DSIl 

TEMPORARY 

STORAGE 

FOR 

DSI 

I 

INDEX 

IPO 

TEMPORARY 

STORAGE 

FOR 

IPRINT 

ISP 

mma 

TEMPORARY 

STORAGE 

FOR 

ISP2 

N 

-- 

index 
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RF  — ALTERED  FINAL  STATE  OF  VEHICLE 

XC  — ALTERED  INITIAL  STATE  OF  VEHICLE 

63.  VARSIM 

COMMON 

CONST 

CONST2 

EVENT 

GUI 

MISC 

NAME 

SIMl 

SIM2 

STM 

STVEC 

TIM 

TRAsJCD 

TRJ 

VM 

VARIABLES 


BDRS 

«p«n» 

TEMPORARY  STORAGE  FOR 

BDR 

bdts 

TEMPORARY  STORAGE  FOR 

BDT 

BS 

temporary  storage  FOR 

B 

I 

INDEX 

IPR 

TEMPORARY  STORAGE  FOR 

IPRINT 

ISPS 

TEMPORARY  STORAGE  FOR 

ISP2 

N 

INDEX 

RFl 

ALTERED  FINAL  STATE  OF  VEHICLE  ON  MOST  RECENT 
NOMINAL 

RSIS 

TEMPORARY  STORAGE  FOR 

RSI 

TSIl 

immu 

TEMPORARY  STORAGE  FOR 

TSI 

VSIS 

TEMPORARY  STORAGE  FOR 

VSI 

XC 

altered  initial  state 

RECENT  NOMINAL 

OF  VEHICLE  ON  MOST 

64.  VECTOR 
COMMON 

BLK 

COM 

PRT 

VARIABLES 

DUM  — intermediate  VARIABLE 

I — INDEX 

IPS  — INTERMEDIATE  INDEX 

65.  VMASS  ' 

COMMON 

BLK 

COM 

PRT 

VARIABLES 
I — INDEX 

ipi  — intermediate  index 

IP2  — INTERMEDIATE  INDEX 
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IP3 

-- 

INTERMEDIATE  INDEX 

INDEX 

JPl 

VMP 

COMMON 

BLK 

COM 

PRT 

VM 

VARIABLES 

INTERMEDIATE  INDEX 

D 

<PW«M 

INTERMEDIATE  DATE 

DELR 

— 

INTERMEDIATE  VARIABLE 

DELT 

INTERMEDIATE  TIME 

I 

INDEX 

IDAY 

CALENDAR  DAY 

IHR 

CALENDAR  HOUR 

IMO 

— 

CALENDAR  MONTH 

IP 

NUMBER  OF  PLANET 

lYR 

CALENDAR  YEAR 

J 

INDEX 

vJJ 

COUNTER 

MIN 

— 

CALENDAR  MINUTES 

NTPI 

INDEX 

RCM 

w«w 

MAGNITUDE  OF  POSITION  OF  VEHICLE  RELATIVE  TO 
target  planet  at  CLOSEST  APPROACH 

RCMl 

INITIAL  radius  OF  VEHICLE  RELATIVE  TO  TARGET 
PLANET 

ROME 

present  radius  of  VEHICLE  RELATIVE  TO  TARGET 
PLANET 

SEC 

CALENDAR  SECONDS 

TIMIN 

TOTAL  time 

TIMl 

an>M» 

CP  TIME  USED  AT  BEGINNING  OF  TRAJECTORY 

TIME 

CP  TIME  USED  AT  END  OF  TRAJECTORY 

TP 

INTERMEDIATE  VARIABLE 

TT6 

WWI* 

GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET  IN 
PROPER  UNITS 

VCM 

mm 

MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE  TO 
target  planet  at  CLOSEST  APPROACH 

VII.  PROGRAM  LISTING 


THIS  CHAPTER  CONTAINS  A LISTING  OF  ALL  SUBROUTINES  DESCRIBED  IN 
chapter  V In  addition  to  a LISTING  OF  THE  MAIN  PROGRAMS  OF  BOTH  STEAP 
and  THAT  USED  FOR  THE  TARGETING  MODE, 
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PROGRAM  STEAP< INPUT » OUTPUT rTAPE5=INPUTrTAPE6=0UTPUT) 
COMMON/CONST/OMEGA » EPS*  NST » SAL ( 3 ) » SLAT ( 3 ) » SLON ( 3 ) » DNCN ( 3 ) » MNCN ( 12 ) 
C0MM0N/C0NST2/U1 » U2 » U3  r VI » V2  f V3 » W1 » W2 » W3 » FOP » FOV 
C0MM0N/C0NST3/DELXA»DELYA»DELZA»DELXErDELYErDELZE»DELXIiDELYI» 
$DELZ I » DEL AXS » DELECC » del I CL » DELMUS . DELMUP 
COMMON/EVENT/NEV#TEV(50) »IEVNT(50) »IHYP1»IEIG»TPT2(20) » 
aiCDT3(20) »NPE»NGE»IPOL»IIPOL»ICOQ3(20) »SIGRES»SIGPR0»SIGALP*SI6BET 
5-»NEVl»NEV2»NEV3»NEV4fNQE 
C0MM0N/GUI/PG(17»17) ,XG(6) fTG»EM(2»6) 

COMMON  /MEAS/  TMN{1000) »MCOOE(1000) rNMNiMCNTR 

COMMON/MISC/ACC»IDNF»ICOOR»ITRf IMNFfFACPfFACV,ISP2»BIA(12)tIPGN 
COMMON  /NAME/MDNM ( 4 » 2 ) ♦ EVNM ( 4 ) » MNNAME ( 12 » 3 ) f CMPNM ( 11 » 17 ) 
COMMON/SIMCNT/DMUSB  rDMUPB » DAB » DEB » DIBf  TT IMl » TTIM2 » UNMAC (3  »3 ) t 
$SLB(9) »AVARM(12) »IAMNF»ARES{20)»APRO(20) » AALP ( 20 ) » ABET ( 20 ) 

COMMON  /SIM1/XIU17)  ,XF1(17)  »ADEVX(17)  »E0EVX(17)  iWU?)  »Z(  17) » 

4 ANO I S (1 7 ) r RES ( 4 ) » E Y ( 4 ) » A Y ( 4 ) # AR ( 4 1 4 ) » 21 ( 17 ) » ADE VXB ( 17 ) 

COMMON  /SIM2/NBK11)  »ACCl»NBODl 

COMM0N/STM/P(17rl7) » PSI ( 17 rl7 ) » Q ( 17»17) rH(4»17) » R ( 4 » 4 > f AK ( 17r 4 ) 
$»PB(17rl7) rPSIP(17f 17) »HPHR(4»4) 

COMMON/STVEC/XI ( 17 ) » XF ( 17 ) r ND IM » I AUG  t XB (17 ) 

COMMON/TIM  /DATED »TRTM1»DELTM»FNTM»UNIVT»TRTMB 
COMMON/TRAJCD/NTMCf ISTMC»ISTMl*DTMAXrNDACC»ACCND 
COMMON/TRJ/ISOIl»ISOl2f IS0I3»ICAlrICA2»ICA3»RCAl(6) »RCA2(6) » 
$RCA3(6) »RS0I1(3) fRS0I2(3) »RS0I3(3) »VS0I1(3) »VSOI2(3) rVS0I3(3) » 
$TCAl»TCA2»TCA3rTS0IlfTS0l2»TS0l3fBSIl»BSI2»BSl3»BDTSIl»BDTSI2» 
$BDTS13»BDRSIlrBDRSI2fBDRSI3 

COMMON/ VM/NBOD » NB ( 1 1 ) » NTP » ALNGTH  f TM » DELTP  f INPR » IPROB » RC ( 6 ) » DC » 
iRSI(3) »VSI(3) »DSI»ISPH»RVS(6) » VMU» B»BDT»BDR»DELTH»TIMINT» INCMT» 
4IEPH£M»lCLPlPRINTrRE(6) »RTP(6) »ICL2 
COMMON  /C0M/V(16?7) »F(44»4) rPIrRAO 
COMMON  /COM/ITRATrKOUNT» INCMNTf INCPR»INC»IPR 
COMMON/COM/NBODY I rNBOD Y » IPRT ( 4 ) 

COMMON/COM/KL» IPG»LINCT»LINPGE 

COMMON/BLK/T»PMASS ( 11 ) »CN (80 ) »ST (50) »EMN( 15) ,SMJR( 18) 

COMMON  /BLK/RADIUS(11) »RMASS(11) rNO ( 11 ) » ELMNT ( 80 ) » SPHERE ( 1 1 ) » XP ( 6 ) 
COMMON  /PRT/M0NTH(12) » PLANET (11) 

DIMENSION  RI(6)»RF(6) 

DIMENSION  DUM(17) 

DIMENSION  RIK6)  »RF1(6)  fRI2(6)  »RF2(6)  »XF2(17)  »BVAL(4) 

IRUN  =0 

READ  (5»1000)  IRUNX 
1000  FORMAT (110) 

10  IRUN=IRUN+l 

IF(IRUN-IRUNX)  20»20»999 
20  CALL  DATA 

GO  TO  (30»100*200»300) »ITR 
C 

C TRAJECTORY  MODE 

C 

30  DO  40  1=1*6 

40  RI{I)=XI(I) 

50  CALL  NTM(RI*RF*NTMC*1) 

TRTM2=TRTM1+DELTM 
IF(TRTM2.GE.FNTM)  GO  TO  70 
TRTM1=TRTM2 
DO  60  1=1*6 
60  RKI)=RF(I) 

GO  TO  50 

70  CALL  PRINTKRF) 

GO  TO  500 
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e 

e TARGET I NG  MODE 

C 

too  WRITE(6a001) 

1001  FORMAT <//8X*TARGETlN6  MODE  IS  NOT  SUPPLIED  WITH  THIS  DECK*) 
GO  TO  500 

e 

G ERROR  ANALYSIS  MODE 

C 

200  NEVENT  = 1 
220  DO  2l0l:=lf6 
210  R1(I)=XKI) 

230  CALL  SCHED(TRTM1»TRTM2»MMC0DE) 

240  0ELTM=TRTM2-TRTM1 

IF(TRTM2-TEV(NEVENT) ) 250r250r290 

250  CALL  NTM(RI»RFfNTMC»l) 

DO  251  1=1 » 6 

251  XF(I)=RF<I) 

MCNTR=MCNTR+1 

CALL  PSIM(RI»RF»ISTMC) 

260  CALL  DYNO(O) 

270  call  TRAKM(RF»MMCOOE»NR»Of AY) 

CALL  MENO(MMC0DE»0) 

CALL  NAVM(NR»0) 

CALL  PRINT3(MMC0DE»NR) 

280  DO  281  1=1 » 6 

281  XI(1)=XF(I) 

TRTMl=TRTM2 
GO  TO  296 

290  IC0DE=IEVNT (NEVENT) 

TEVN=TEV( NEVENT) 

GO  TO  (291»292»293) » ICODE 

291  CALL  EIGEN(RIrTEVN) 

GO  TO  295 

292  CALL  PRED(RI»TEVN) 

GO  TO  295 

293  CALL  GUIDM(RI»TEVN) 

295  NEVENT  = NEVENT+1 

296  IP(TRTMl.GE.FNTM)  GO  TO  294 
IF(MCNTR.LE.NMN)  GO  TO  220 
IF ( NEVENT. LE,NEV)  GO  TO  290 
DELTM=FNTM-TRTM1 

DO  297  1=1 » 6 

297  RI(I)=XI(I> 

CALL  NTM(RI»RF*NTMC»1) 

DO  298  1=1 r6 

298  XF(I)=RF(I) 

CALL  PSIM(RI»RF»ISTMC) 

CALL  OYNO(O) 

CALL  NAVMUrl) 

294  CALL  PRNTS3(RF) 

GO  TO  500 

C 

C SIMULATION  MODE 
C 

300  NEVENT=1 

320  DO  321  1=1.6 
RI(I)=XI(I) 

321  RI1{I)=XII(I) 

CALL  SCHED ( TRTMl » TRTM2 » MMCODE ) 
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DELTM=TRTM2-TRTM1 
IF(TRTM2-TEV(NEVENT) ) 330r330»390 

330  CALL  NTM(RI»RF»NTMC»1) 

DO  331  1=1 »6 

331  XF(I)=RF(I) 

IF  (NQE.NE.O)  GO  TO  340 
DO  332  I=1»NDIM 

332  XF1(I)=XF(I) 

DO  333  1=1 » 6 

333  RF1(I)=RF(I) 

GO  TO  350 

340  CALL  NTM(RIl»RFl»NTMCf2) 

DO  341  I=l»6 

341  XF1(I)=RF1(I) 

350  MCNTR=MCNTR+1 

CALL  PSIM(RI1 »RF1 f ISTMC) 

CALL  DYNO(O) 

CALL  TRAKM ( RFl » MMCODE » NR » 0 » AY ) 

CALL  MENO(MMCODE»0) 

CALL  NAVM(NR»0) 

DO  351  1=1 f 6 

351  R 12  < I ) =X 1 1 ( I ) +ADE VX ( I ) 

DO  353  I=1»NDIM 

353  ZI ( I ) =X I 1 ( I ) + ADEVX ( I ) 

CALL  NTM(Rl2fRF2rNTMC»3) 

DO  352  I=l»6 

352  Z(1)=RF2(I) 

CALL  DYNOU) 

DO  360  1=1 » 6 

360  ADEVX ( I ) =Z ( I ) +W ( I ) -XFl ( I ) 

CALL  TRAKM ( RFl » MMCODE » NR » 1 » EY ) 

DO  361  I=1»NDIM 

361  XF2 ( I ) =XF1 ( I ) +ADEVX ( I ) 

DO  363  1=1 » 6 

363  RF2(I)=XF2(I) 

CALL  TRAKM ( RF2 » MMCODE » NR  f 2* AY ) 

CALL  MENO(MMCODE»1) 

DO  362  1=1 » NR 

362  AN0IS{I)=RNUM(SQRT{AR(I»I) ) ) 

CALL  BIAS(MMC0DE»BVAL) 

DO  370  1=1 r NR 

370  AY ( I)=A Y ( i ) +ANO I S ( I ) +BVAL ( I ) 

DO  371  K=1»NR 

DO  371  I=1»NDIM 
DO  371  J=1»NDIM 

371  EY ( K ) =E Y ( K ) +H ( K » I ) *PSI ( I » J ) *EDEVX ( J) 
DO  372  1=1 f NR 

372  RES(I)=AY{I)-EY(I) 

DO  373  I=l#NOIM 
RI1(I)=0. 

DO  373  J=1»NDIM 

373  RI1(I)=RI1(I)+PS1(I»J)*E0EVXCJ) 

DO  374  I=1*NDIM 
EDEVX(I)=RI1(I) 

DO  374  J=1»NR 

374  EDEVX ( I ) =EDEVX ( I ) + AK ( I » J ) ♦RES ( J ) 

CALL  PRINT4(MMC0DE»NR) 

DO  380  I=1»NDIM 
XI(I)=XF(I) 

380  XI1(I)=XF1(I) 
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TRTM1=TRTM2 
60  TO  400 

390  IC0DE=IEVNT(NEVENT) 
TEVN=TEV(NEVENT) 

60  TO  (391r392»393»394)»  ICODE 

391  CALL  £l6SIM(RI»TEVNfRIl) 

60  TO  395 

392  CALL  PRES IM(R1»TEVN» RID 
60  TO  395 

393  CALL  6UISIM(RI»TEVN»RI1) 

60  TO  395 

394  CALL  QUASI (RIfTEVNrRiD 

395  n£VENT=NEVENT+1 

400  IF(TKTM1.6E.FNTM)  60  TO  440 
IF(MCNTR.LE.NMN)  60  TO  320 
IF(NEVENT.LE.NEV)  60  TO  390 
DELTM=FNTM-TRTM1 

DO  401  1=1 » 6 
RI{I)=XKI) 

401  RI1(I)=XI1(D 

CALL  NTM(RI»RF»NTMC»1) 

DO  402  1=1 »6 

402  XF(I)=RF(I) 

IF(NQ£.N£.0)  60  TO  410 
DO  403  I=lfNDIM 

403  XF1(I)=XF(I) 

DO  404  I=l»6 

404  RFl(I)=RF{I) 

60  TO  420 

410  CALL  NTM(RIl»RFlfNTMC»2) 

DO  411  I=l»6 

411  XFKD-RFKl) 

420  CALL  PSlMCRIlrRFlflSTMC) 

CALL  DYNO(O) 

CALL  NAVMdtl) 

DO  421  1=1 »6 

421  RI2(I)=XI1(I)+ADEVX(I) 

CALL  NTM(RI2»RF2»NTMC»3) 

DO  422  1=1 r6 

422  Z(I)=RF2(I) 

CALL  DYNO(I) 

DO  430  1=1 » 6 

430  ADEVX ( I ) =2 (1 ) +W ( I ) -XF1 ( I ) 

DO  431  1=1»NDIM 
DUM(I)=0. 

DO  431  J=1»NDIM 

431  DUM ( I ) =DUM ( I ) +PSI ( I » J ) ♦EDEVX ( J ) 
DO  432  I=1»NDIM 

432  EDEVX(I)=DUM(I) 

440  CALL  PRNTS4(RF»RF1) 

60  TO  500 
500  60  TO  10 

999  CALL  EXIT 
END 
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(TABGBTING) 

PROGRAM  MAIN (INPUT* OUTPUT »TAPE5=INPUT»TAPE6=0UTPUT) 

THE  entire  input  REQUIRED  BY  THE  TARGETING  PROGRAM  IS  SUPPLIED  IN 
SIX  CARDS  WITH  EACH  INDIVIDUAL  CARO  CONTAINING  UNIFIED  DATA.  THE 
(SEQUENTIAL)  CARDS  AND  THEIR  REQUISITE  FORMAT  ARE  LISTED  BELOW. 


CARO  1 — 
FORMAT 
CARD  2 ~ 
FORMAT 
CARD  3 — 
FORMAT 
CARO  4 — 
FORMAT 
CARD  5 ~ 
FORMAT 
CARD  6 — 
FORMAT 


IDATK5)  *S1*IDAT2(5)  »S2 
(I5*4I3*F7.3*5X*I4*AI3*F7,3) 

NBOD*  NB(NBOD) 

(I2*3X*11I5) 

INJEK*  RS(6) 

(I2*2X*3E15.8*3E10.3) 

ITARG*  TARGl*  TARG2*  TOLl*  T0L2*  T0L3 
(I2*2X*5F15,5) 

ISKEJ*  AC(ISKEJ) 

(I2*6X»7F10.8) 

NITS*  INCPR*  TIMPR*  BDELV 
(I2*7X*I5*5X*F9,4*F11.8) 


THE  DEFINITIONS  OF  THE  ABOVE  DATA  ARE  SUMMARIZED  BELOW. 


IDAT1*S1 


IDAT2*S2  - 


NBOD 

NB 


THE  INITIAL  TIME.  IDATl  IS  A 5-VECTOR  COMPOSED  OF 
THE  INITIAL  YEAR*MONTH*DAY*HOUR* AND  MINUTE,  SI  DE- 
NOTES THE  SECONDS.  IF  INJEK=1*  THIS  TIME  IS  SPECI- 
FIED ONLY  TO  THE  DAY.  IF  INUEK=2*  THE  TIME  SHOULD 
BE  PRESCRIBED  TO  THE  NEAREST  THOUSANDTH-SECOND. 

THE  Target  time,  if  itarg=i*2*5*6  this  is  the  time 

AT  CLOSEST  APPROACH  OF  THE  TARGET  PLANET.  IF  ITARG 
=3*4  THIS  IS  THE  TIME  AT  SPHERE  OF  INFLUENCE  OF 
THE  target  PLANET. 

THE  NUMBER  OF  GRAVITATIONAL  BODIES  TO  BE  CONSIDERED 
IN  THE  integration, 

A VECTOR  OF  DIMENSION  NBOD  SPECIFYING  THE  INDICES 
OF  THE  GRAVITATIONAL  BODIES.  THE  SECOND  BODY  IS 
ASSUMED  TO  BE  THE  LAUNCH  PLANET*  THE  THIRD*  THE 


TARGET  PLANET.  THE  NUMBERING  SYSTEM  ASSIGNS  THE 
INDEX  1 TO  THE  SUN*  2 TO  MERCURY*  3 TO  VENUS*  4 TO 
EARTH*  5 TO  MARS*  6 TO  JUPITER*  7 TO  SATURN*  8 TO 
URANUS*  9 TO  NEPTUNE*  10  TO  PLUTO*  AND  11  TO  THE 
EARTHS  MOON. 

INJEK  — A FLAG  DESIGNATING  WHICH  OF  TWO  INJECTION  OPTIONS 
IS  TO  BE  USED. 

IF  INJEK  = 1 - THE  POINT-TO-POINT  CONDITIONS 
ARE  TO  BE  COMPUTED  AND  USED  AS 
THE  ZERO  ITERATE  INJECTION 
CONDITIONS. 

= 2 - THE  ZERO  ITERATE  INJECTION 
CONDITIONS  ARE  READ  IN. 

RS  — THE  ZERO  ITERATE  INJECTION  POSITION  AND  VELOCITY  IN 

HELIOCENTRIC  ECLIPTIC  COORDINATES.  IF  INJEK  = 1* 
THE  CORRESPONDING  COLUMNS  ARE  LEFT  BLANK. 

ITARG  — A flag  DESIGNATING  WHICH  OF  SIX  TARGET  OPTIONS  ARE 
TO  BE  IN  EFFECT.  THE  OPTIONS  ARE 
ITARG  OPTION 

1 POINT-TO-POINT  CONDITIONS 

2 PATCHED  CONIC  CONDITIONS  (UNBIASED  PTP) 

3 B.T*  B.R*  APPROXIMATE  TSI 

4 B.T*  B.R*  TSI 
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TARGlf 

TAR62 


T0L1» 

T0L2» 

T0L3 

ISKEJ 

AC 

NITS 
INC  PR 

TIMPR 

BDELV 


5 approximate  RCA»  ICA»  TCA 

6 EXACT  RCAf  ICA»  TCA 

TARGET  PARAMETERS.  THE  PARAMETERS  HAVE  THE  FOLLOW- 
ING DEFINITIONS  DEPENDING  ON  THE  TARGET  OPTION. 
ITARG  TARGl  TARG2 

1»2  DO  NOT  APPLY 

3.4  B.T  (KM)  B.R  (KM) 

5.6  INC  (DEG)  RCA  (KM) 

TARGET  TOLERANCES.  THE  TOLERANCES  SPECIFY  THE  ERROR 
THAT  WILL  BE  ACCEPTABLE  IN  THE  TARGET  PARAMETERS  AC- 
CORDING TO  THE  FOLLOWING  SCHEME 

ITARG  TOLl  T0L2  TOL3 

1»2  DO  NOT  APPLY 

3.4,5  B.T  (KM)  B.R  (KM)  TSI  (DAYS) 

6 INC  (DEG)  RCA  (KM)  TCA  (DAYS) 

A FLAG  DESIGNATING  THE  NUMBER  OF  ACCURACY  LEVELS  TO 
BE  USED  IN  the  TARGETING  PROCESS. 

A VECTOR  OF  DIMENSION  ISKEU  WHOSE  COMPONENTS  ARE 
THE  PROGRESSIVE  ACCURACY  LEVELS  FROM  THE  LOWEST  TO 
THE  DESIRED  FINAL  LEVEL. 

THE  MAXIMUM  NUMBER  OF  ITERATIONS  ALLOWED  AT  THE 
FINAL  ACCURACY  LEVEL. 

THE  NUMBER  OF  INTEGRATION  INCREMENTS  BETWEEN  EACH 
PRINTOUT  OF  TRAJECTORY  INFORMATION  IN  THE  FINAL 
INTEGRATION  OF  THE  TARGETED  INJECTION  CONDITIONS. 
The  NUMBER  OF  DAYS  BETWEEN  EACH  PRINTOUT  OF  TRAJEC- 
TORY INFORMATION  IN  THE  FINAL  INTEGRATION  OF  THE 
targeted  INJECTION  CONDITIONS. 

THE  BASIC  VELOCITY  INCREMENT  BY  WHICH  THE  NOMINAL 
VELOCITIES  ARE  PERTURBED  IN  COMPUTING  STATE  TRANSI- 
TION MATRICES.  IN  OUTER  TARGETING  THE  VELOCITY 
increment  is  10  times  greater ► IN  CLOSEST  APPROACH 
TARGETING  IT  IS  1/10  AS  LARGE. 


COMMON/VM/NBOD . NB ( 11 ) . NTP . ALNGTH . TM . DELTP . INPR . IPROB . RC ( 6 ) . DC . 
SRSK3)  .VSK3)  .DSI.ISPH.RVS(6)  . VMU.SB.SBDT.SBDR»DELTH.TIMINT.  INCMT. 
$ I EPHEM » 1 CL  HPR INT . RE  ( 6)  , RTP  ( 6 ) . I CL2 
COMMON/BLK/T . PMASS ( 1 1 ) . CN ( 80 ) . ST ( 50 ) . EMN ( 15 ) . SM JR ( 18 ) 

COMMON  /BLK/RADIUS(11)  .RMASS(ll)  .NOdl)  .ELMNT(80)  .SPHERE(ll)  »XP(6) 
DIMENSION  IDATKS)  ,IDAT2(5)  .IDAT3(5)  .RS(6)  ,R1(3)  .VI (3)  .P(3)  .Q(3) . 

1 WPT ( 3 ) . ECOP (3,3). OPEQ ( 3 . 3 ) . ECEGP (3.3) .EQECP (3.3). RSF ( 6 ) . RSS ( 6 ) . 

2 SRS(6) ,TRG1(4) .TRG2(4) .TRG3(4) .2(3) .PHI(2.2) .PSI(3.3) .RQ(6) 
DIMENSION  VEL(4.3) .AC(5) 

AU=149598500. 

AUDAY=1731. 4641203704 
RAD=57. 2957795 
AUS=149598500. 

ALNGTH=AU 

TM=86400. 

1 CONTINUE 

CALL  CPWMS(TIMS) 

WRITE (6.980) 

WRITE (6.901) 

WRITE (6. 902) 

WRITE(6.903) 

I EPHEM  = 1 
I PR I NT  = 1 
TRTM=0. 

READ  (5.991) IDATl. SI. IDAT2.S2 
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WRITE{6»941)IDAT1»S1»IDAT2»S2 
READ  (5r992)NB0DrNB 
WRITE(6»942)NB0D» (NB ( I ) f 1=1 » NBOD ) 

READ  (5»993)1NJEK»RS 
WRITE(6»943)INJEKrRS 

READ  (5»994) ITARG# TARGl»TARG2rT0LlfT0L2»T0L3 
WRl TE ( 6 » 944 ) 1 7 ARG » TARGI » TARG2 » TOLl » T0L2 » T0L3 
READ  (5.995) ISKEJf AC 
WRITE (6 . 945 ) ISKEJ . { AC ( I ) . 1=1 . ISKEJ ) 

READ  {5.996)NITS»INCPR.TIMPR»BDELV 
WRITE ( 6 . 946 ) NITS . INCPR . TIMPR > BOELV 
ACC=AC( ISKEJ) 

M1DI=1 

IF(ITARG“6)10»5»5 

5 XTOLl=TOLl 
XT0L2=T0L2 
XT0L3=T0L3 

10  CONTINUE 
NLP=NB(2) 

NTP=NB(3) 

TSPH=SPHERE ( NTP ) *AUS 
TMU=PMASS(NTP)*(AUS**3/86400.**2) 

CALL  TIMECDl.IDATKl)  .IDATK2)  .IDATK3)  .IDAT1(4).IDAT1(5)  .Sl.O) 
CALL  TIME(D2.IDAT2(1) .IDAT2(2) »IDAT2(3) .IDAT2(4) .IDAT2(5) »S2»0) 
IF(ITARG-5)7.4.4 
4 DINCL=TARG1 
DRCA=TAR62 
D3=D2 

CALL  PECEQ(NTP.D3.ECEQP) 

DO  37  1=1.3 
DO  37  J=l,3 

37  EQECP(I.J)=ECEQP(J»I) 

DO  6 1=1.5 

6 IDAT3(I)=IDAT2(I) 

S3=S2 

GO  TO  12 

7 DBDT=TARG1 
DBDR=TARG2 
TARG3=D2 
IF(NTP-5)8.9.11 

8 D3=D2+1, 

GO  TO  12 

9 D3=D2+1.5 
GO  TO  12 

11  D3=D2+60. 

12  CONTINUE 
DEND=D3+10. 

DELTM=DEND“D1 

IF(NITS)320.320.17 

17  CONTINUE 
ITIM=0 
JC3=1 

IF(ITARG-2)14. 13.14 

13  JC3=0 

14  CONTINUE 
JINJT=0 

IF(INJEK-1)34»15.34 

15  IF(ITARG-5)16»18.18 

16  IF(ITIM)18»19.18 

18  JINJT=1 
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19  CONTINUE 

CALL  NJEXN(JC3»vJlNJT»NLP»NTP»Dl»D3»RlfVl»VSI) 

60  TO  (l»l»20r20»20»20)  rITARG 

20  RSI<1)=-VSI(1)*1.05 
RSI(2)=-VSI(2)*.95 
RSI(3)=-VSI(3)*1.05 

RM=SQRT ( RSI (1 ) *RSI ( 1 ) +R5I ( 2) ♦RSI { 2 ) +RSI ( 3 ) ♦RSl ( 3 ) ) 

RSI(1)=TSPH+RSI(1)/RM 

RSI (3)=TSPH^RSI (3)/RM 

RSI(2)=TSPH^RSI(2)/RM 

VX=SQRT ( VS I ( 1 ) * VS I ( 1 ) + VSI ( 2 ) ♦ VS I ( 2 ) +VS I ( 3 ) ♦ VSI ( 3 ) ) 

IF(ITIM)25»21f25 

21  GO  TO  (lrl»23»23»25»25) rITARG 

23  CALL  CON  I C ( RS I » TSPH » VS  I » VX  f A » E » H I » HL » HW  r T A » P » <3 » TMU » PER  I » HP » WP  T ) 
VHE=SQRT ( VX^VX-2 . ♦TMU/TSPH ) 

CTSE  = l./E^(HP/TSPH-l.) 

STSE  = SQRT(l.-CTSE^+2) 

DENE  = PERI/TSPH*(1.+E) 

SFE  = SQRT(E+^2*1,)^STSE/DENE 
FE  = AL0G{SFE+SC|RT(SFE**2+1,)) 

TSICA  = TMU/VHE^*3*(E*SFE~FE) 

D3=D2+TSICA/a6400, 

CALL  TIME ( D3  » IDAT3 ( 1 ) » 1DAT3 < 2 ) » XDAT3 ( 3 ) » IDAT3 ( 4 ) rIDAT3 ( 5 ) » S3 » 1 ) 
ITIM=1 
GO  TO  14 
25  DEND=D3+10. 

DELTM=DEND-01 
IF(1TARG-5)31»27»27 
27  CONTINUE 

DINCL=DINCL/RAD 

CALL  C ASOI ( RS I . VS I » TMU rEQECPf 0 INCL » DRC A » DB » DBDT » DBDR » TSICA » DECL ) 

DINCL=DINCL^RAD 

D2SD3-TSICA 

CALL  TIME(D2  » IDAT2(D  rIDAT2(2) » IDAT2(3) »IDAT2(4) »IDAT2(5) »S2» 1) 

31  IF(INJEK-1)34»32»34 

32  CONTINUE 

CALL  TIMEIDl  » IDATl ( 1 ) » iDATl (2) MDATl (3) * IDATl (4) # IDATl (5) »S1 » 1 ) 
CALL  0RB(NLP»D1  ) 

N0(1)=NLP 

CALL  EPHEM(1»D1  »1) 

RSU)=R1(1)+XP(1)+AU 
RS  { 2 ) =R1  ( 2 ) +XP  ( 2 ) ♦ AU 
RS(3)=R1(3)+XP(3)^AU 
RS ( 4 ) =V1 ( 1 ) +XP ( 4 ) ♦AUDA Y 
RS ( 5 ) = V 1 ( 2 ) + XP { 5 ) ♦ AUD A Y 
RS ( 6 ) =V1 { 3 ) +XP (6 ) ♦AUDAY 

34  call  OUTl(ITAR6»INJEK»NITS*NB»IDATl»Sl»IOAT2rS2»lDAT3»S3»DBDT»DBDR 
1 »DINCL»DRCA»TOLl»TOL2fTOL3»AeC»RSrINCPRfTlMPR»NBOD»ISKEU»ACfMIDI) 

WRITE(6»982) 

WRITE (6 » 950) 

WRITE (6»95i) 

WRITE{6»931) 

IF(NITS)35»120»35 

35  CONTINUE 
I PS I 2=0 
ILS6=0 
INPR=10000 
DELTP=10000. 

NOSOI=0 

36  LEVEL=0 
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ISTM=0 

ICL2=0 

ISP2=1 

39  CONTINUE 
L£VEL=LEVEL+1 

40  CONTINUE 
PRERR=i.E+20 
ITER=0 

SET  parameters  FOR  SPECIFIC  ACCURACY  LEVEL 
ISTM=0 

IF (LEVEL-1 ) 42# 42 » 41 

41  ISTM=1 

42  CONTINUE 

IF ( ISKEJ-LEVEL ) 105 » 43 » 44 

43  CONTINUE 
ACK=AC ( ISKEJ) 

NITRS=NITS 
T0LR1=T0L1 
T0LR2=T0L2 
T0LR3=T0L3 
GO  TO  48 

44  CONTINUE 
ACK=AC (LEVEL) 

NITRS=MIDI 

TOLR1=250. 

TOLR2=250 . 

T0LR3=,02 

I F ( LE VEL- 1 ) 1 0 5 » 45 » 48 

45  CONTINUE 
NITRS=8 

48  CONTINUE 

IF (LEVEL-2) 50 » 49 » 50 

49  WRITE (6 » 932) 

PREPARATIONS  COMPLETED  FOR  SPECIFIC  ACCURACY  LEVEL 

50  CONTINUE 
ISTEP=4 

51  IF(lSTEP-4)52»53»53 

52  RS ( ISTEP+3 ) =RS ( ISTEP+3 ) +DELV 

53  1SPH=0 
ICL=0 
TIMINT=0 
INCMT=0 

DO  54  1=1,3 

54  VEL(ISTEP,I)=RS(I+3) 

CALL  VMP(RS»ACK»DI,TRTM»DELTM,RSF»ISP2) 

IF(NITRS) 125,125,56 

56  IF(ISPH)55,561,55 

561  IF(NOSOI) 562,562,661 

562  IF( ITER) 110, 110,661 

55  IF(ICL2)63,57,63 

57  TRG1(ISTEP)=SBDT 
TRG2(ISTEP)=SBDR 
TR63(ISTEP)=DSI 
IF(ITARG-5)65,59,59 

59  IF(ISTEP-4)65,60,65 

60  CONTINUE 
blNCL=OINCL/RAD 

CALL  C ASOI (RSI , VS I , TMU , EQECP , D I NCL , DRC A » DB » DBDT , DBDR , TS IC A » DECL) 
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DINCL=OINCL*RAD 

D2=D3-TSICA 

CALL  TIME(D2  t IDAT2(1) » IDAT2(2) » IDAT2(3) » IDAT2(4) » IDAT2(5) »S2»1) 

TARG1=06DT 

TARG2=DBDR 

TARG3=D2 

GO  TO  65 

63  CONTINUE 

TIMCR=-(RC(1)*RC(4)+RC(2)*RC{5)+RC(3)*RC(6) )/(RC(4)*RC(4)+RC(5)*RC 
$(5)+RC(6)*RC(6) ) 

RM=SQRT ( RC  U ) *RC ( 1 ) +RC ( 2 ) *RC ( 2 ) +RC ( 3 ) *RC ( 3 ) ) 

VM=SQRT ( RC ( 4 ) *RC ( 4 ) +RC (5 ) »RC ( 5 ) +RC ( 6 ) *RC ( 6 ) ) 
RD=(RC(1)*RC(4)+RC(2)*RC(5)+RC<3)*RC(6))/RM 
T IMCR=-RD*RM/ ( VM* VM-TMU/RM-RD*RD ) 

RC ( 1 ) =RC { 1 ) +RC ( 4 ) *T I MC  R 
RC  < 2 ) =RC  < 2 ) +RC  ( 5 ) * T I MCR 
RC ( 3 ) =RC ( 3 ) +RC ( 6 ) *T I MCR 
OC=DC+TIMCR/86400. 

RC A=SQRT (RC ( 1 ) *RC ( 1 ) +RC ( 2 ) *RC ( 2 ) +RC ( 3 ) *RC ( 3 ) ) 

DO  64  1=1 » 3 

RQ { I ) =ECEGP ( 1 1 1 ) *RC ( 1 ) +ECEQP ( I » 2 ) *RC ( 2 ) +ECEQP ( I » 3 ) *RC ( 3 ) 

64  RQ(I+3)=£CEQP(I»l)*RC{4)+ECEGP(If2)*RC(5)+ECEQP(I»3)*RC(6) 

U 1 ) =RQ ( 2 ) *RQ ( 6 ) -RQ ( 3 ) *RQ ( 5 ) 

Z(2)=RQ(3)*RQ(4)-RQ{1)*RQ(6) 

2(3)=RQ(1)*RQ(5)-RQ(2)*RQ(4) 

ZM=SQRTCZ(1)*Z(1)+Z(2)*2{2)+2(3)*Z(3)) 

Z{U=Z(1)/ZM 
Z(2)=Z(2)/ZM 
Z(3)=Z(3)/ZM 
AINCL=AC0S(Z(3) ) 

TRGl ( ISTEP) =AINCL*RAD 

TRG2(ISTEP)=RCA 

TRG3(ISTEP)=DC 

65  CONTINUE 

ERR1=TRG1 ( ISTEP)-TARG1 
ERR2=TRG2  < ISTEP ) -TARG2 
ERR3=TRG3 ( ISTEP ) -T ARG3 
CALL  CPWMS(TIMC) 

TIMC-TIMC-TIMS 

ISTP=0 

IF(ISTEP-4)66»67f67 
67  CONTINUE 
WRITE(6r973) 

WRIT£(6»952)LEVEL»ITER»ISTP»ACK»RS(4) »RS(5) »RS(6)fTRGl(4) fTR62(4)» 
1 TR63 { 4 ) » TARGl »TARG2 iTARG3 » TIMINT ► TIMC » INCMT 
1F{ICL2)676»670»676 

670  IF(N0S0I)676f671»676 

671  IF ( ABS (ERR 1 ) - 1 0 0 , ) 672  »672 » 675 

672  IF ( ABS (ERR2 ) -100, ) 673 » 673,675 

673  IF ( ABS ( ERR3 ) - ♦ 01 ) 674 , 674 , 675 

674  DELV=BDELV/2. 

GO  TO  676 

675  DELV=BDELV 

676  continue 

BEGIN  CHECK  LOOP  FOR  BAD  STEP 
FAC 151. 

FAC251. 

FAC35100000, 

IF(IPSI2)682,680,682 
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680  CONTINUE 
IF<ITAR6-3)679»681r679 

681  FAC3=0. 

GO  TO  679 

682  CONTINUE 
FAC1=100. 

679  CONTINUE 

ERROR=F AC 1 ♦ ABS ( ERR 1 ) +F AC2* ABS ( ERR2 ) +F AC  3»ABS ( eRR3 ) 

WRITE! 6 r997 ) ERROR » PRERR 

997  FORMAT UX » 6HERR0R= » E14 , 7 > 5X » 6HPRERR=  » E14 , 7 ) 

IF (ERROR-PRERR ) 662 » 662 » 661 

661  CONTINUE 
RED=.25 
DV1=DV1*RED 
DV2=0V2*RED 
DV3=DV3*RED 
RS(4)=SV1+DV1 
RS(5)=SV2+DV2 
RS{6)=SV3+DV3 
WRITE (6» 906) RED 
ISTEP=4 

GO  TO  51 

662  PRERR=ERR0R 
SV1=RS(4) 

SV2=RS(5) 

SV3=RS(6) 

C END  CHECK  LOOP  FOR  BAD  STEP 
C 

66  ISTP=ISTEP 

IF { ABS ( ERRl) -TOLRl) 71 » 71 » 75 

71  IF(ABS(ERR2)-T0LR2)72,72»75 

72  IF(ITAR6-3)73*100»73 

73  IF(ABS(ERR3)-TOLR3)100»100f75 

75  IF(ISTEP-3)77.77»83 

77  RS ( lSTEP+3 ) =RS ( ISTEP+3 ) -DELV 
IFaSTEP-3)78»ai»81 

78  IF(lTAR6-3)79r76»79 

76  IF(lSTEP-2)79r80»a0 

79  ISTEP=ISTEP+1 
60  TO  51 

80  PHI{1»1)=(TR61(1)-TRG1(4) )/DELV 
PM1{1»2)=(TRG1(2)-TRG1(4) )/DELV 
PHI (2 » 1 ) = ( TRG2 ( 1 ) -TRG2 ( 4 ) ) /DELV 
PHI (2  f 2 ) = (TRG2 (2) -TRG2 (4  > ) /DELV 
CALL  MATIN (PHI »PHI»2) 

WRITE (6» 973) 

DO  801  1=1*2 

801  WRITE ( 6 * 954 ) LEVEL  * ITER  * I * ACK  * VEL (1*1) * VEL (1*2) * VEL ( I * 3) * TRGl ( I ) 
1 TRG2(I) *TRG3(I) *PHI(I*1) *PHI(I*2) 

GO  TO  85 

81  DO  82  1=1*3 

PS I ( 1 * I ) = ( TR6 1 ( 1 ) -TRG 1 ( 4 ) ) /DELV 
PSI ( 2 * I ) = ( TRG2 ( I ) -TRG2 ( 4 ) ) /DELV 

82  PSI(3*I)=(TRG3(I)-TR63(4) )/DELV 
CALL  MATIN(PSI*PS1*3) 

WRITE (6 *973) 

DO  821  1=1*3 

821  WRITE! 6 * 953 ) LEVEL  * ITER  * I * ACK  * VEL ( I * 1 ) * VEL ( I * 2) * VEL! I * 3) * TRGl ( I ) 
1 TRG2(I) *TR63(I) *PSI(I*1) *PSI(1*2) *PS1(I*3) 

60  TO  85 


83  IF(I5TM)85»84f85 

84  ISTEP=1 
60  TO  51 

85  DT1=TAR61-TR61(4) 

UT2=TARG2-TR62(4) 

IF(lTARG-3)87f86»87 

86  DVT=PHI ( 1 » 1 ) ♦DTl+PHI ( 1 r2) *DT2 
DV2=PH I ( 2 » 1 ) *DT1+PH I ( 2 » 2 ) »0T2 
DV3=0. 

GO  TO  88 

87  DT3=TARG3-TRG3(4) 

DV1=PSI ( 1 » 1) *DT1+PSI ( 1 » 2 ) *0T2+PSI ( 1 » 3 ) *073 
D V2=PS I ( 2 » 1) *DT 1+PSI ( 2 » 2 ) ♦DT2+PS I ( 2 » 3 ) *DT3 
D V3=PS I ( 3 » 1) *DT 1+PSI ( 3 » 2 ) ♦DT2+PS I ( 3»  3 ) *DT3 
RS(6)=RS(6)+DV3 

88  RS(4)=RSt4)+DVl 
RS(5)=RS(5)+DV2 
1TER=ITER+1 
WRITE(6f973) 

IF ( ITER-NITRS) 89» 100 » 100 

89  ISTEP=4 
GO  TO  51 

100  LEVEL=LEVEL+1 
IF(ITARG-6)40»101»101 

101  IF(LEVEL-2)40»102f40 

102  DO  103  I=l»6 

103  RSS(I)=RS(I) 

GO  TO  40 

105  IFlNOSODlllf  106»lll 

106  IF(ITAR6-6) 120»107»120 

107  IFaPSI2)115;i09fll5 
109  IPSI2=1 

ICL2=1 

DELV=.1*BDELV 
DO  112  1=1 » 6 
SRS(I)=RS(I) 

112  RS(I)=RSS(I) 

DECL=OECL*RAD 

SM=1. 

IF(ABS(DINCL)-90.)210 r210»201 
201  SM=-1. 

DINCL=180.-ABS(DINeu 
210  CONTINUE 

DINCL=ABS(DINCL) 

I F ( OINCL- ABS ( DECU ) 215 » 225 » 225 
215  OINCl-=ABS(DECL) 

IF(SM)220»225r225 
220  DINCL=180.-DINCL 
225  CONTINUE 
TOLRi=0, 

TOLR2=0 . 

TOLR3=0, 

TARG1=DINCL 

TAR62=DRCA 

TARG3=D3 

ISP2=0 

ACK=ACa) 

NITRS=3 

NITRS=1 

ISTM=0 


lSKEsi=l 
LEVEL=1 
WRITE (6 f 933) 

GO  TO  50 

115  IF(ILS6)120»116»120 

116  ILS6=1 

DO  117  1=1,6 

117  RS(D=SRS(I) 

T0LR1=XT0L1 

T0LR2=XT0L2 

T0LR3=XT0L3 

ISKEwl=l 

LEVEL=1 

ACK=ACC 

NITRS=NITS 

ISTM=1 

WRITE(6f934) 

GO  TO  50 
120  CONTINUE 

WRITE(6»980) 

WRITE(6»920) 

WRITE(6»921) 

WRITE(6»922)IDATI»S1 

WRITE(6»923) 

RSM=SQRT ( RS ( 1 ) *RS ( 1 ) +RS ( 2 ) *RS ( 2 ) +RS ( 3 ) *RS ( 3 ) ) 

VSM=SQRT ( RS ( 4 ) *RS ( 4 ) +RS ( 5 ) *RS ( 5 ) +RS (6 ) *RS ( 6 ) ) 

WRITE  (6>924MRS(I)»  1 = 1,3)  »RSM 
WRITE(6,925)  (RS ( 1 ) » 1=4 » 6 ) » VSI»1 
WRITE (6 » 926) 

CALL  0RB(NLP»D1) 

NO(l)=NLP 

CALL  EPHEMdfDlrl) 

DO  330  1=1*3 
RC(I)=RS(I)-XP(I)*AU 
330  RC(I+3)=RS(I+3)-XP(I+3)*AUDAY 

RSM=SQRT ( RC ( 1 ) *RC ( 1 ) +RC ( 2 ) *RC ( 2 ) +RC ( 3 ) *RC ( 3 ) ) 

VSM=SQRT  ( RC  ( 4 ) *RC  ( 4 ) +RC  ( 5 ) *RC  ( 5 ) +RC  ( 6 ) *RC  ( 6 ) ) 

WRITE(6*924) (RC(I) • 1=1*3) *R5M 
WRITE(6,925) ( RC ( I ) * 1=4  * 6) * VSM 
WRITE(6*927) 

WRITE(6*928) 

IF ( lTARG-5 ) 300  * 300  * 310 
300  WRITE(6*929)TARG1*TARG2*IDAT2*S2 
WRITE(6*912) 

CALL  TIME(DS1*IDAT2(1) ,IDAT2(2) *IDAT2(3) *IDAT2(4) ,IDAT2(5)  *S2*1) 
WRITE(6*929)TR61(ISTEP) *TRG2(ISTEP) *IDAT2*S2 
GO  TO  320 
310  CONTINUE 

CALL  TIME(DC*IOAT3(l) *IDAT3(2) *IDAT3(3) ,IDAT3(4) ,IDAT3(5),S3*1) 

WRITE(6*911)TARG1*TARG2* I0AT3*S3 

WRITE(6*912) 

WRITE ( 6 , 91 1 ) TRGl ( ISTEP ) * TRG2 ( ISTEP ) , IDAT3  * S3 
320  CONTINUE 
ISP2=0 
NITRS=0 
ACK=ACC 
ICL2=1 
INPR=INCPR 
DELTP=TIMPR 
IPRINT=0 
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60  TO  53 

110  N0S0I=1 
SSPH=SPHERE(NTP) 

ITAR6S=ITAR6 

STAR61=TARG1 

STAR62=TARG2 

STAR63=TAR63 

R=SQRT { RC ( 1 ) *RC ( 1 ) +RC ( 2 ) *RC ( 2 ) +RC ( 3 ) *RC ( 3 ) ) 

SPHERE (NTP )=1 ,2*R/AUS 
TARG1=0. 

TARG2=0. 

V=SQRT ( RC (4 ) ♦RC ( 4 ) +RC ( 5 ) *RC ( 5 ) +RC ( 6 ) *RC (6 ) ) 

TMDF= ( SPHERE ( NTP ) * AUS-TSPH ) / ( V*8640  0 . ) 

TARG3=D2-TMDF 

TOLRl=lOOOOO, 

TOLR2=100000. 

T0LR3=1, 

ISSKvJ=ISK£J 

ISKEvJ=l 

SDELV=DELV 

DELV=  10.  ♦[!□££  V 

DELV=50.*BDELV 

LEVEL=1 

N1TRS=5 

NITRS=8 

ITARG=4 

V=SPHERE(NTP) *AUS 
WRITE (6»930)RfOC»V 
SV1=RS(4) 

SV2=RS(5) 

SV3=RS(6) 

GO  TO  50 

111  SPHERE ( NTP )=SSPH 
ITARG=ITARGS 
TARG1=STARG1 
TAR62=STARG2 
TAR63=STARG3 
T0LR1=T0L1 
T0LR2=T0L2 
T0LR3=T0L3 
ISKEJ=ISSKJ 
DELV=SDELV 
NOSOI=0 
WRITE(6»990) 

60  TO  36 
125  CONTINUE 
60  TO  1 

901  FORMAT(/39X»50HI  NTERPLANETARY  TRAJECTORY) 

902  FORMAT (/47X»34HT  ARGETIN©  PROGRAM) 

903  FORMAT(///10X»10HINPUT  DATA) 

906  FORMAT!  IXrSOHBAD  STEP  CORRECTION  IS  REDUCED  BY  FACTOR  OF  f 

SF4.3) 

911  FORMAT (20X»12HINCLINATION=»F9.3»5X»6HRCA=  »El4.7f 5X»4HTCA=»5I5»F9 
$.3) 

912  FORMAT! 15X»28HINTEGRATED  TRAJECTORY  VALUES) 

920  FORMAT!/////10X»17HTARGETING  SUMMARY) 

921  FORMAT!//10X»20HINJECTION  CONDITIONS) 

922  FORMAT !15xa4HCALENDAR  DATE=»5I5,F9.3) 

923  FORMAT !15X»33HHELI0CENTRIG  ECLIPTIC  COORDINATES) 

924  FORMAT!20X»9HPOSITION=»3!2X»E18.11) »2X»10HMAGNITUDE=»2X»E18.11) 


925  FORMAT(20X»9HVELOCITY=»3(2X»E18.11) r2X»lOHMAGNlTUDE=»2X^E18.11) 

926  F0RMATa5X»35HPLANET0CENTRlC  ECLIPTIC  COORDINATES) 

927  FORMAT (//10Xfl7HTARGET  CONDITIONS) 

928  FORMAT <15Xfl7HTARGET  PARAMETERS) 

929  FORMAT (20X»4HB.T=rF11.2»5X»4HB.R=rF11.2»5X»4HTSI=f5I5»F9, 3) 

930  FORMAT(/lXf 39H0UTER  TARGETING  CLOSEST  APPR0ACH=»E14.7»12H  .. 

DATE=fF10.3^45H  ARTIFICIAL  SPHERE-OF-INFLUENCE  RADIUS=» 

$ E14.7) 

931  F0RMAT(//lXf73HTARG£TING  AND  CONSTRUCTION  OF  SPHERE-OF-INFLUENCE  S 
STATE  TRANSITION  MATRIX) 

932  FORMAT < /IX f 43HTARGETING  TO  SPHERE-OF-INFLUENCE  CONDITIONS) 

933  F0RMAT(/1X»  56HC0NSTRUCTI0N  OF  CLOSEST-APPROACH  STATE  TRANSITION  M 
SATRIX) 

934  FORMAT ( /IX »40HTARGETING  TO  CLOSEST-APPROACH  CONDITIONS) 

941  FORMAT ( 20X » 15HINJECT ION  DATE=» I5» 4I3»F7,3»  9X»12HTARGET  DATE=»I5» 
S4I3»F7.3) 

942  FORMAT(  20X r 5HNB0D=» 13 r4X » 7HB0DlES=f 11 13 ) 

943  FORMAT(  20X r 6HINJEK=, I2» 4X f 6HSTATE=> IX » 3 (Fl5.3» IX ) f3(F11.6»lX) ) 

944  FORMAT ( 20X»6HITARG=f I2#4X»8HTARGETS=»2F10.2»8Xf 11HT0LERANCES=»2F1 
S0.2f 3X»F5,3) 

945  FORMAT(  20X»6HISKEJ=/I2»4X» 16HACCURACY  LEVELS=,6Eli.2) 

946  FORMAT ( 20X » 5HNITS= » 13 » 4X * 6hINCPR=  » 16 » 5X » 6HTIMPR= » F8 . 3 » 5X » 6HBDELV= 
S»E9.2) 

950  FORMAT(//10H  L I S A»  9XrlHX» lOXf iHYrlOX^ 1HZ»7X»80HTRAJECTOR 

lY  TRAJECTORY  TRAJECTORY  TARGET  TARGET  TARGET  TIME  TOTAL 

2 N0»/1X»10HV  T T C » 9X » IHD rlOXf IHD » lOX » 1HD» 8X » 3HB.T» 8Xr3HB. R ► 8 

3X»3HTSI»7X»46HB*T/INCL  B.R/RCA  TSI/TCA  PER  CP  OF) 

951  FORMATUXfllHE  E E Cf  9X»  1H0»  2 ( 10X»  IHO)  » 3 (9Xf2H0R)  »36Xf  17HINTEG 

2 TIME  INTEGf  /lXf  12hL  R P Y r 9X * lHTr2U0Xf  IHT)  » 9X r 4HINCL f 7X >3H 

2RCA»8X»3HTCAf7X»44HSTATE  TRANSITION  MATRIX  (SEC)  (SEC)  INCR) 

952  FORMAT(3I2»E9.2»3Fll.6»2F11.2»Fl0.3r2Fll,2»F10.3rF6,2»F6.1»I6) 

953  FORMAT(3I2»E9.2f3Fll.6»2F11.2»FlO,3»2Xr3(E9.2»lX) ) 

954  FORMAT(3I2»E9.2»3Fll.6f2F11.2»F10.3»6X»E9,2»2X»E9,2) 

973  FORMAT (IH  ) 

980  FORMAT (IHl) 

982  FORMAT (1X»32HNUMERICAL  DIFFERENCING  PROCEDURE) 

990  FORMAT ( /IX »15HINNER  TARGETING) 

991  FORMAT(l5f4I3»F7.3»5X»I4r4I3»F7.3) 

992  F0RMAT(I2»3X»11I5) 

993  FORMAT (I2»2X»3El5.8f3E10. 3) 

994  F0RMAT(I2»2Xr5F15,5) 

995  FORMAT(I2»6Xr7F10.8) 

996  F0RMAT(I2»7X>I5»5X*F9.4»F11,8) 

STOP 

END 
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SUBROUTINE  ACT8(R»VfeMXfB»BDTf8DR) 

DIMENSION  R(3) »V(3) »1«V(3) rZ(3)  rPV(3) »QV(3) »SV(3) »BV(3>  »TV(3) »RV(3) 
WV(1)  = R(2)*V(-3)  - R(3)*V<2) 

WV(2)  = R(3)*V(1)  - R(1)*V(3) 

WV(3)  = R(1)*V(2)  - R{2)*V(1) 

Cl  = SQRT(WV(l)+*2  + WV(2)**2  + WV(3)**2) 

WV(l)  S WV<1)/C1 
WV(2)  = WV(2)/C1 
WV(3)  = WV(3)/C1 

RRD  = R(1)*V(1)  + R(2)*y<2)  + R(3)*V(3) 

RM=SQRT ( R ( 1 ) **2+R ( 2 ) **2+R ( 3 ) **2 ) 

VM=SQRT(V(1)**2+V(2)**2+V(3)**2) 

RD=RRD/RM 

P=C1**2/GMX 

A=RM/(2.-RM*VM**2/GMX) 

E=SQRT(1.-P/A) 

CTA=(P-RM)/(E*RM) 

STA=RD*C1/(E*6MX) 

B=SQHT(P*ABS(A) ) 

AB=SQRT(A**2+B**2) 

DO  10  1=1 » 3 

Z (I ) = RM/C1*V ( I ) -RD/C1*R ( I ) 

PV(I)=  CTA*R(I)/RM-STA*Z(I) 

QV ( I )=STA*R{ I )/RM+CTA*Z( I ) 

SV (I ) =-A/AB*PV ( I ) +B/AB*QV ( I ) 

10  BV { D =B**2/AB*P V ( I ) +A*B/A8*QV ( I ) 

AB=SQRT (SV (1 ) **2+SV (2) **2) 

TV(1)=SV(2)/AB 

TV(2)="SV(1)/AB 

TV(3)=0, 

RV(l)  = SV'C2)*TV(3)  - SV(3)*TV(2) 

RV(2)  = SV(3)=kTV(1)  - SV{1)*TV(3) 

RV(3)  = SV(l)*TV(2)  - SV(2)*TV(1) 

AB  = SQRT(RV(1)**2  + RV(2)**2  + RV(3)**2) 

RV(1)  = RV(1)/AB 

RV(2)  = RV(2)/AB 

RV(3)  = RV(3)/AB 

BDT  = BV(1)*TV{1)  + BV{2)*TV{2)  + BV{3)*TV(3) 

BOR  - BV(1)*RV(1)  + BV(2)*RV(2)  + BV(3)*RV(3) 

RETURN 

END 


subroutine  AUX ( W t ELAT » ELON » AZ t PV » Q » TA I » ANGl • ANG2 » TIMl » TIM2 » S » E» 
1 RP  f GME  rROT » D JL » TL » TB » PHI » TH I » RAl » AZI » TINU>  TC ) 

DIMENSION  W(3) »RL(3) »PV(3) »Q{3)»RI(3) »S(3) 

RAD=57. 2957795 
DGTR=.017'*53292A 
PI=3. 1415926536 

tar=tai/rao 

STAI=SIN(TAR) 

CTAI=COS(TAR) 

SEL=SIN(ELAT/RAO) 

CEL=COS( ELAT /RAD) 

SAZ=SIN(AZ/RAO) 

CAZ=COS{AZ/RAD) 

WZ=W(3)**2-1. 

CRA=  (WU ) ♦SAZ*SEL+«  (2)  *CAZ)  /WZ 
SRA= ( W { 2 ) *SAZ»SEL-W ( 1 ) *C AZ ) /WZ 
IF(CRA)10fll»10 

10  RALS  = ATAN(SRA/CRA) 

IF(CRA)12»11»13 

11  RALS  = PI/2. 

IF(SRA)12.13fl3 

12  RALS  = RALS  + PI 

13  IF < RALS ) 14 r 15 » 15 

14  RALS  = 2.  *PI  + RALS 

15  RL(l)  = CRA*CEL 
RL(2)=SRA*CEL 
RL(3)=SEL 

CRA  = RL(1)  * PV(1)  + RL(2)  ♦ PV(2)  + RL(3)  ♦ PV(3) 

SRA  = RL(1)*Q(1)  + RL(2)*Q(2)  + RL(3)*Q(3) 

IF(CRA)  40»41V40 

40  TAL  = ATAN(SRA/CRA) 

IF(CRA)  42»41»43 

41  TAL  = PI/2. 

IF(SRA)42r43f43 

42  TAL  = TAL  + PI 

43  IF (TAL) 44 >45. 45 

44  TAL  = 2.  * PI  + TAL 

45  ALI  = 2.  =1=  PI  - TAL  + TAR 
TC=ALI~ ( AN01+ANG2 ) /RAD 
TC=TC*SQRT(RP**3/GME) 

TB=TC+TIM1+TIM2 

DO  21  1=1 » 3 

21  R1 ( I ) =PV (I ) »CTAI+Q ( I ) *STAI 
IF(RI(1))  70»71f70 

70  RAI  = ATAN(RI(2)/RI(1) ) 

IFXRIU)  )72»71»73 

71  RAI  = PI  / 2. 

IF(R1(2))  72. 73 » 73 

72  RAI  = RAI  + PI 

73  IF  (RAD  74.75.75 

74  RAI  = 2,  * PI  + RAI 

75  RAI  = RAI*RAD 

PHI  = ATAN(RI(3)/SQRT(RI(1)**2  + RI (2)=t=*2)  )*RAO 
THI=ELON  +RAI~RALS*RAD-ROT*TB/3600 , 

THI=THI»DGTR 
R = ThI/6, 28318531 
N = R 
X = N 

THI  = (R-X)*6.2a3ia531 
CTAM=-1./E 


STAM=SQRT {l.-CTAM**2) 

IF(CTAM)  50r51»50 

50  TAM  = ATAN(STAM/CTAM) 

1F(CTAM)52»51»53 

51  TAM  = PI/2. 

IF(STAM)52r53»53 

52  TAM  = TAM  + PI 

53  IF (TAM  ) 54 » 55 .55 

54  TAM  = 2.  ♦ pi'  + TAM 

55  CA2  = S(3)-C0S(TAM-TAR)*SIN(PHI/RAD) 
CA2=CAZ/(SIN(TAM-TAR)*C0S(PHI/RAD) ) 
SA2=SQRTU,-CAZ**2) 

IF(CAZ)60. 61.60 

60  AZI  = ATAN(SAZ/CAZ) 

IF(CAZ)62.61.63 

61  AZI  = PI  / 2. 

- IF(SAZ)62.63»63 

62  AZI  = AZI  + PI 

63  IF(AZI)64.65.65 

64  AZI  = 2,*PI+  AZI 

65  AZI  = AZI  ♦ RAO 
THI=THI*RAD 
050=DJL-18262,5 

GHA=100. 07554260+0. 9856473460*050+2, 9015E-13*d50**2 
GHA=eHA*DGTR 
R = GHA/6, 28318531 
N = R 
X = N 

GHA  = (R-X) *6. 28318531 
TL=RALS-ELON  +0GTR-GHA 
R = TL/6, 28318531 
N = R 
X = N 

TL  = (R-X) *6,28318531 
TL=TL*RAD/ROT 
IF (TU 35 .36. 36 

35  TL=TL+24. 

36  TIN«J=TL+TB/3600. 

RETURN 

END 


SUBROUTINE  BIAS(MCODE»BVAL) 

COMMON/MlSC/ACC» iDNFf ICOOR» ITR» IMNF»FACP ► FACV » ISP2f BI A ( 12) t IPGN 
DIMENSION  BVAL(4) 

IF(MC0DE-9)  10»30»40 
10  IF{mC0DE/2*2.EQ.MC00E)  60  TO  20 
B V AL  U ) =B I A ( MCODE+ 1 ) 

GO  TO  50 

20  8VAL(1)=BIA(MC0DE-1) 

BVAL(2)=BIA(MC0DE) 

GO  TO  50 

30  BVAU1)=BIA(9) 

BVAH2)=BIA(10) 

BVAL43)=BIAU1) 

GO  TO  50 

40  aVAL(l)=BIA(12) 

50  RETURN 

END 
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BLOCK  DATA 

COMMON  /C0M/VU6»7)  »F(44»4)  »PI»RAD 

COMMON  /COM/ITRATfKOUNT»INCMNT»lNCPR»INCf IPR 

COMMON/COM/NBOD Y I » NBOD Y f IPRT ( 4 ) 

COMMON/COM/KL  t IPG  f LINCT  t LINPGE 

COMMON/BLK/T»PMASSUl)  »CN(80)  rSKSO)  rEMNdS)  »SMJR(18) 

COMMON  /BLK/RADIUS(11)  rRMASSdl)  »NOdl)  »ELMNT(80>  fSPHEREdl)  »XP(6) 
COMMON  /PRT/M0NTHd2)  »PLANETdl) 

DATA  CN/  0 .122223328 f 0 , 324776685E-04 » -0 . 3l977o295E-06 » 0.0 » 

AO . 8228518595#  0 . 2068578774E-01 # 0 . 3034933644E-05»  0 . 0 » 1 .3246996178 » 

BO . 2714840259E-0 1 » 0 . 5143873156E-05  * 0 . 0 » 0 . 20561421 » 0 . 2046E-04 » 

C-0. 3E-07#0.0»1, 785111955  »0.7142471E03'»0.872664626E-08f  0.0# 

DO. 0592300268 »0.1755510339E-04»-0.1696847884E-o7»0. Of 1.32260435# 

£0 . 1570534527E-01 f 0 . 7155849933E-05 » 0 . 0 #2.2717874591 » 0 . 2457486613E-1 
F#0,l704120089E-04»0.0#0.6a2069E-02#-0.4774E-04fO. giE-07»0.0» 

G3 .710626172 » 0 . 2796244623E03 , 1 . 682497399E-06 » 0 . 0 » 8*0 . 0 » 1 . 7666368138 
H#0.3000526417E-01»0.7902463002E-05f0.5817764173E-07f 0.01675104# 

I-0 . 418E-04  # -0 . 126E-06  # 0.0#  6.256583781 » 0 . 1720 196977E03 » -0 . 195476876 
u2E«06#-0.1221730476E-a#0.0322944089»-0.1178097245E-04# 0,2201054112 
KE-06#  0 . 0 # 0 . 8514840375  #0 . 1345634309E^01 #^0 . 2424068406E-07# -0.930842 
L2677E-07 # 5 . 8332085089 » 0 . 3212729365E-01»0 .2266503959E-05# 

M-0 , 2084698829E-07  # 0 . 09331290 » 0 , 92Q64E-04 » -0 . 77E-07#  0.0#  5, 576840523 
N » 0 , 9145887726E+02  # 0 . 2365444735E-06  # 0 . 4363323 13E-09  / 

DATA  ST/  0.022841027#-0.9696273622E-04#  1,735518077# 

AO . 17b4479392E-01 » 0 .2218561704 » 0 . 2812302353E-0 1 » 0 , 0463376 » 

BO . 16302E-03#  3 , 93135411 » 0 , 1450191928E02 » 0 . 0435037861 # 

C-0 , 7757018898E-07 » 1 ,9684445802 » 0 , 152397787E-01 » 

D 1 . 5897996653  #0 , 3419861 162E-0 1 » 0 . 05589  # -0. 34705E-03 » 

E3 , 042621043 » 0 .5837120844E01 » 0 , 013486547#  0 .9696273622E-05# 

FI, 2826407705# 0.8912087493E-02#  2. 9502426085# 0.2834608631E-01# 

G 0 . 0470463  # 0 , 27204E-03  # 1 .2843599198  #0. 204654884E01 # 

HO .0310537707 » -0 . 1599885148E-03#  2 , 2810642235#  0 , 1923032859E-01 # 

i 0, 7638202701 #0.1532704516E-01»  0.852849E-02# 0,770 lE-04# 

JO, 7204851506 #0,1033089473E01#  0.2996712872#  0.0 #1.91786587# 

K 0.0#3, 91233424#  0.0#0. 250236#  0,0#4.000815984»0. 6944665094  / 

DATA  SMJR/0. 3870986 #0,0 #0.7233316 #0.0 #1.0000003# 0.0 #1,5236915 #0.0# 
A5, 202803# 0.0 #9. 538843 #0.0# 19, 182281 #“0,57008E-3# 30. 057053 #0.002101 
866# 39. 43871 #0,0/ 

DATA  EMN/4 . 523601515# -0 ,000924220  # 0 .000036267 » 0.000000034 » 5 . 835151 
A540  # 0 , 001944367  # -0 . 000180205  # -0 . 000000209#4. 719966573#  0 .229971481 # 
B-0. 000019774 #0.000000033 #0.099804108 #0,054900489# .00256954448/ 

DATA  PMASS/2,9591220a3E-4#4.85E-ll#7,243E-10#a,88757E-10#9,576E-ll 
1 # 2 , 8252E-7  #8 . 454E-8 » 1 . 290E-8  # 1 . 5e-8  # 7 , 4E-10  # 1 , 0921745E-1 1/ 

DATA  PI/3, 141592653589793/ 

DATA  rad/57.29577951303232/ 

DATA  LINP6E/60/ 

DATA  RMASS  / 

11.0  # 1 . 6389996302832508-7 » 2 . 447685427245681E-6 » 

23. 003448235900313E-6 # 3 , 236094940122147E-7 # 9 . 547426299951027E-4 » 
32.856928427714348E-4#4,35940l07a485358E-5#5.069071021494582E-5» 

42 , 500741703937329E-6 » 3 , 695641978467207E-8  / 

DATA  RADIUS/ 

A.  00466582  #,00001617  #.00004044  #.00004263  #,00002279  # 

B.  00047727  #.00040374  #.00015761  #.00014906  #,00004679  # 

C.  00001161  / 

DATA  F/176*0,0/»ELMNT/80*0./ 

DATA  MONTH/IOH  JANUARY# lOH  FEBRUARY# lOH  MARCH#10H  APRIL 
4#10H  MAY#10H  JUNE#10H  'JULY#10H  AUGUST# 

$10H  SEPTEMBERflOH  0CT0BER#10H  NOVEMBER#10H  DECEMBER/ 

DATA  PLANET/IOHSUN  #10HMERCURY  #10HVENUS  #10HEARTH 
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i flOHMARS 
210HNEPTUNE 
DATA  SPHERE/ 0 
1.346» 0.5805r0 
END 


flOHJUPITER  rlOHSATURN  »10HURANUS  » 
lOHPLUTO  rlOHMOON  / 

r 0,000746 » 0. 00412 1 0 , 00618 » 0 . 00378 » 0 , 3216 » 0 . 3246  * 
2366 »0./ 


259 


u u u o 


SUBROUT INE  C ASO I ( RS » VHP » TTG » EQEC » 0 INCL » DRC A » DB » DBDT » DBDR » TS IC A » 

% DECU 

DIMENSION  VHP(3) rS(3) »EQEC(3»3) »ECIM(3»3) »EQIM{3f3) »C(3) »CIMP{3) 
1 fVVP(3) »RS(3) »WPT(3) »P(3) »Q(3) 

DIMENSION  Z(3) 

THIS  subroutine  COMPUTES  B.T  AND  B.R  CORRESPONDING 
TO  SPECIFIED  INCLINATION  AND  CLOSEST  APPROACH.  VHP  IS  THE 
VELOCITY  VECTOR  IN  PLANETOCENTRIC  ECLIPTIC  COORDINATES. 

TTG  IS  THE  MU  OF  THE  TARGET  PLANET  IN  CORRESPONDING  UNITS. 

PI=3. 1415926536 
RAD=57. 2957795 
SM  = i. 

SI  = 1. 

SD  = 1. 

SINCL=DINCL 

VHPM  = SORT  ( VHP a)*VHPU)  + VHP<2)*VHP{2)  + VHP ( 3)*VHP ( 3) ) 

VVPa)=VHP(l)/VHPM 

VVP(2)=VHP(2)/VHPM 

VVP(3)=VHP{3)/VHPM 

TAND=V VP (3 ) /SORT ( 1 , -V VP ( 3 ) * V VP ( 3 ) ) 

DVP=ATAN<TAN0) 

RVP  = ATAN2(VVP(2)  rVVPd) ) 

S ( 1 ) =EQEC { I * 1 ) * VVP ( 1 ) +EQEC ( 2 rl ) ♦ V VP ( 2 ) +EQEC ( 3 » 1 ) *VVP ( 3 ) 

S ( 2 ) -EQEC ( 1 » 2 ) * V VP ( 1 ) +EQEC (2  »2 ) *VVP ( 2 ) +EQEC ( 3 » 2 ) ♦ VVP (3 ) 

S ( 3 ) =EQEC ( 1 » 3) ♦VVP ( 1 ) +EQEC ( 2 » 3 ) *VVP ( 2) +EQEC ( 3 F3) ♦VVP (3) 
TAND=S(3)/SQRT(1.-S(3)^S(3) ) 

DECL  = ATAN(TAND) 

RA  = ATAN2(S(2)  rSU)  ) 

IF(ABS(DINCL)-PI/2.)25»25»10 
10  SM  = -1. 

IF(DlNCL)20»20rl5 
15  DINCL  = DINCL  - PI 
GO  TO  25 

20  DINCL  = PI  + DINCL 
25  CONTINUE 

IF(DlNCL)30f35»35 
30  SI  = -1. 

35  IF ( DECU  40 » 45 f 45 
40  SD  = -1. 

45  CONTINUE 

IF (SI^DINeL-SD^DECL ) 47 » 48 » 48 

47  DINCL  = Sl^SD^DECL 
DINCL=DINCL^RAD 
WRITE(6»904)DINCL 
DINCL=DINCL/RAD 
W=RA-SI^PI/2. 

GO  TO  49 

48  CONTINUE 

SDELW=SIN (DECU ♦COS (DINCL) / (COS (DECL) ♦SIN (DINCL) ) 
TDELW=SDELW/SQRT ( 1 , -SDELW^SDELW I 
W=RA-ATAN(TDELW) 

49  CONTINUE 
IF(SI)50»55r55 

50  W = W + PI 

55  IF(SM)60r65»65 
60  W =■  W + PI 
65  CONTINUE 

C(l)  = SIN(vy)^S(3) 

C(2)  = -C0S(W)^S(3) 

C(3)  = C0S(W)^S(2)  - SIN(W)^S(1) 
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CM=SQRT ( C a ) *C ( 1 ) +C ( 2 ) *C ( 2 ) +C ( 3 ) *C ( 3 ) ) 

SCZ  = 1. 

IF(C(3))  70f75»75 
70  SCZ  = -1. 

75  CONTINUE 

Cd)  = SM*SCZ*CU)/CM 
C(2)  = SM*SCZ*C(2)/CM 
C(3)  = SM*SCZ*C(3)/CM 
SND=SIN(DVP) 

CSD=COS(DVP) 

SNW=5IN(RVP) 

CSW=COS(RVP) 

ECIM(1»I;=SNW 

ECIMUr2)=-CSW 

ECIM(1»3)=0. 

ECIM(2»1)=CSW*SND 

ECIM<2»2)=SNVi/*SND 

ECIM(2»3)=“CSD 

ECIM(3»1)=CSW*CSD 

ECIM(3»2)=SNW»CSD 

ECIM(3»3)=SND 

EQIM  d » 1 ) =ECIM  ( If  1 ) ♦EQEC  ( 1 rl ) +EC IM ( 1 » 2 ) *EQEC  ( 2 » 1) +EC IMU » 3 ) *EQEC  ( 3 

.f  1) 

£QIMdf2)=ECIMdf  l)+EQECdf2)+ECIMdf2)*EQEC(2f2)+EClMdf3)*EQEC{3 

. f2) 

EQIMdf3)=ECIMdf  l)*EQECdf3)+ECIMdf2)*EQEC(2f3)+ECIMdf  3)*EQEC(3 
.»3)  . 

EQ IM ( 2 f 1 ) =ECI M ( 2f 1 ) ♦EQEC  d f 1 ) +ECI M ( 2 f 2 ) *EQEC ( 2 f 1 ) +EC I M ( 2 f 3 ) *EQEC ( 3 

.f  1) 

£QlM(2f2)=ECIM(2f  l)*EQECdf2)+EClM(2f2)*EQEC(2f2)+ECIM{2f  3)*EQEC(3 

.f2) 

EQ I M ( 2 f 3 ) =EC I M ( 2 f 1 ) *EQEC  d f 3 ) +EC IM ( 2 f 2 ) *EQEC ( 2 f 3 ) +EC IM ( 2 f 3 ) *EQEC ( 3 

. f3) 

EQIM ( 3 f 1 ) =EC IM ( 3f 1 ) *EQEC ( 1 f 1 ) +ECIM( 3 f 2 ) *EQEC (2f 1 ) +EC IM ( 3f  3) ♦EQEC ( 3 
*f  I) 

EQ IM ( 3 f 2 ) =EC I M < 3 f 1 ) *EQEC (1 # 2 ) +EC IM ( 3 f 2 ) *EQEC ( 2 f 2 ) +EC IM ( 3 f 3 ) *EQEC ( 3 

.#2) 

EQIM(3f  3)=EClM  (3f  l)*EQECdf3)+ECIM(3f2)*EQEC(2f  3)+ECIM(3f  3) *EQEC(3 

* f 3) 

CIMPd)  = EQIMdfl)*Cd)  + EQIMdf2)*C(2)  + EQIMdf  3)*C(3) 

CIMP(2)  = EQIM(2fl)*C(l)  + EQIM (2f 2) *C ( 2)  + EQIM(2f 3) *C (3) 

CIMP(3)  = EQIM(3f  l)*cd)  + EQIM(3f  2)*C(2)  + EQIM(3f  3.)*C(3) 

D8=DRCA*SQRTd.+2.*TTG/(DRCA*VHPM*VHPM) ) 

THETA  = ATAN2(CIMP<2)  f CIMPd) ) 

THETA=THETA+PI/2. 

DBDT=DB*COS( THETA) 

DBDR=DB  * S IN ( T HE  T A ) 

RSM=SQRT ( RS  d ) **2+RS ( 2 ) **2+RS ( 3 ) **2 ) 

WPTd)  = RS(2)*VHP(3)  -.RS(3)*VHP{2) 

WPT{2)  = RS(3)*VHPd)  - RSd)*VHP(3) 

WPT(3)  = RSd)*VHP(2)  - RS(2)*VHPd) 

Cl  = SQRT(WPTd)**2  + WPT(2)**2  + WPT(3)**2) 

WPTd)  = 1.  * WPTd) /Cl 
WPT(2)  = 1.  * WPT(2)/C1 
WPT(3)  = 1.  * WPT(3)/C1 

RRD  = RSd)*VHPd)  + RS(2)*VHP(2)  + RS(3)*VHp(3) 

RD  = RRD/RSM 

HP  = C1**2/TTG 

A - RSM/(2.-RSM*VHPM**2/TT6) 

E = SQRTd.-HP/A) 
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PERI  = HP/U.+E) 

HI  = ATAN(SQRT(1.-WPT(3)**2)/WPT(3) ) 

HL  = ATAN2(WPT(l)f-WPT(2)) 

CTA  = (HP-RSM)/(E*RSM) 

STA  = RD*C1/(E*TTG) 

TA  = ATAN2(STA»CTA) 

DO  11  I = 1»3 

Z(I)  = RSM/C1*VHP(I)-RD/C1*RS(I) 

Pd)  = CTA*RS(I)/RSM-STA*Zd) 

11  Qd)  = STA*RSd)/RSM+CTA*Z(I) 

HW  = ATAN2{P{3) »Q(3) ) 

VHE=SQRT ( VHPM* VHPM-2 , ♦TtG/RSM ) 

CTS=1./E*{HP  /RSM-1.) 

STS  = SQRTd.-CTS**2) 

DEN  = PERI/RSM*d.+E) 

SF  = SQRT(E**2-1.)*STS/DEN 
F = AL0e(SF+SQRT{SF**2+l. ) ) 

TSICA  = TTG/VHE**3*(E*SF-F) 

TSICA=TSICA/86400, 

DINCL=SINCL 

901  FORMAT (3 (£20. 13 »5X)) 

904  FORMAT (/1X»89HTHE  DESIRED  INCLINATION  MUST  BE  SET  EQUAL  TO  THE  DEC 
SLINATION  OF  THE  APPROACH  ASYMPTOTE  = »F7.2) 

RETURN 

END 
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SUBROUT I NE  C0NC2 ( R » V » OELT » GMX  f PS I EC ) 

C 

c 

G COMPUTES  THE  6 X 6 STATE  TRANSITION  MATRIX  WHICH  RELATES 

c perturbations  at  ti  to  perturbations  at  T2 

C 

c input  is  listed  below 

C R — POSITION  components  OF  THE  VEHICLE  RELATIVE  TO  THE 

C GOVERNING  BODY 

C V — VELOCITY  components  OF  THE  VEHICLE  RELATIVE  TO  THE 

C GOVERNING  BODY 

C DELT  — DELTA  TIME  (T2  - Tl) 

C GMX  — GRAVITATIONAL  CONSTANT  OF  GOVERNING  BODY 

C 

C THE  STATE  TRANSITION  MATRIX  IS  RETURNED  AS  PSIEC 

C 

C 

DIMENSION  V(3) rR(3)f WV(3) rPV(3) fQ(3) »Z(3) 

DIMENSION  0PEC(6»6)fFMIl(6»6)fFMl(6»6) »PSI0P(6»6) » PSIEC (6 » 6) 
PI^3 • 1415926536 

RM=SQRT ( R ( 1 ) *R ( 1 ) +R { 2 ) ♦R ( 2 ) +R ( 3 ) *R ( 3 ) ) 

VM=SQRT (V ( 1 ) * V ( 1 ) + V { 2 ) *V ( 2 ) + V ( 3 ) ♦ V ( 3 ) ) 

WVU)=R12)*V{3)-RX3)*V(2) 

WV ( 2 ) =R (3) *V ( 1 ) -R ( 1 ) * V ( 3 ) 

WV(3)=RU)*V(2)-R(2)*V(1) 

C1=SG1RT(WVU)*WV{1)+WV(2)*WV(2)+WV(3)*WV(3)  ) 

WV(1)=WV(1)/C1 

WV(2)=WV(2)/C1 

WV(3)=WV(3)/C1 

RRD=R  ( 1 ) * V U ) +R  ( 2 ) * V ( 2 ) +R  ( 3 ) *V  ( 3 ) 

rd=rrd/rm 

P=C1*C1/GMX 

A=RM/ (2 , -RM*VM*VM/GMX ) 

E=SQRT(1.-P/A) 

CTA=(P-RM)/(E*RM) 

STA=RD*C1/(E*GMX) 

DO  10  1=1 » 3 

Z ( I ) = RM/C 1* V ( I ) -RD/C 1 *R ( I ) 

PV ( I ) = CTA*R (1 ) /RM-STA*Z ( I ) 

10  Q(I)=STA*R(I)/RM+CTA*Z(I) 

C COMPUTE  ROTATION  MATRIX 

DO  1 1=1 r6 
DO  1 U=l»6 

1 OPEC(1»J)=0. 

DO  11  J=lr3 
OPECCU»l)=PV(J) 

0PEC(U»2)=Q( J) 

11  0PEC(J»3)=WV(J) 

DO  2 1=1 r3 
DO  2 J=l»3 

2 OPEC  1 1+3  r J+3 ) =OPEC ( I rU ) 

COMPUTE  TIME  FROM  PERIAPSIS 
COMPUTE  TRUE  ANOMALY  AFTER  DELTA  TIME 
IF(E-lt)20»20f21 

C ELLIPSE 

20  CSE=tA-RM)/(A*E) 

SNE=RM*ST A/ { A*SQRT ( 1 , -E*E ) ) 

EA=ATAN2(SN£»CSE) 

ORB=SQRT ( A*A*A/GMX ) 

T IM l=ORB* ( E A-E*SNE ) 
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TIM2=TIMX+D£LT 

AM2=TIM2/0R8 

40  IF(AM2)  41 » 42 » 42 

41  AM2=AM2+2.*P1 
60  TO  40 

42  R3=AM2/6. 28318531 
N=R3 

XO=N 

AM2=(R3-X0) *6.28318531 
Y0=AM2+£*SIN { AM2 ) + . 5*E*E*S IN ( 2 . * AM2 ) 
DO  43  I=l»10 
RTH0=SIN(Y0) 

DXO=COS(YO) 

R3=Y0-E*RTHD 

DYO=  { AM2-R3 ) / ( 1 , -•E*DXO ) 

IF(ABS(DY0)-.1E-7)  44»43»43 

43  Y0=Y0+DY0 
WRITE(6»4)DY0 

4 FORMAT(13HONO  CONV  DLE=E15.8) 

44  DDY0=RTHD/ABS(RTHD) 

R2=A*(1.-E*DX0) 

CTA2=(P-R2)/(E*R2) 

STA2=SQRT ( 1 . -CTA2*CTA2 ) *DDYO 
60  TO  22 

c hyperbola 

21  SNF=SQRT(E*E  -1 . ) *STA*RM/P 
F=AL06(SNF+SQRT(SNF*SNF+1.) ) 

ORB=SQRT ( ABS ( A*A*A ) /6MX ) 
TIM1=0RB*(E*SNF-F) 

TIM2=TIM1+DELT 

AM2=T1M2/0RB 

X0=SI6N(1,»AM2) 

DO  53  I=l»10 
YO=£XP(XO) 

RTHD=(Y0-1./Y0)*.5 

DXO  =(Y0+1./Y0)*.5 

DYO=-XO+E*RTHD 

R3= ( AM2-DY0 ) / ( E*DX0-1 . ) 

D0X0=ABS(R3) 

IF(DDX0-.1E“7)  54»51,51 

51  IF(DDX0-1.)  53»53»52 

52  R3=R3/DDX0 

53  X0=X0+R3 
WRITE(6»5)R3 

5 FORMAT (13H0NO  CONV  DLE=E15.8) 

54  R2=A*(1.-E*DX0) 

CTA2=(P-R2)/(E*Ra) 

STA2=SQRT ( 1 . -CT A2*CT A2 ) *SI6N ( 1 . » XO ) 
C PSKTlfO)  INVERSE 

22  DO  IS  1=1.6 

DO  15  0=1,6 
15  FMI11I,0)=0. 

XO=RM*CTA 

YO=RM*STA 

RTHD=C1/RM 

dxo=rd*cta-rthd*sta 

DYO=RD*STA+RTHD*CTA 
R3=-6MX/ (RM*RM*RM) 

D0X0=X0*R3 

DDY0=Y0*R3 
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A1=A/GMX 

A3=1./C1 

A2=A1*A3 

FMI1U»1)  = A1  *(  -DXO  - 3.0  * TIMl  * DDXO  ) 

FMIl(lr2)  = A1  *(  -DYO  - 3.0  * TIMl  * DDYO  ) 

FMI1(1»4)  = -A1  *(  2.0  * XO  - 3.0  * TIMl  * DXQ  > 

FMI1(1»5)  = -A1  *(  2.0  * YO  - 3.0  ♦ TIMl  * DYO  ) 

FMI1(2»1)=A2*( (QYO*DYO)+YO*ODYO) 

FMI1(2»2)  = A2  *(  -DXO  * DYO  - YO  * DDXO  ) 

FMIK2.4)  = -A2  * YO  * DYO 

FMI1(2»5)  = -•A2  *{  -YO  * DXO  - 2.0  * Cl  ) 

FMIl(3r3)  = -A3  * DXO 

FMI1(3»6)  = A3  * XO 

FMI1C4.1)  = -A1  * DDXO 

FMIK4.2)  = -A1  * DDYO 

FMIK4.4)  = A1  * DXO 

FMIK4.5)  = A1  * DYO 

FMIKS.I)  = -A2  *(  DYO  ♦ DXO  + YO  * DDXO  ) 
FMI1(5.2)=-A2*(-(DX0*DX0)-X0*DDX0) 

FMI1(5»4)  = A2  *(  YO  * DXO  - Cl  ) 

FMIK5.5)  = -A2  * XO  * DXO 
FMIK6.3)  = -A3  * DYO 
FMIK6.6)  = A3  * YO 
C PSKT2.0) 

DO  16  I=l»6 
DO  16  J=l»6 
16  FM1(1»J)=0. 

X0=R2*CTA2 

Y0=R2*STA2 

RTHD=C1/R2 

R0=E*STA2*C1/P 

DX0=RD*CTA2-RTH0*STA2 

DY0=RD*STA2+RTHD*CTA2 

R3=-GMX/{R2*R2*R2) 

0DX0=X0*R3 

DDY0=Y0*R3 

FMl(l.l)  = DXO 

FM1(1»2)  = YO  * DXO  - Cl 

FMld.4)  = 2.0  * XO  - 3.0  ♦ TIM2  * DXO 

FMK1.5)  = YO  * DYO 

FMK2.1)  = DYO 

FMK2.2)  = -Xb  * DXO 

FM1(2»4)  = 2.0  * YO  - 3.0  ♦ TIM2  * DYO 
FMK2.5)  = -YO  » DXO  - 2.0  * Cl 
FMK3.3)  = YO 
FMK3.6)  = -XO 
FMK4.1)  = DDXO 

FMK4.2)  = DYO  * DXO  + YO  * DDXO 
FMK4.4)  = -DXO  - 3.0  * TIM2  * DDXO 
FMK4.5)  =(DYO*DYO)  + YO  * DDYO 
FMK5.1)  = DDYO 

FMK5.2)  =-(DXO*DXO)  - XO  * DDXO 
FM1(5»4)  = -DYO  - 3.0  * TIM2  ♦ DDYO 
FMK5.5)  = -DXO  * DYO  - YO  ♦ DDXO 
FMK6.3)  = DYO 
FMK6.6)  = -DXO 

C PSI(T2»T1)=PSI(T2.0)*PSI(T1»0)  (INVERSE) 

DO  25  1=1.6 
DO  25  J=l»6 
PSIOP(I»J)=0. 
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DO  25  K=l»6 

25  PSI0P(I»J)=PS10P(IfJ)+FMl(I»K)*FMIl(K»J) 

C PS  I ( ECL I PT I C ) 5=R*PS  I *R  ( TRANSPOSE ) 

DO  30  1=1 f 6 
DO  30  J=lr6 
PSlECCIf J)=0. 

DO  30  K=l»6 
DO  30  L=l»6 

30  PSIECafJ)=PSIEC(I»  J)+OPEC(I»K)*PSIOP<K»L)*OPEC(J»L) 

RETURN 
END 
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SUBROUTINE  CONIC (R»RM»V»VM»A»E»Xl»XLrW»TA^PV»Q»GMX»RPrPfWV) 
DIMENSION  V(3) >R(3) »WV(3) »PV(3) »Q(3) »Z(3) 

WVU)  = R(2)*V(3)  - R(3)*V(2) 

WV(2)  = R(3)*va)  - R(1)*V(3) 

WV(3)  = R(1)*V(2)  - R(2)*V(1) 

Cl  = SQRT(WV(1)**2  + WV(2)**2  + WV(3)**2) 

WV(1)  = l.*WV(l)/Cl 
WV(2)  = 1,*WV(2)/C1 
WV(3)  = l.*WV(3)/Cl 

RRD  = Rd)  *V(1)  + R(2)  * V(2)  + R(3)  ♦ V<3) 

RD=RRD/RM 

P=C1**2/GMX 

A=RM/ (2 .-RM*VM**2/GMX) 

E=SQRT{1,-P/A) 

RP  = P/a.+E) 

XI=ATAN ( SORT { 1 . -WV ( 3 ) **2 ) /W V ( 3 ) ) 

XL  = ATAN2(WV(1) »-WV{2) ) 

CTA=(P"RM)/(E*RM) 

STA=RD*C1/(E*GMX) 

TA  = ATAN2(STA»CTA) 

DO  10  1=1 » 3 

Z ( 1 ) = RM/C 1*V  < I ) -RD/C1*R (I ) 

PV(I)=  CTA*R(I)/RM-STA*Z(I) 

10  Q (I ) =STA*R < 1 ) /RM+CTA+Z ( I ) 

W = ATAN2(PV(3) »Q(3) ) 

RETURN 

END 
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SUBROUTINE  CONST ( MODE » NDO  * NTT » P I f RAD » AU  ^ AUDA Y , AUS » CONV t SSG » RP » HHT A 
1 t ANGI » ANG2 » TIMl » TIM2  r DDL AT  * DOLON » DDIQ»  DDLQ  t ROT ) 

M0DE=3 

PI=3. 1415926536 
RAD=57, 2957795 
AU  = 149.5985 

AUDAY  = AU/ (24. *3600.) *1000000. 

AUS  = 149598500, 

CONV  = AUS/86400, 

R0T=15.041 

SSG=2,959122083E”04 

IF(NDD-4)100»10l»100 

101  DDIQ=  “.4091924432 
DOLQ=  0,0 

eO  TO  104 

100  IF(NDD-3)102»103rl02 

103  DDIQ=0.0 
DDLQ=0.0 
GO  TO  104 

102  IF(NDD-5)104.105»104 
105  DDIQ=0,0 

DDLQ=0,0 

104  CONTINUE 
RP=6560. 

IF (MODE-2 ) 30 » 30 » 10 
10  IF(NTT-4)14,12a2 
12  ANG1=23, 

ANG2=25, 

TIM1=700, 

TIM2=300. 

HHTA=12. 

DDLAT=28.28 
DDL0N=279 . 5 
GO  TO  20 
14  ANG1=17. 

ANG2=8. 

TIM1=500. 

TIM2=100, 

HHT A =3. 7 
DDLAT=28.317 
DDL0N=279.457 
20  CONTINUE 
30  CONTINUE 

901  FORMAT(/1X»20HCONVERSION  CONSTANTS) 

902  FORMAT ( IX » 3HPI= »E20,13»3X»7HRADlAN=fE20. 13 r3X?3HAU=»E20.13»3X» 

1 6HAUDAY=»E20.13) 

903  FORMAT ( IX »18HPHYSICAL  CONSTANTS) 

904  FORMAT ( IX. IIHMU  OF  SUN=  .E17 . 10 . 3X . 15HR0TATI0N  RATE=  .F7.3.3X. 

1 11H0BLIQUITY=  .F13.10.3X.17HU0NG  OF  EQUATORS  .F13.10) 

905  FORMAT ( IX. 14HLAUNCH  PROFILE) 

906  FORMAT ( IX. 18HLAUNCH  SITE  LAT  = .F7.3. 3X » 19HLAUNCH  SITE  LONG  = . 

1 F7.3.3X.20HPARKING  ORBIT  RAD  = .F7.2. 3X . 19HLAUNCH  TRUE  ANOM  = . 

2 F6.2) 

907  F0RMAT(1X.6HAN61=  »F5.1.3X.6HAN62=  . F5, 1 » 3X. 6HTIM1=  .F5,1.3X. 

1 6HTIM2S  »F5.1) 

RETURN 

END 
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SUBROUTINE  CONVERT < K » PHI » THETA » VEL » GAMMA rSiGMA YtZf  VXtVYfVZ) 
R = DISTANCE 
PHI  = DECLINATION 
THETA  = RIGHT  ASCENSION 
VEL  = VELOCITY 
GAMMA  = PATH  ANGLE 
SIGMA  = AZIMUTH 
CP=COS(PHI) 

SP=SIN(PHI) 

CT=COS( theta) 

ST=SIN( THETA) 

CG=COS (GAMMA) 

SG=SIN(GAMMA) 

X=R*CP*CT 

Y=R*CP*ST 

Z=R*SP 

BI=VEL*SG 

82=VEL*CG*SIN( SIGMA) 

B3=VEL*CG*C0S( SIGMA) 

VX=B1*CP*CT-B2*ST-B3*SP*CT 

VY=B1^CP*ST+B2*CT-B3*SP*ST 

VZ=B1*SP+B3*CP 

RETURN 

END 
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SUBROUTINE  DATA 


THIS  SUBROUTINE  READS  THE  DATA  USED  IN  EACH  OF  THE  MOOES  OF 
OPERATION  USED  IN  THE  STEAP  PROGRAM 

THE  FIRST  CARD  WHICH  SHOULD  BE  READ  CONTAINS  THE  VARIABLE  IRUNX 
WHICH  INDICATES  HOW  MANY  DIFFERENT  RUNS  ARE  TO  BE  MADE.  THIS 
NUMBER  SHOULD  BE  PLACED  ON  THE  CARD  ACCORDING  TO  AN  110  FIELD. 
—NOTE— THIS  NUMBER  IS  ONLY  READ  ONCE  EACH  TIME  THE  PROGRAM  IS 
INPUT. 

THE  NEXT  CARD  SHOULD  CONTAIN  THE  VARIABLES  IPRO  AND  ITR  WHICH 
GIVE  THE  PROBLEM  IDENTIFICATION  AND  A CODE  NUMBER  INDICATING 
WHICH  MODE  TO  BE  USED  FOR  THIS  PROBLEM.  THE  FORMAT  IS  2110. 
—note— THIS  CARD  SHOULD  PRECEDE  THE  INPUT  FOR  EACH  RUN. 


ITR 

— =1 

TRAJECTORY  MODE 

=2 

— 

TARGETING  MODE 

=3 

ERROR  ANALYSIS  MODE 

simulation  mode 

IF  THE 

TRAJECTORY 

MODE 

IS  TO  BE  RUN*  THE  DATA  IS  INPUT  THROUGH 

THE  USE  OF  A NAMELIST  ENTITLED  TRAJ  WHICH  INCLUDES  THE  FOLLOWING 
VARIABLES. 


XI 


ICOOR 


RDS 

PHI 

theta 

VEL 

GAMMA 

SIGMA 


LMO 

LDAY 

LHR 

LMIN 

SECL 

LYR 

IMO 

IDAY 

IHR 

IMIN 

SEC  I 

IYR 

ALNGTH 


A VECTOR  CONTAINING  THE  INITIAL  POSITION  AND 
VELOCITY  OF  THE  VEHICLE 

—NOTE— THIS  VECTOR  IS  READ  ONLY  IF  ICOOR  = 0rl»2 
A CODE  TO  DETERMINE  WHAT  COORDINATE  SYSTEM  THE 
initial  STATE  VECTOR  IS  IN.  IF  THIS  CODE  IS  NOT 
included  in  THE  NAMELIST*  IT  IS  ASSUMED  TO  BE  2. 
=0  — HELIOCENTRIC  ECLIPTIC 
=1  — GEOCENTRIC  EQUATORIAL 
=2  — GEOCENTRIC  ECLIPTIC 

=3  — JPL  CONDITIONS  {RDS*PHI*THETA*VEL*GAMMA* 
SIGMA) 

earth-centered  injection  radius 

DECLINATION 

INJECTION  RIGHT  ASCENSION 
inertial  INJECTION  SPEED 
INJECTION  PATH  ANGLE 
INJECTION  AZIMUTH 

—NOTE— THESE  CONDITIONS  ARE  INPUT  ONLY  IF 
ICOOR  = 3. 

LAUNCH  MONTH  (INTEGER) 

LAUNCH  DAYS  (INTEGER) 

LAUNCH  HOURS  (INTEGER) 

LAUNCH  MINUTES  (INTEGER) 

LAUNCH  SECONDS  (FLOATING) 

LAUNCH  YEAR  (INTEGER) 

MONTH  OF  FINAL  COMPUTATION  EINTEGER) 

DAY  OF  FINAL  COMPUTATION  (INTEGER) 

HOUR  OF  FINAL  COMPUTATION  (INTEGER) 

MINUTE  OF  FINAL  COMPUTATION  (INTEGER) 

SECOND  OF  FINAL  COMPUTATION  (FLOATING) 

YEAR  OF  FINAL  COMPUTATION  (INTEGER) 

LENGTH  UNITS  PER  A.U, 
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TM 

NTMC 

TRTMl 

NBOD 

NB 


the  following 

lEPHEM  — 


I PR I NT  — 


ISP2 


—NOTE— IF  ALNGTH  IS  NOT  READ  INf  THE  LENGTH  UNITS 
ARE  ASSUMED  TO  BE  KILOMETERS  ( ALNGTH=m9598500 . ) 
TIME  UNITS  PER  DAY 

—NOTE— IF  TM  IS  NOT  READ  INf  THE  TIME  UNITS  ARE 
assumed  to  be  SECONDS.  (TM=86400.) 
nominal  trajectory  module  CODE 
=1  — PATCHED  CONIC 
=2  — VIRTUAL  MASS 

—NOTE — IF  NOT  INPUT » CODE  2 IS  ASSUMED 
initial  TRAJECTORY  TIME  (ASSUMED  ZERO  IF  NOT 
READ  IN) 

NUMBER  OF  BODIES  TO  BE  CONSIDERED  IN  ANALYSIS 
—NOTE— IF  NBOD  IS  NOT  INPUT » IT  IS  ASSUMED  TO  BE  3 
(SUM»  LAUNCH  PLANET » TARGET  PLANET) 

ARRAY  OF  CODES  OF  BODIES 
=1  — SUN 
=2  ~ MERCURY 
=3  — VENUS 
=4  — EARTH 
=5  ~ MARS 
=6  — JUPITER 
=7  — SATURN 
=8  — URANUS 
-9  — NEPTUNE 
= 10—  PLUTO 
=11—  EARTHS  moon 
— NOTE— NB(2)=LAUnCH  PLANET 
NB(3)=TARGET  PLANET 

INFORMATION  IS  NECESSARY  ONLY  Ip  NTMC=2. 

EPHEMERIS  CODE 

=0  — PLACE  EACH  PLANET  IN  ELLIPSE 

THE  DATE  AT  WHICH  THIS  ELLIPSE  IS 

calculated  is  determined  by  reading  in  a 

VARIABLE  WHICH  IS  ENTITLED  AS  THE  NAME  OF 
THE  PLANET  CONSIDERED.  THIS  VARIABLE 
MONTHS  DAYr  HOURf  MINUTE* SECOND » AND 
SHOULD  CONTAIN  SIX  NUMBERS  SPECIFYING  THE 
YEAR . ( EXAMPLE . . EARTH=7  * 24  * 6 * 15 » 38 » 1973 ) 

—NOTE— IF  THESE  VARIABLES  ARE  OMITTED  FROM 
THE  NAMELIST  THE  FOLLOWING  RULES  WILL  BE 
APPLIED. 

NB(2)  at  launch  DATE 
NB(3)  at  target  DATE 
MOON  at  SAME  DATE  AS  EARTH 
ALL  OTHERS  AT  TARGET  DATE 

=1  — CALCULATE  ORBITAL  ELEMNETS  FOR  EACH  PLANET 

EACH  TIME  INTERVAL 

—NOTE— ONE  IS  ASSUMED  IF  THIS  VARIABLE  IS  NOT 
INPUT 

PRINT  CODE  FOR  VIRTUAL  MASS 

=0  ALL  OUTPUT  WILL  BE  PRINTED  BOTH  INITIALLY  AND 
FINALLY  AS  USUAL 

(ASSUMED  IF  NOT  INPUT  IN  TRAJECTORY  MODE) 

=1  OUTPUT  WILL  BE  SUPPRESSED  AT  THE  BEGINNING  AND 
FINAL  steps 

(ASSUMED  IF  NOT  INPUT  IN  ERROR  ANALYSIS  MODE 
AND  SIMULATION  MODE) 

CODE  FOR  VIRTUAL  MASS  TRAJECTORY 
=0  CONTINUE  INTEGRATING  TO  FINAL  TIME 

— note— ISP2  IS  ASSUMED  ZERO  IF  NOT  INPUT 
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.GT.O  STOP  integrating  WHEN  SPHERE  OF  INFLUENCE 
OF  STATED  PLANET  IS  ENCOUNTERED. 

ACC  — accuracy  figure  (ASSUMED  l.E-6  IF  NOT  INPUT 

OELTP  — PRINT  INTERVAL  (IN  DAYS)— ASSUMED  3.  IF  NOT  INPUT 

IN  trajectory  mode.  if  not  input  in  ERROR  ANALYSIS 
MODE  OR  simulation  MODE  DELTP  IS  ASSUMED  500. 

INPR  — PRINT  INTERVAL  (INCREMENTS)  (ASSUMED  100  IF  NOT 
INPUT  IN  TRAJECTORY  MODE.  IN  ERROR  ANALYSIS  OR 
simulation  mode  assumed  10000  IF  not  INPUT) 

IF  THE  TARGETING  MODE  IS  TO  BE  RUN*  A NAMELIST  -TARG-  IS  TO  BE 
READ  WITH  THE  FOLLOWING  VARIABLES. 

IF  THE  ERROR  ANALYSIS  MODE  IS  TO  BE  RUN*  A NAMELIST  ENTITLED 
ERRAN  IS  READ  WHICH  INCLUDES  ALL  OF  THOSE  VARIABLES  USED  IN  THE 
TRAJECTORY  MODE  PLUS  THE  FOLLOWING. 

lAUG  — AUGMENTATION  FLAG 

= 1 STATE  VECTOR  CONSISTS  OF  POSITION  AND 
VELOCITY  OF  VEHICLE  (NDIM  = 6') 

— ALL  REMAINING  CODES  INDICATE  STATE  VECTORS  WITH 
AUGMENTED  INFORMATION  AS  NOTED  — 


= 2 STATION  LOCATION  PARAMETERS  (NDIM  = 9) 

(GEOCENTRIC  RADIUS*  LATITUDE*  LONGITUDE) 

53  MU  OF  SUN  AND  MU  OF  TARGET  PLANET  (NDIM  = 8) 
= 4 SIX  MEASUREMENT  BIASES  (RANGE  BIAS*  RANGE- 

RATE  BIAS*  THREE  STAR  ANGLE  BIASES*  APPARENT 
PLANET  DIAMETER  BIAS)  (NDIM=12) 

= 5 Three  ephemeris  biases  of  Target  planet 
(SEMI-major  axis  bias*  eccentricity  bias* 

= 6 nine  station  location  parameters  (NDIM=15) 

(THREE  FROM  EACH  OF  THREE  STATIONS) 

= 7 THREE  station  LOCATION  PARAMETERS  PLUS  MU  OF 
SUN  AND  MU  OF  TARGET  PLANET  (NDIM  = ID 
= a THREE  STATION  LOCATION  PARAMETERS  AND  SIX 
measurement  biases  (NDIM=15) 

= 9 MU  OF  SUN*  MU  OF  TARGET  PLANET*  THREE 
EPHEMERIS  BIASES  (NDlM=ll) 
s 10  SIX  MEASUREMENT  BIASES  AND  THREE  EPHEMERIS 
BIASES  (NDIM=15) 

5 11  THREE  STATION  LOCATION  PARAMETERS  PLUS  MU 
OF  SUN*  MU  OF  PLANET*  SIX  MEASUREMENT 
BIASES  (NDIM=17) 

NENT  — NUMBER  OF  ENTRIES  IN  THE  MEASUREMENT  SCHEDULE 
THIS  IS  ASSUMED  ZERO  IF  IT  IS  NOT  INPUT 
—NOTE— THE  MEASUREMENT  SCHEDULE  ITSELF  IS  NOT 
READ  IN  THE  NAMELIST.  IT  WILL  BE  READ 
IMMEOIATLEY  FOLLOWING  THE  NAMELIST 
SCHED(I)  SCHED(2)  SCHEDO)  MEAS 
FlO.O  FIO.O  FIO.O  110 

DAYl  TO  DAY2  EVERY  X DAYS  W.  CODE 
THE  CODE  IS  determined  BY  THE  FOLLOWING  LIST 
=1  RANGE-RATE  — IDEALIZED  STATION 
=2  range*  RANGE-RATE  — IDEALIZED  STATION 

=3  RANGE-RATE  — STATION  1 

=4  RANGE*  RANGE-RATE  — STATION  1 

=5  RANGE-RATE  — STATION  2 
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NEVl 

n 

lEIG 

IHYPl 

NEV2 

T2 

TPT2 

NEV3 

T3 

ICDT3 


ICDQ3 


SIGRES 

SI6PR0 

SIGALP 

SIGBET 

P 


=6  range»  range-rate  — station  2 

=7  range-rate  — STATION  3 
=8  RANGE r RANGE-RATE  — STATION  3 
=9  THREE  star  PLaNET  ANGLES 
=10  APPARENT  planet  DIAMETER 

— NUMBER  OF  EIGENVECTOR  EVENTS  (ASSUMED  ZERO,  IF 
NOT  READ) 

— ARRAY  OF  TIMES  AT  WHICH  EIGENVECTOR  EVENTS  OCCUR 
— NOTE--THIS  IS  To  BE  INPUT  ONLY  IF  NEVl.NE.O 

— EIGENVECTOR  CODE 

=0  — ONLY  POSITION  EIGENVECTORS  WILL  BE  INPUT 
(ASSUMED  IF  NOT  INPUT) 

=1  — BOTH  POSITION  AND  VELOCITY  EIGENVECTORS 
WILL  BE  CALCULATED 

— HYPERELLPSOID  SIGMA  LEVEL  CODE 
=1  ~ SIGMA  LEVEL  EQUALS  ONE 

=2  - SIGMA  LEVEL  EQUALS  THREE  (ASSUMED  IF  NOT 

INPUT) 

=3  — SIGMA  LEVEL  OF  BOTH  ONE  AND  THREE 

— NUMBER  OF  PREDICTION  EVENTS  (ASSUMED  ZERO»  IF 
NOT  READ) 

— ARRAY  OF  TIMES  AT  WHICH  PREDICTION  EVENTS  OCCUR 
—NOTE— THIS  IS  Input  only  if  nevz.ne.o 

— ARRAY  OF  TIMES  TO  WHICH  ONE  WISHES  TO  PREDICT. 
—NOTE— these  must  CORRESPOND  TO  THOSE  TIMES 
LISTED  IN  T2  AND  SHOULD  BE  INPUT  ONLY  IF  T2  IS 
INPUT 

— NUMBER  OF  GUIDANCE  EVENTS  (ASSUMED  TO  BE  ZERO  IF 
NOT  INPUT) 

— ARRAY  OF  TIMES  AT  WHICH  GUIDANCE  EVENTS  OCCUR 
—NOTE— THESE  MUST  BE  INPUT  ONLY  IF  NEV3.NE.0 

— ARRAY  OF  CODES  WHICH  DETERMINE  WHAT  GUIDANCE 
POLICY  IS  TO  BE  USED  AT  EACH  GUIDANCE  EVENT 
=1  — FIXED  TIME  OF  ARRIVAL 

=2  — TWO-VARIABLE  B-PLANE 
=3  — THREE- VAR I able  B-PLANE 

— NOTE— these  codes  MUST  CORRESPOND  TO  THE  TIMES 
AS  stated  in  T3  AND  NEED  BE  INPUT  ONLY  IF  T3  IS 
INPUT— IF  THESE  ARE  NOT  INPUT  WHEN  T3  IS  INPUT 
THREE  VARIABLE  B-PLANE  IS  ASSUMED 

— ARRAY  OF  CODES  FOR  GUIDANCE  EVENTS  TO  DETERMINE 
HOW  THE  EXECUTION  ERROR  IS  TO  BE  CALCULATED. 

= 0 CALCULATED  DIRECTLY  FROM  S MATRIX 
= 1 CALCULATED  FROM  EIGENVECTOR  CORRESPONDING  TO 
MAXIMUM  EIGENVALUE  OF  S MATRIX. 

—NOTE— THESE  CODES  MUST  CORRESPOND  TO  THE  TIMES  AS 
stated  in  T3  and  NEED  BE  INPUT  ONLY  IF  T3  IS  INPUT. 
IF  THESE  ARE  NOT  INPUT  WHEN  T3  IS  INPUT.  OPTION  I 
IS  ASSUMED 

— VARIANCE  OF  RESOLUTION  ERROR 

assumed  4.E-8  KM**2/SEC**2  IF  NOT  INPUT 

— VARIANCE  OF  PROPORTIONALITY  ERROR 
assumed  .0001  IF  NOT  INPUT 

— VARIANCE  OF  POINTING  ANGLE  ALPHA 
ASSUMED  .0043625  RADIANS  IF  NOT  INPUT 

— VARIANCE  OF  POINTING  ANGLE  BETA 
assumed  .0043625  RADIANS  IF  NOT  INPUT 

—NOTE— THE  ABOVE  SIGMA  VALUES  MUST  BE  INPUT  ONLY 
IF  NEV3.NE.0 

— INITIAL  COVARIANCE  MATRIX. 


273 


o o n o o o o r>  o o o o n o o o r>  o o o n o o n o o o n o o o o o o o o o o o r>  o o o o o o o o o o o o n o o o r>  o n o 


—NOTE— IF  this  matrix  IS  NOT  INPUT*  A DIAGONAL 
MATRIX  IS  ASSUMED  WITH  THE  LISTED  VALUES  FOR  THE 
FIRST  SIX  elements  ON  THE  DIAGONAL.  ALL  OTHERS 
WILL  be  zero 

1.  1.  1.  l.E-4  l.E-4  l.E-4 

ISTMC  — state  transition  MATRIX  CODE 

=1  — PATCHED-CONIC  (ANALYTICAL) 

=2  — VIRTUAL  MASS  (ANALYTICAL) 

=3  • NUMERICAL  DIFFERENCING  USING  VIRTUAL-MASS. 

—NOTE— IF  THIS  CODE  IS  NOT  INPUT*  ISTMC  = 1 IS 
ASSUMED. 

IDNF  — DYNAMIC  NOISE  FLAG 

=0  --  DYNAMIC  NOISE  IS  ZERO— ASSUMED  IF  NOT  INPUT 
=1  — DYNAMIC  NOISE  IS  NOT  ZERO 

DNCN  — constants  USED  TO  CALCULATE  DYNAMIC  NOISE  (NNEO  BE 
INPUT  ONLY  IF  IDNF=1) 

IMNF  — MEASUREMENT  NOISE  FLAG 

=0  — measurement  noise  is  constant  (assumed  if 

NOT  READ  IN) 

=1  — measurement  noise  is  not  constant 

MNCN  — ARRAY  OF  VARIANCES  FOR  EACH  TYPE  OF'  MEASUREMENT 

—NOTE— IF  This  array  is  omitted  from  THE  NAMELIST* 
the  following  array  WILL  BE  ASSUMED. 


RANGE  (IDEALIZED  STATION)  l.E-6 

RANGE-RATE  (IDEALIZED  STATION)  l.E-12 
RANGE  (STATION  D l.E-6 

RANGE-RATE  (STATION  1)  l.E-12 

RANGE  (STATION  2)  l.E-6 

range-rate  (STATION  2)  l.E-12 

RANGE  (STATION  3)  l.E-6 

RANGE-RATE  (STATION  3)  l.E-12 

STAR  ANGLE  1 2.5E-9 

STAR  ANGLE  2 2.5E-9 

STAR  ANGLE  3 2.5E-9 

APPARENT  PLANET  DIAMETER  2.5E-9 


NST  — number  of  tracking  STATIONS  ON  THE  ROTATING  EARTH 

—NOTE— THIS  INFORMATION  NEED  bE  INPUT  ONLY  IF 
included  in  the  measurements  is  type  3*4*5*6*7*8 
IF  NO  INFORMATION  ON  THE  TRACKING  STATIONS  IS  INPUT 
THREE  stations  WILL  BE  ASSUMED  AS  THE  FOLLOWING 

ALT  LAT  LONG 

1.  60LDST0NE  — 1.031  KM  35.384N  116.833W 

2.  MADRID  — .050  KM  40.417N  3.667W 

3.  CANBERRA  — .050  KM  35.311S  149.136E 

SAL  — ARRAY  OF  ALTITUDES  OF  EACH  TRACKING  STATION 

SLAT  — ARRAY  OF  LATITUDES  OF  EACH  TRACKING  STATION 

SLON  — ARRAY  OF  LONGITUDES  OF  EACH  TRACKING  STATION 

—NOTE— THE  ABOVE  THREE  ARRAYS  MUST  BE  INPUT  ONLY 
IF  NST.NE.O 

U1*V1*W1—  DIRECTION  COSINES  OF  STAR  PLANET  ANGLE  1 

(NECESSARY  ONLY  IF  THIS  ANGLE  IS  BEING  MEASURED) 

IF  These  are  not  input  star  number  i is  assumed 

TO  BE  CANOPUS  WITH 

Ul=-. 061351*  vl=. 237886*  Wl=-.969355 

U2*V2*W2—  DIRECTION  CONSINES  OF  STAR  PLANE  ANGLE  2 

(NECESSARY  ONLY  IF  THIS  ANGLE  IS  BEING  MEASURED) 

IF  THESE  ARE  NOT  INPUT  STAR  NUMBER  2 IS  ASSUMED 
TO  BE  BETELGEUSE  WITH 
U2=. 028986*  V2=. 960388*  W2=-. 277141 

U3*V3*W3—  DIRECTION  COSINES  OF  STAR  PLANET  ANGLE  3 
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FACP 

FACV 

FOP 

FOV 

ISTMl 

DTMAX 

NOACC 

ACCND 

DELAXS 

DELECC 

DELICL 

DELMUS 

DELMUP 


(NECESSARY  ONLY  IF  THIS  ANGLE  IS  BEING  MEASUREDJ 
IF  THESE  ARE  NOT  INPUT  STAR  NUMBER  3 IS  ASSUMED 
TO  BE  RIGEL  WITH 

W3= . 20 1963 » V3= . 831343 » W3=- . 517784 

POSITION  FACTOR  FOR  NUMERICAL  DIFFERENCING 
(NEED  BE  INPUT  ONLY  IF  ISTMC=3) 

ASSUMED  TO  BE  1 KM  IF  NOT  INPUT 
VELOCITY  FACTOR  FOR  NUMERICAL  DIFFERENCING 
(NEED  BE  INPUT  ONLY  IF  ISTMC=3) 

ASSUMED  TO  BE  l.E-4  KM/SEC  IF  NOT  INPUT. 

A VALUE  TO  BE  USED  AS  AN  OFF-DIAGONAL  ANIHILATION 

element  in  the  eigenvector  routine  for  position 

EIGENVALUES  AND  EIGENVECTORS  (ASSUMED  TO  BE  l.E-15 
IF  NOT  READ  IN) 

A VALUE  TO  BE  USED  AS  AN  OFF-DIAGONAL  ANIHILATION 
element  in  the  EIGENVECTOR  ROUTINE  FOR  VELOCITY 
EICENVALUES  AND  EIGENVECTORS  (ASSUMED  TO  BE  l.E-25 
IF  NOT  READ  IN) 

AN  ALTERNATE  STATE  TRANSITION  MATRIX  CODE 
=0  IF  DELTM  IS  GREATER  THAN  DTMAX  (DESCRIBED 

BELOW)  calculate  PSI  BY  USING  THE  SUN  AS  THE 
GOVERNING  BODY,  (ASSUMED  3 IF  NOT  INPUT) 

=1  IF  DELTM  IS  greater  THAN  DTMAX  CALCULATE  PSI  BY 
NUMERICAL  DIFFERENCING. 

THE  MAXIMUM  DELTM  (IN  DAYS)  SO  THAT  THE  STATE 
TRANSITION  MATRIX  COMPUTATION  IS  CONSIDERED  VALID 
WHEN  USING  either  THE  PATCHED  CONIC  TECHNIQUE  OR 
THE  VIRTUAL  MASS  TECHNIQUE 
(ASSUMED  TO  BE  8 DAYS  IF  NOT  READ  IN) 
accuracy  code  for  NUMERICAL  DIFFERENCING 
=0  USE  THE  SAME  ACCURACY  FIGURE  IN  THE  CALCULATION 
OF  THE  STATE  TRANSITION  MATRIX  BY  THE  METHOD  OF 
NUMERICAL  DIFFERENCING  AS  IS  USED  IN  THE 
NOMINAL  trajectory  (ASSUMED  IF  NOT  INPUT) 

=1  CHANGE  THE  ACCURACY  IN  USING  THE  NUMERICAL 

DIFFERENCING  METHOD  TO  ACCND  (DESCRIBED  BELOW) 
ACCURACY  TO  BE  USED  IN  THE  CALCULATION  OF  THE  STATE 
TRANSITION  MATRIX  BY  THE  METHOD  OF  NUMERICAL 
DIFFERENCING.  (USED  ONLY  IF  NDACC=1)  ASSUMED  TO  BE 
2.5E-5  IF  NOT  INPUT. 

SEMI-MAJOR  AXIS  FACTOR  USED  IN  NUMERICAL 
DIFFERENCING  TO  COMPUTE  PSI  AND  H IF  lAUG  = 5.  9» 

OR  10,  (ASSUMED  100  KM  IF  NOT  INPUT) 

ECCENTRICITY  FACTOR  USED  IN  NUMERICAL  DIFFERENCING 
TO  COMPUTE  PSI  AND  H IF  I AUG  = 5»  9»  OR  10, 

(ASSUMEO  l.E-5  IF  NOT  INPUT) 

inclination  factor  used  in  numerical  differencing 

TO  COMPUTE  PSI  AND  H IF  lAUG  = 5»  9t  OR  10, 

(ASSUMED  10  ARCSECONDS  IF  NOT  INPUT) 

FACTOR  USED  IN  NUMERICAL  DIFFERENCING  FOR  THE  MU  OF 
THE  SUN  TO  GENERATE  THE  AUGMENTED  STATE  TRANSITION 
MATRIX  WHEN  I AUG  = 3»  7»  9.  OR  11,  (ASSUMED  1.E7 
WHEN  not  INPUT) 

factor  USED  IN  NUMERICAL  DIFFERENCING  FOR  THE  MU  OF 
THE  TARGET  PLANET  TO  GENERATE  THE  AUGMENTED  STATE 
TRANSITION  MATRIX  WHEN  lAUG  = 3»  7»  9,  OR  11. 
(ASSUMED  .1  WHEN  NOT  INPUT) 


IN  ORDER  TO  EXERCISE  THE  SIMULATION  OPTION^  A NAMELIST  ENTITLED 
SMLTN  IS  READ  WHICH  CONTAINS  ALL  THE  VARIABLES  MENTIONED  ABOVE 
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FOR  the  trajectory  AND  ERROR  ANALYSIS  MOOES  PLUS  THE  FOLLOWING. 


NEVA 

T4 

ADEVX 

BIA 

DMUSB 

DMUPB 

DAB 

DEB 

DIB 

TTIMI 

TTIM2 

UNMAC 

SLB 

lAMNF 

AVARM 

NBODl 


NUMBER  OF  QUASI-LINEAR  FILTERING  EVENTS  TO  BE  RUN 
AN  array  of  times  AT  WHICH  QUASI-LINEAR  FILTERING 
EVENTS  ARE  TO  TAKE  PLACE. 

—NOTE— THIS  array  IS  NECESSARY  ONLY  IF  NEVA  IS  NOT 
ZERO 

THE  VECTOR  DESCRIBING  THE  ACTUAL  DEVIATION  OF  THE 
actual  trajectory  FROM  THE  MOST  RECENT  NOMINAL 

trajectory 

AN  ARRAY  OF  MEASUREMENT  BIASES  WHICH  DETERMINE  THE 
ACTUAL  VALUE  TO  BE  USED  FOR  EACH  OF  THE  TYPES  OF 
MEASUREMENTS 

ACTUAL  BIAS  OF  THE  MU  OF  THE  SUN  TO  BE  USED  IN  THE 
DETERMINATION  OF  THE  ACTUAL  TRAJECTORY 
(ASSUMED  TO  BE  ZERO  IF  NOT  INPUT) 

ACTUAL  BIAS  OF  THE  MU  OF  THE  TARGET  PLANET  TO  BE 
USED  IN  THE  DETERMINATION  OF  THE  ACTUAL  TRAUECTORY 
(ASSUMED  TO  BE  ZERO  IF  NOT  INPUT) 

ACTUAL  BIAS  IN  THE  SEMI-MAJOR  AXIS  OF  THE  TARGET 

PLANET  TO  BE  USED  IN  THE  DETERMINATION  OF  THE 

ACTUAL  TRAJECTORY 

(ASSUMED  TO  BE  ZERO  IF  NOT  INPUT) 

actual  bias  in  the  ECCENTRICITY  OF  THE  TARGET 

PLANET  TO  BE  USED  IN  THE  DETERMINATION  OF  THE 

ACTUAL  TRAJECTORY 

(ASSUMED  TO  BE  ZERO  IF  NOT  INPUT) 

actual  BIAS  IN  the  INCLINATION  OF  THE  TARGET  PLANET 
TO  BE  USED  IN  THE  DETERMINATION  OF  THE  ACTUAL 

trajectory 

(ASSUMED  TO  BE  ZERO  IF  NOT  INPUT) 

THE  FIRST  TIME  AT  WHICH  THE  VALUES  USED  FOR  THE 
ACTUAL  UNMOOELLED  ACCELERATION  WILL  BE  ALTERED 
THE  SECOND  TIME  AT  WHICH  THE  VALUES  USED  FOR  THE 
ACTUAL  UNMODELLED  ACCELERATION  WILL  BE  ALTERED 
AN  ARRAY  OF  VALUES  WHICH  DETERMINE  THE  ACTUAL 
UNMOOELLED  ACCELERATION  TO  BE  USED  AT  A GIVEN  TIME 


NOTE— THESE 

VALUES  ARE 

ASSUMED 

ZERO  IF  NOT  INPUT 

TO  - T1 

Tl  - T2 

T2  - TF 

XI 

X2 

X3 

ACCELERATION 

Y1 

Y2 

Y3 

ACCELERATION 

Z1 

Z2 

Z3 

ACCELERATION 

AN  ARRAY  OF  ACTUAL  BIASES  IN  THE  LOCATIONS  OF  THE 
THREE  ROTATING  STATIONS  ON  THE  EARTH 
( AL 1 »L A T 1 » LONG 1 » AL2  r L aT2  » L0NG2 » AL3 . LAT3 » L0NG3 ) 
NOTE— THESE  VALUES  ARE  ASSUMED  TO  BE  ZERO  IF  NOT 
INPUT 

ACTUAL  MEASUREMENT  NOISE  CODE 

?0  — ASSUME  the  ACTUAL  UNCERTAINTIES  IN  THE 

MEASUREMENT  NOISE  ARE  THE  SAME  AS  THE 

uncertainties  assumed  in  the  most  recent 
NOMINAL  trajectory 

=1  — CALCULATE  THE  ACTUAL  UNCERTAINITES  IN  THE 

MEASUREMENT  NOISE  USING  THE  FOLLOWING 
constants 

NOTE  — IF  not  input  IAMNF  IS  ASSUMED  ZERO 

actual  variances  to  be  used  in  computing  the  actual 
uncertainties  in  the  measurement  from  WHICH  THE 
ACTUAL  measurement  NOISE  IS  CALCULATED 
NUMBER  OF  BODIES  TO  BE  CONSIDERED  IN  THE  ACTUAL 
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NBl 

ACCl 
ARES 
APRO 
A ALP 

ABET 


TRAJECTORY  (ASSUMED  TO  BE  H IF  NOT  INPUT) 

AN  array  of  CODES  OF  PLANETS  TO  BE  USED  IN  THE 
ACTUAL  trajectory  (IF  NOT  INPUT  ALL  MAJOR  PLANETS 

IN  The  solar  system  are  considered  plus  the  SUN  AND 

THE  EARTHS  MOON) 

AN  ACCURACY  FIGURE  TO  BE  USED  IN  THE  VIRTUAL  MASS 

program  when  generating  the  actual  trajectory 

(IF  NOT  INPUT  ACCl  IS  ASSUMED  TO  BE  l.E-6) 

AN  ARRAY  OF  ACTUAL  RESOLUTION  ERRORS  CORRESPONDING 
TO  the  GUIDANCE  EVENTS.  (ASSUMED  3 IF  NOT  INPUT) 
—NOTE— NEED  BE  INPUT  ONLY  IF  GUIDANCE  EVENTS  OCCUR 
AN  array  of  actual  PROPORTIONALITY  ERRORS  FOR  EACH 
GUIDANCE  EVENT.  (ASSUMED  ZERO  IF  NOT  INPUT) 
—NOTE— NEED  BE  INPUT  ONLY  IF  GUIDANCE  EVENTS  OCCUR 
AN  ARRAY  OF  ACTUAL  ERRORS  FOR  POINTING  ANGLE  ONE 
FOR  THE  GUIDANCE  EVENTS.  (ASSUMED  ZERO  IF  NOT 
INPUT)  —NOTE— need  BE  INPUT  ONLY  IF  GUIDANCE 
EVENTS  OCCUR 

AN  ARRAY  OF  ACTUAL  ERRORS  FOR  POINTING  ANGLE  TWO 
FOR  THE  GUIDANCE  EVENTS.  (ASSUMED  ZERO  IF  NOT 
INPUT)  —NOTE— NEED  BE  INPUT  ONLY ‘IF  GUIDANCE 
EVENTS  OCCUR 


COMMON/CONST/OME(5A » EPS » NST » SAL  ( 3 ) , SLAT  ( 3 ) » SLON  ( 3 ) t DNCN  ( 3 ) i MNCN  ( 12 ) 
C0MM0N/C0NST2/U1 » U2 » U3 » VI » V2  rV3  f W1 > W2 1 W3 » FOP  t FOV 
C0MM0N/C0NST3/DELXA » DELYA  rDELZA » DELXE » DELYE » DELZE  t OELX I r DELYI » 


iDELZ I » DELAXS » DELECC » DEL I CL » DELMUS » OELMUP 
COMMON/EVENT/NEV  f TEV ( 50 ) » lEVNT ( 50 ) » IHYPl , lEIG . TPT2 ( 20 ) > 
a.ICDT3(20) rNPE»NGE»IPOL*IIPOL»lCDQ3(20) »SlGRESrSIGPRO.SIGALP»SIGBET 
*»NEVlrNEV2»NEV3»NEVArNQE 
C0MM0N/GU1/PG(17»17) »XG(6) fTG*EM(2»6) 

COMMON  /MEAS/  TMN ( 1000 ) » MCODE ( lOOO ) rNMN » MCNTR 

COMMON/MISC/ACC» IDNF. ICOOR» ITR» IMNF»FACP»FACVf ISP2»BIA(12) » IPGN 
COMMON  /NAME/M0NM(A»2) »EVNM(4) r MNNAME ( 12 » 3 ) » CMPNM ( 11 » 17) 
C0MMGN/SIMCNT/DMUSB»DMUPB»0AB»DEB»DlBfTTlMl»TTIM2f UNMAC(3f 3) » 
$SLB(9) »AVARM(12) * IAMNF » ARES (20 ) f APRO ( 20 ) »AALP(20) »ABET(20) 

COMMON  /SIM1/XIK17)  ,XF1(17)  rADEVXd?)  » EOEVX ( 17)  » W (17)  »Z(17)  » 
$ANOIS(17) rRES(4) »EY (4) f AY (4) . AR ( 4» 4) » ZI ( 17 ) » AQEVXB ( 17) 

COMMON  /S IM2/NB1 { 1 1 ) » ACCl » NBODl 

COMMON/STM/P  (17r  17)  rPSK  17.17)  *Q(17»  17)  » H (‘^ » 17)  . R ( 4 . 4 ) .AK(17.4) 
$.PB(17.17) .PSIP{17» 17) .HPHR(4.4) 

C0MM0N/STVEC/XI  {17)  .XF(17)  »NOIM*  lAUG.XBd?) 

COMMON/TIM  /D ATE J . TRTMl . DELTM . FNTM . UN I VT » TRTMB 
C0MM0N/TRJ/IS0I1.IS0I2.IS0I3. ICA1.ICA2»ICA3»RCA1(6) »RCA2(6) . 
$RCA3(6)  »RSOIK3)  .RS0I2 (3) » RS0I3  (3) » VSOIl  (3) . VS0I2 ( 3)  .VSOI3(3) . 
STCA1.TCA2»TCA3»TSOI1.TSOI2.TSOI3.BSI1.BSI2»BSI3»BDTSI1»BOTSI2» 
$BDTSI3.BDRSI1»BDRSI2.BDRSI3 
COMMON/TRAJCD/NTMC . ISTMC ♦ ISTMl » DTMAX . NDACC » ACCND 
COMMON/ VM/NBOD . NB  dl ) » NTP . ALN6TH » TM . DELTP » INPR . I PROS . RC ( 6 ) » DC » 
$RSI(3) »VSK3) .DSI»ISPH.RVS(6) .VMU.B.BDT.BDR.DELTH.TIMINT.INCMT. 
$IEPHEM»ICL»IPRINT»RE(6) »RTP(6) .ICL2 
COMMON  /C0M/V(16»7) .F (44.4) .PI .RAD 
COMMON  /COM/ITRAT.KOUNT. INCMNT.INCPR.INC. IPR 
COMMON/COM/NBOOYI .NBODY . IPRT (4) 

COMMON/COM/KL .IPG . LINCT .L INPGE 

COMMON/BLK/T.PMASSdl)  .CN(80)  .ST (50)  .EMNdS)  .SMJRdS) 

COMMON  /BLK/RADIUSdl)  .RMASSdl)  .NO(ll ) . ELMNT ( 80 ) . SPHERE ( H ) . XP ( 6) 
COMMON  /PRT/MONTH (12 ) . PLANET ( 1 1 > 

DIMENSION  SCHED(50.3)  .MEAS(50)  .AP(50)  .DATEdl) 

DIMENSION  TK20)  .T2(20)  .T3(20)  .T4(20) 

DIMENSION  MERCURY (6) .VENUS (6) .EARTH(6) .M00N(6) .MARS(6) .SATURN(6) . 
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SURANUS(6) f NEPTUNE (6) ,PLUT0(6) » JUPITER (6) 

INTEGER  VENUS » EARTH » SATURN » URANUS » PLUTO 
REAL  MNCN 

DATA  MDNM/10HTRAJECTORY»10HTARGETIN6  »10HERROR  ANAL» 
SlOHSIMULATIONrlOH  MODE  »10HM0DE  flOHYSIS  MODE  » 

SlOH  MODE  / 

DATA  EVNM/10HEI6ENVALUE»10HPREDlCTIONrl0HGUlDANCE  »10HQ-LINEAR  / 
DATA  MNNAME/10HRAN6E  (EAR» 10HRANGE-RATE» IOHRANGE  (STAf 
* 1 OHR ANGE-R ATE » 1 OHR ANGE  ( ST A » 1 OHR ANGE-R ATE » 1 OHR ANGE  ( ST A » 
410HRANGE-RATE.10HSTAR  PLANE# lOHSTAR  PLANE# lOHSTAR  PLANE# 
SIOHAPPARENT  P#10HTH-CENTERE#10H  (EARTH-CE#10HTION  NUMBE# 

SlOH  (STATION  #10HTION  NUMBE# lOH  (STATION  #10HTION  NUMBE# 

SlOH  (STATION  #10HT  ANGLE  NU»10HT  ANGLE  NU»lOHT  ANGLE  NU# 

SIOHLANET  DIAM#10HD #10HNTERED  . .#10HR  1)  ...» 

ilOHNUMBER  1).  #10HR  2)  . . .#10HNUMBER  2),»10HR  3)  , . .» 
SIOHNUMBER  3).#10HMBER  1 . .»10HMBER  2 . ,#10HMBER  3 . .» 

SIOHETER  . . ./ 

DATA  CMPNM/11*10HRX  #11*10HRY  #11*10HRZ  #11* 

IIOHVX  #11*10hvY  #ll*10HVZ  »10H  #10HR 

SADIUS  1 #10HMU  OF  SUN  #10HRANGE  BIAS#10HA  BIAS  . #3*10HRADIUS  1 
» #10HMU  OF  SUN  #10HRANGE  BIAS # IOhRADIUS  1 »10H  »10HLATIT 

aUDE  1#10HMU-TARG  PL#10HR-RAT  BIAS#10HECG  BIAS  # 3*10HLATITUDE  1#10 
SHMU-TARG  PL»10HR-RAT  BIAS.IOHLATITUDE  1#10H  #10HLONG  1 

S »10H  »10HSTAR  ANG  1#10HINC  BIAS  #3*10HLONG  1 #10HA  B 

SIAS  #10HSTAR  ANG  1#10HL0NG  1 #3*10H  #10HSTAR  ANG  2# 

SlOH  # IOHRADIUS  2 #10HMU  OF  SUN  #10HRANGE  BIAS#10HECC  BIA 

SS  #10HSTAR  ANG  2#10HMU  OF  SUN  »3*i0H  #10HSTAR  ANG  3»10H 

$ flOHLATITUDE  2#10HMU-TARG  PL»10HR-RAT  BIAS#10HINC  BIAS  # 

SIOHSTAR  ANG  3»10HMU-TARG  PL#3*10h  »10HAPP  DIAM  #10H 

S #10HL0NG  2 #10H  #10HSTAR  ANG  1#10H  #10HA 

SPP  DIAM  #10HRANGE  8IAS#5*10H  » IOHRADIUS  3 #10H 

$ #10HSTAR  ANG  2#10H  #10HA  BIAS  #10HR-RAT  BIAS»5*10H 

S #10HLATITUOE  3»10H  »10HSTAR  ANG  3#10H  #10 

SHECC  BIAS  #10HSTAR  ANG  1»5*10H  »10HLONG  3 #10H 

$ #10HAPP  DIAM  #10H  #10HINC  BIAS  ,10HSTAR  ANG  2»10*10H 

S »10HSTAR  ANG  3#10*10H  #10HAPP  DIAM  / 

NAMELIST  /TRAJ/  XI # IC00R»LM0 » LDAY #LHR#LMIN»SECL#LYR# IMO# IDAY# IHR # 
SIMIN  » SECI # I YR  # ALNGTH  # TM » NTMC  # NBOD#  NB  # ACC  # DELTP  » INPR  # TRTMl # RDS  # PHI » 
STHET A # VEL  # GAMMA » S IGMA » ISP2  # lEPHEM  # MERCURY  # VENUS#  EARTH » MARS  # SATURN  # 
SURANUS#  NEPTUNE » PLUTO  # MOON#  JUPITER » IPRINT 
NAMELIST  /ERRAN/  XI » ICOOR# IAUG»LM0#LDAY»LHR#LMIN#SECL#LYR» IMO# 
SIDAY # IHR » IMIN #SECI » I YR# ALNGTH#TM# NTMC #NB0D» NB# ACC# DELTP# INPR#NENT» 
SNEV1#NEV2#NEV3#T1#T2#TPT2»T3#ICDT3#P#ISTMC#IDNF#  DNCN# IMNF#MNCN» 
SNST  # S AL  # SLAT  # SLON » lE IG  # IHYPl # TRTmI # RDS » PHI » THETA  # VEL  # GAMMA » 
$SIGMA»U1#U2#U3»V1#V2#V3»W1#W2»W3»FACP#FACV#ISP2#ICDQ3#SJGRES#SIGPR 
$0  # SIGALP » S IGBET  # FOP  # lEPHEM  # MERCURY  # VENUS  # EARTH » MARS » JUPITER » SATURN 
$ # URANUS#  NEPTUNE  # PLUTO  # MOON » IPRINT  # FOV » iSTMl » DTMAX » NDACC » ACCND 
$ # DELAXS  # DELECC » DEL ICL  # DELMUP » DELMUS 
NAMELIST  /SMLTN/  XI # ICOOR# IAUG#LM0#LDAY»LHR#LMIN#SECL#LYR# IMO# 

SIDA Y # IHR  # IM IN  # SEC I # I YR  # ALNGTH  # TM  # NTMC  # NBOD » NB  # ACC  # DELTP » INPR  # NENT  # 
SNEVl # NEV2 # NEV3 # T1 # T2 # TPT2 # T3 # ICDT3 # P # ISTMC # IDNF # DNCN # IMNF # MNCN # 
SNST  # SAL  # SLAT  # SLON  # lEIG  # IHYPl # TRTMl # RDS  # PHI # THETA  # VEL  # GAMMA  # 
$SIGMA#U1#U2#U3#V1#V2#V3#W1#W2#W3#FACP#FACV#ISP2#ICDQ3#SIGRES#SI6PR 
$0  # S IG ALP  # S IGBET  # FOP  # lEPHEM  # MERCURY  # VENUS  # EARTH  # MARS » JUP I TER  # SATURN 
S » URANUS  # NEPTUNE  # PLUTO  # MOON  # IPRINT  # FOV  # ISTMl # DTMAX  # NDACC  # ACCND 
S # DELAXS  # DELECC  # DEL ICL  # DELMUP  # DELMUS  # B I A # NEV4  # T4  # ADEVX  # DMUSB  # DMUPB  # 
STTIMl#TTIM2#UNMAC#SLB#DIB#IAMNF#AVARM#NB0Dl#NBl#ACCl#DAB#DEB 
S # ARES  # APRO  # AALP  # ABET 
IPGN=0 

RAD=57, 29577951303232 
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1000 

10 


lb 


16 

17 

18 

19 
31 

20 
30 


40 


READ(5»1000)  IPROfITR 
FORMAT (21 10) 

IPROB=IPRO 

WRITE ( 6 » 50  00)  I PRO » ( MDNM ( I TR » K ) » K= 1 » 2 ) 

60  TO  (10»100r200»200) » ITR 

IC00R=2 

IPRINT=0 

ALN6TH=149598500, 

TM=86400. 

NTMC=2 

NDIM=6 

ACC=l.E-6 

OELTP=3, 

iNPR=100 

TRTM1=0. 

ISP2=0 

NBOO=3 

IEPH£M=1 

IAUG=1 

READ(b»TRAJ) 

CALL  TIME ( DATEJ » LYR» LMO » LDAY  r LHR  » LMIN r SECL » 0 ) 

CALL  TIMECFNDT  » IYR» IMO»IDAY » IHR» IMlNrSECI » 0 ) 

FNTM=FNDT-DATEJ+TRTM1 

D=DATEJ+2415020. 

WRITE (6f 5016)  LMOi LDAY » LHR fLMIN>SECL»LYRfD 
D=FNDT+2415020. 

WRITE(6»b017)  IMOf lOAYf IHR* IMIN»SECIf lYRtO 

WRITE (6. 5018)  TRTMl 

OELTM-FNTM 

WRITE (6r5038)  lAUG 

WRITE(6»5013) 

IF(ICOOR.EQ.O)  GO  TO  16 
GO  TO  (17»18»19)  ICOOR 
WRITE(6»5031)  (XI ( I ) r 1=1 #NDIM) 

GO  TO  31 

WRITE (6 » 5032)  (XI ( I ) » 1=1 »NDIM) 

GO  TO  31 

WRITE (6 » 5033)  ( XI ( I ) » 1=1 »NOIM ) 

GO  TO  31 

WRITE(6r5034)  ROSrPHlf THETA fVEL» GAMMA » SIGMA 

IF(IC00R-3)  20f30»30 

IF(ICOOR-l)  50 » 40 » 40 

PHI=PHI/RAD 

THETA=THETA/RAO 

6AMMA=GAMMA/RAD 

SI6MA=SIGMA/RAD 

CALL  C0NVERT(RDS»PHI.THETA»VEL»6AMMA»SIGMArXl(l)  »XI(2)  fXI(3)  »XK4) 
$»XI(5) »XI(6) ) 

N0(l)=4 
D=DATEJ 
CALL  0RB{4»D) 

CALL  EPHEM(1»D»1) 

VUNIT=ALNGTH/TM 

XP(1)=XP(1)*ALNGTH 

XP(2)=XP(2)*ALNGTH 

XP(3)=XP(3)»ALNGTH 

XP(4)=XP(4)*VUNIT 

XP(5)=XP(5)*VUNIT 

XP{6)=XP(6)*VUNIT 

T=D/36525, 
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EPS=.4093197551-T* ( .277111E-4+T* ( ,28604007E-7-T».87751277e-8) ) 

CALL  TRANS(2»XIU)  »XI  (2) » XI  (3)  f XI  (4)  »XI  (5)  »XI  (6)  t XP ( 1)  t XP (2)  f 
4XP(3) »XP(4) »XP(5) »XP(6) lEPSflCOOR) 

WRITE(6»5013) 

WRITE(6r503l)  (XI { I ) » I=lf NOIM) 

50  WRITE(6»5002)  NTMC 
WRITE (6» 5021) 

DO  51  I=l»NBOD 
J=N8 ( I ) 

51  WRITE(6»5051)  PLANET(J) 

NTP=NB(3) 

WRITE(6f5022)  PLANET(NTP) 

WRITE (6 » 5023)  ALNGTH»TM 

trtmb=trtmi 

INCMT=0 

TIMINT=0, 

ISPH=0 

ICL=0 

IF(IEPHEM.NE.O)  60  TO  80 
WRITE(6»2006) 

20G6  FORMAT(/////1X»130(1H*)///55X*MEAN  ORBITAL  ELEMENTS*///3X*PLANET*1 

3)1X»*A*16X*E*16X*I*14X*N0DE*13X*0MEGA*12X*PERI*12X*DATE*//) 

DO  60  1=1 » 11 

60  DATE{I)=FNDT 
J=NB(2) 

DATE(J)=DATED 

DATE(11)=DATE(4) 

IF(MERCURY(1) .EQ.O)  GO  TO  61 
SEC=MERCURY<5) 

CALL  TIME (DATE (2) »MERCURY (6) ,mERCURY ( 1 ) »MERCURY (2) »MERCURY(3) » 
SMERCURY(4) »SEC»0) 

61  IF(VENUS(1)  .EQ.O)  GO  TO  62 

SEC=VENUS(5) 

CALL  TIME(DATE(3) .VENUS(6) . VENUS ( 1 ) .VENUS ( 2) .VENUS (3 ). VENUS ( 4 ). SEC 
S.O) 

62  IF (EARTH (1)  .EQ.O)  60  TO  63 

SEC=EARTH(5) 

CALL  TIME(DATE(4).EARTH(6) .EARTH(I) .EARTH(2) .EARTH(3) .EARTH(4) . 
SSEC.O) 

63  IF(MARS(1)  .EQ.O)  60  TO  64 

SEC=MARS(5) 

CALL  TIME(DATE(5) .MARS(6) .MARS(l) .MARS(2) .MARS(3) .MARS(4) .SEC.O) 

64  IF(JUPITER(1) .EQ.O)  GO  TO  65 
SEC=UUPITER(5) 

CALL  TIME(DATE(6) . JUPITER(6) . JUPITER(l) . JUPITER(2) . JUPITER(3) . 
4JUPITER(4) .SEC.O) 

65  IF ( SATURN (1)  .EQ.O)  GO  TO  66 

SEC=SATURN(5) 

CALL  T IME ( 0 ATE ( 7 ) . SATURN ( 6 ) .SATURN (1 ) . SATURN ( 2 ) > SATURN ( 3) . 
$SATURN(4) .SEC.O) 

66  1F(URANUS(1)  .EQ.O)  GO  TO  67 

SEC=URANUS(5) 

CALL  TIME(DATE(8)  .URANUS(6)  .URANUSd)  .URANUS(2)  »URANUS(3) » 
*URANUS(4) .SEC.O) 

67  IF(NEPTUNE(1) .EQ.O)  GO  TO  68 
SEC=NEPTUNE(5) 

CALL  TIME(DATE(9)  .NEPTUNE(6)  .NEPTUNE(l)  »NEPTUnE(2)  .NEPTUNEO)  . 
$NEPTUNE(4)fSEC.O) 

68  IF(PLUT0(1)  .EQ.O)  GO  TO  69 

SEC=PLUT0(5) 
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CALL  TIME(OATE(10)  »PLUT0<6)  rPLUTOd)  fPLUT0{2)  ,PLUT0{3)  rPLUTO(^J)  f 
SSECfO) 

69  IF(MOON(l)  .EQ.O)  GO  TO  74 

SEC=M00N(5) 

CALL  TIME (DATE ( 11 ) » MOON (6 ) » MOON ( 1 > » MOON (2 ) » MOON (3 ) » MOON (4 ) rSEC » 0 ) 
74  DO  70  I=1»NB0D 

J=NB ( I ) 

CALL  ORB(J»DATE(J) ) 

CALL  TIME  (OATE(J) »IYR»IMOf lDAY»IHR»IMINfSECI»l) 

60  TO  (70»71f7l»71f 7l»71f 71»71»71»71»72) I J 

71  IL=8*(J-2) 

WRITE{6»1006)PLANET(  J) »ELMNT( IL+6) »ELMNT(IL+4) »ELMNT( IL+D  » 

♦ ELMNT ( IL+2 ) » ELMNT ( lL+3 ) i ELMNT ( IL+7 ) t IMO » IDAY » IHR » IMIN » SEC I » I YR 

1006  FORMAT(lXAl0r2X6(El5,8rlX)/4l3»F7,3»l5) 

GO  TO  70 

72  WR I TE (6 f 1005 ) PLANET (11 ) rELMNT ( 78 ) » ELMNT ( 76) . ELMNT ( 73 ) t ELMNT ( 74 ) t 
*ELMNT(75) f IM0»IDAY»IHR»IMIN»SECI»IYR 

1005  FORMAT(lXAlOf2X5(£l5,8rlX) fl6X»4l3»F7.3f 15) 

70  CONTINUE 
WRITE(6rl008) 

1008  FORMAT(//lXf 130(1H*)//) 

GO  TO  90 

80  WRITE(6d007) 

1007  FORMAT (/8X*0RBITAL  ELEMENTS  WILL  BE  CALCULATED  AT  EVERY  TIME  INTER 
3-VAL*) 

90  IF(NTMC,NE.2)  go  TO  95 

IF(IPRINT.NEtO)  GO  TO  91 
WRITE (6» 5039) 

60  TO  92 

91  WRITE (6 f 5040) 

92  IF(lSP2.NE.O)  60  TO  93 

WRITE(6»5041) 

60  TO  94 

93  WRITE(6»5042) 

94  WRITE (6 » 5043)  ACC 

WRITE(6»5044)  DELTPfINPR 
IPG=0 

DO  96  1=1 r6 
RCA1(I)=0. 

RCA2(I)=0. 

96  RCA3(D=0. 

D O 97  1=1  r 3. 

RSOI1(I)=0. 

RSOI2(I)=0. 

RSOI3(I)=0. 

VSOI1(I)=0. 

VSOI2(I)=0. 

97  VSOI3(I)=0. 

15011=0 

I SO I 2=0 

15013=0 

ICA1=0 

ICA2=0 

ICA3=0 

BSI1=0. 

8512=0. 

BSI3=0. 

BDTSI1=0. 

BDTSI2=0. 

B0TSI3=0, 
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BDRSI1=0. 

BORSI2=0. 

8DRSI3=0. 

TSOI1=1.E50 

TS0I2=1.E50 

TS013=1.E50 

TCA1=1.E50 

TCA2=1.E50 

TCA3=1.E50 

95  GO  TO  (500»100r210»210) » ITR 

100  GO  TO  500 

200  IC00R=2 

IPRINT=1 

ALNGTH=149598500. 

TM=86400. 

NTMC=2 
ACC=1 .E-6 
DELTP=1.E50 
INPR=100000 
TRTMl-0. 

IAUG=1 

NENT=0 

NEV1=0 

NEV2=0 

NEV3=0 

NEV4=0 

ISTMC-1 

IDNF=0 

IMNF50 

NST=3 

IEIG=1 

IHYP1=2 

ISP2=0 

NBOD=3 

IEPHEM=1 

NDIM=6 

F0P=1,E-15 

F0V=l.E-25 

Ul=“. 061351 

Vl=. 237886 

Wl=-. 969355 

U2=. 028986 

V2=. 960388 

W2=-. 277141 

U3=«201963 

V3=. 831343 

W3=-. 517784 

DO  201  1=1 » 17 

DO  201  J=l»17 

201  P(I»J)=0. 

DO  202  1=1 f 3 
P(I»ir=lf 

202  P(l+3»I+3)=l.E-4 
SAL(l)=i«031 
SAL (2) =.05 

SAL (3) =,05 
SLAT(1)=35.384 
SLAT(2)=40.417 
SLAT (3)=-35. 311 
SL0N(1)=-116.833 


282 


SL0N(2)=“3.667 
SL0N(3)=149,136 
DO  203  1=1 »20 
ICDQ3(I)=1 

203  ICDT3(I)=3 
MNCN(l)=l.E-6 
MNCN(2)=1.E-12 
MNCN(3)=l.E-6 
MNCN(4)=1,E-12 
MNCN(5)=l,E-6 
MNCN(6)=1.E-12 
MNCN(7)=l,E-6 
MNCN(8)=1,E^12 
MNCN(9)=2,5E-9 
MNCN(10)=2.t}E-9 
MNCN(ll) =2.bE-9 
MNCN(12)=2.5E-9 
FACP=1. 

FACV=l.E-4 

DO  205  1=1 » 50 
205  TEVU)=0. 

SIGRES=4.E-8 
SIGPRO=.0001 
SIGALP=, 0043625 
SIGBET=. 0043625 
ISTM1=0 
DTMAX=e, 

NDACC=0 

ACCND=2,5E-5 

DELAXS=100. 

DELECC=l.E-5 

DELICL=2.7777777E-3/RAD 

DELMUS=1.E7 

DEL«UP=.l 

DMU5B=0. 

DMUPB=0. 

DAB=0, 

DEB=0 , 

DIB=0, 

TTIMl=l.E50 
TTIM2=1,E50 
DO  204  1=1 » 3 
DO  204  0=1 » 3 

204  UNMAC(I»J)=0. 

DO  208  I=l»9 

208  SLB(1)=0. 

DO  209  1=1 » 12 

209  BIA(I)=0. 

IAMNF=0 

NBODl=ll 

DO  218  I=lfll 
218  NB1(I)=I 

ACCl=l.E-6 
DO  222  1=1 f 17 

XI(I)=0. 

XI1(I)=0. 

Z1(I)=0. 

222  ADEVX(I)=0. 

DO  219  1=1 » 20 
ARES(I)=0. 
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APROU)=0, 

AALPU)=0. 

219  ABET(1)=0. 

I=ITR-2 

60  T0(206»207) »I 
20b  REaD(5»ERRAN) 

60  TO  15 

207  READ(5rSMLTN) 

60  TO  15 

210  60  TO  (211»213»212»215»213»216>214»216»214»216»217) »IAU6 

211  NDIM=6 

60  TO  220 

212  NDIM=8 

60  TO  220 

213  NDIM=9 

60  TO  220 

214  NDIM=11 
60  TO  220 

215  NDIM=12 
60  TO  220 

216  NDIM=15 
60  TO  220 

217  NDIM=17 

220  WRITE(6»5011) 

IF(NENT)  230»221»230 

221  TMN(1)=FNTM+1. 

WRITE(6r5035) 

NMN=1 

60  TO  247 

230  READ(5»1550)  { (SCHED( I » J) » J=1 »3) »MEAS( I ) » 1=1 »NENT) 

WRIT£(6»5003) 

WRITE (bf 5004)  ( (SCHED(I»J) »J=1»3) » MEAS ( I ) » 1=1 » NENT) 

DO  235  I=1»NENT 
AP<I)=SCHED(I»1) 

IF(AP(D)  234r234»235 

234  AP(I)=AP(I)+SCHED(I»3) 

235  CONTINUE 
ICNT=0 
K=0 

240  IR0W=1 

AMIN=AP(1) 

IF(NENT,EQ.l)  60  TO  246 
DO  245  I=2>NENT 
IF(AMIN,LE.AP(I) ) 60  TO  245 
AMIN=AP{I) 

IROW=I 

245  CONTINUE 

246  K=K+1 
TMN(K)=AMIN 

MCODE ( K ) =MEAS ( IROW ) 

AP(IROW)  = AMIN+SCHED(IR0W»3) 

IF(APdROW)  .LE.SCHED(IR0W?2)  ) 60  TO  240 

AP(1ROW)=1»E50 

ICNT=ICNT+1 

IF(ICNT.LT.NENT)  60  TO  240 
NMN=K 

DO  248  I=1»NMN 
IF(TMNd)  .6T.FNTM)  60  TO  249 
248  CONTINUE 
60  TO  247 
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249  NMN=i-l 

WRITE (6» 5047)  NMN 
247  iF(NEVl.EQ.O)  T1(1)=1,E50 
IF(NEV2.EQ.O)  T2(1)=1.E50 
IF(NEV3.EQ.O)  T3U)=1.E50 
IF(N£V4.EQ.O)  T4(1)=1,e50 
NEV=NEV1+NEV2+NEV3+NEV4 
IF(NEV.NE.O)  GO  TO  250 
TEV{1)=FNTM+1. 

WRITE (6 » 5036) 

GO  TO  33 

250  AP(1)=T1(1) 

11=1 

AP(2)=T2(1) 

12=1 

AP(3)=T3U) 

13=1 

AP(4)=T4(1) 

14=1 

ICNT=0 

K=0 

251  AMIN=APU) 

IROW=l 

DO  255  1=2 » 4 

IF(AMIN.LE.AP(I) ) GO  TO  255 
AMIN=AP(I) 

IR0W=1 

255  CONTINUE 
K=K+1 

TEVTK)=AMIN 

IEVNT{K)=IR0W 

60  TO  (256»257»258»259) » IROW 

256  11=11+1 
AP(1>=T1(I1) 

IFdl.LE.NEVl)  60  TO  251 
AP(1)=1.E50 
ICNT=ICNT+1 
GO  TO  260 

257  12=12+1 
AP(2)=T2(I2) 

IF(I2.LE.NEV2)  GOTO  251 

AP(2)=1.E50 

ICNT=ICNT+1 

60  TO  260 

258  13  = 13+1 
AP(3)=T3(I3) 

IF<I3,LE.NEV3)  GO  TO  251 
AP(3)=1.E50 
ICNT=ICNT+1 
GO  TO  260 

259  14=14+1 
AP(4)=T4(I4) 

IF(I4.LE,NEV4)  go  TO  251 

AP(4)=1.E50 

ICNT=ICNT+1 

260  IF(ICNT.LT.4)  GO  TO  251 
WRITE(6»5005) 

N1=0 

N2=0 

N3=0 
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262 

263 

264 

265 
261 


266 

267 

268 


23 

24 

25 

26 
33 

27 


34 

35 

36 

37 
43 

41 

42 


270 

271 
280 


N4=0 

DO  261  I=lrNEV 
J=IEVNT(I) 

60  TO  (262»263»264»265) » 

N1=N1+1 

WRITE(6r5006)  TEV(l) »EVNM(J) 

GO  TO  261 
N2=N2+1 

WRITE(6r5045)  TEV(I) »EVNM( J) »TPT2(N2) 

60  TO  261 
N3=N3+1 

WRITE  ( 6 » 5046 ) TEV  ( I ) » EVNM  ( J ) . ICDT3  ( N3 )' » ICDQ3  ( n3 ) 

GO  TO  261 

N4=N4+1 


WRITE(6r5006)  TEV(I)  rEVNM(vJ) 

CONTINUE 

NGE=0 


NPE=0 


NQE=0 

00  266  I=1»N£V 

IF(TEVd)  .GT.FNTM)  60  TO  267 

CONTINUE 

GO  TO  268 

NEV=I-1 

WRITE(6»5048)  NEV 
TEV(NEV+1)=FNTM+1. 

IPOL=0 

IIPOL=0 

IFCNEVl.EQ.O)  GO  TO  33 
WRITE(6r5007) 

60  T0(23r24»25)fIHYPl 
WRITE(6»5008) 

GO  TO  26 
WRITE(6»5009) 

GO  TO  26 
WRITE(6»5010) 

CONTINUE 

WRITE(6»5015) 

DO  27  I=lfNDIM 

WRITE (6 » 5014)  (P(I»J) » J=l» I) 

WRITE{6»5011) 

WRITE (6» 5028)  ISTMC 
IF(ISTMC.NE.O)  GO  TO  34 
WRITE(6r5027)  FACP»FACV 
IFUDNF)  36 » 35 » 36 
WRITE(6r5024) 

GO  TO  37 

WRITE (6» 5025)  DtsiCN 
IF  (IMNF)  41»43»41 

WR ITE ( 6 » 5029)  ( ( MNNAME ( I » J ) » J=1 » 3) » MNCN ( I ) » 1=1 » 12) 

GO  TO  42 

WRITE(6»5030) 

IF(NSTtEQ.O)  GO  TO  280 
WRITE(6»5019) 

WRITE(6r5020)  (I»SAL(I) rSLAT ( I ) »SLON ( I) » I=lf NST) 

DO  271  I=1»NST 
SAU(I)=SAL(I)/RAD 
SLON(i)=SLON(I)/RAD 
CALL  GHA 

0MEGAS6. 300387432 
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DO  281  I=lfNDIM 
DO  261  J=1»NDIM 

281  PG(I»J)=P(I»J) 

DO  282  I=l»6 

282  XG(I)=XKI) 

TG=TRTM1 

MCNTR=1 

DO  283  I=lfNDIM 

xBti)=xia) 
xF(ir=xi (I) 

DO  283  J=1»NDIM 

283  PB(I» J)=P(I^J) 

D=DATEJ-2415020# 

T=D/36525, 

EPS=.4093197551-T*(.277111E-4+T*(.28604007E-7-T*.87751277e-8) ) 
DO  284  1=1 » 2 
DO  284  J=lr6 

284  EM(I»D)=0, 

I=ITR-2 

GO  TO  (500»300)rl 
300  DO  310  I=1»NDIM 
310  EOEVX{I)=0. 

DO  320  I = l»NOIiy! 

XI1(I)=XI(I) 

ADEVXBa)=ADEVX(I) 

320  2 ( I ) =X I ( I ) +ADE VX ( I ) 

WRlT£(6f5049)  (AOEVX( I) » I=1»NDIM) 
l«RITE(6»5050) 

DO  330  I=1»NB0D1 
J=NBl(l) 

330  WRITE (6 » 5051)  PLANET (J) 

WRITE(6.5052)  ACCl 

WR I TE { 6 f 5053 ) ( ( MNNAME ( I » J ) ► J=1 » 3 ) » B I A ( I ) » I =1 » 12 ) 

WRITE (6. 5011) 

WRITE ( 6 f 5054 ) DMUSB »DMUPB» DAB » DEB » DIB 
WRITE (6» 5055) 

IF(FNTM.LE.TTIMl)  GO  TO  350 
IF(FNTM.LE.TTIM2)  go  to  340 

WRITE(6»5056)  TRTm1»TTIM1»  (UNMACdf  1)  » I=l»3) 

WRlT£<6r5056)  TTIM1»TTIM2» (UNMAC ( I i 2 ) » 1=1 » 3) 

WRIT£{6»5056)  TTlM2fFNTM  » (UNMAC( I i 3) » 1=1 » 3) 

60  TO  360 

340  WRIT£{6»5056)  TRTMl » TTIMl » (UNMAC ( I f 1 ) » I=l» 3) 

WRITE(6»5056)  TTIMl»FNTM  » (UNMAC{I»2) fl=lf3) 

GO  TO  360 

350  WRITE(6»5056)  TRTNl»FNTM  > (UNMAC ( I r 1) » I=l» 3) 

360  WRITE (6 » 5057)  (SLBa) » I=l»9) 

SLB(2)=SUB(2)/RAD 

SLB(3)=SLB(3)/RAD 

SLB(5)=SLB(5)/RAD 

SLB(6)=SLB(6)/RAD 

SLB(8)=SLB{a)/RAD 

SL8(9)=SLB(9)/RAD 

IF(IAMNF.GT.O)  GO  TO  370 

WRITE(6»5058) 

60  TO  380 

370  WRITE(6»5059)  ( (MNNAME(I»J) » J=l» 3) » AVARM( I > f I=l» 12) 

380  CONTINUE 
500  RETURN 

1550  FORMAT(3F10.0  *110) 
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5000 

5016 

5017 

5018 

5002 

5003 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5013 

5014 

5015 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 


FORMAT (1H1»4X* I NPUT  DATA  FOR  PROBLEM....* 

$I5////7X*M0DE  TO  BE  EXECUTED.  . .*2A10) 

FORMAT (/8X*LAUNCH  DATE*  10X»4I3»F7.3» I5.5X*JULIAN  DATE  ...  * 
SF16.8) 

FORMAT (/8X*F INAL  DATE*11X.4I3»F7,3» I5»5X*JULIAN  DATE  . . . *F16.8) 
F0RMAT(/8X*INITIAL  TRAJECTORY  TIME  =*F10.4) 

F0RMAT(/8X*N0MINAL  TRAJECTORY  CODE.  . .*12) 

FORMAT ( /8X*MEASUREMENT  SCHEDULE* ) 

FORMAT{10X*FROM*Fa.2*  DAYS  T0*F8.2*  DAYS.  EVERY*F8.2*  DAYS.  MEASUR 
*E  CODE* 15) 

FORMAT (/8X*EVENT  SCHEDULE*/10X*T|ME  OF  EVENT*10X*EVENT*10X 
SEVENT  INFORMATION*) 

FORMAT (13X»F8, 3. lOX.AlO) 

FORMAT (/10X*FOR  EIGENVALUE  EVENTS.  THE  SIGMA  LEVEL  OF  THE  HYPERELL 
$ IPSO ID  IS*) 

FORMAT (1H+.73X.*K  = 1*) 

FORMAT (lH+.73Xf*K  = 3*) 

F0RMAT(1H+.73X.*K  =1  AND  K = 3*) 

FORMAT (IHl) 

F0RMAT(/8X*INITIAL  STATE  VECTOR*) 

FORMAT(10X.6E20.8) 

FORMAT(/8X*INITIAL  COVARIANCE  MATRIX*) 

FORMAT (/8X*STATION  LOCATION  CONSTANTS*) 

F0RMATa0X*STATI0N  NO.  *11 . 5X*ALTITUDE  = *E15.8.5X*LATITUdE  = * 


$E15.8.5X.*L0NGITUDE  = *E15.8) 

FORMAT (/8X*N0MINAL  TRAJECTORY  INFORMaTION*//10X*BODIES  TO  BE  CONSI 
SDERED*) 

format{/iox*target  planet.  . ,*A10) 


FORMAT (/8X*UNITS*/10X  E15.8*/A.U.*20X.E15.8*>»0AY*) 

FORMAT (/8X*DYNAM1C  NOISE  IS  ZERO*) 

FORMAT(/8X*DYNAMIC  NOISE  CONSTANTS*/10X6E20.12) 

FORMAT (10X*NUMERICAL  DIFFERENCING  INFORMATION*/10X*POSITION  FACTOR 
$ *E15.8/10X*VELOCITY  FACTOR  *El5,8) 

FORMAT (/8X*STATE  TRANSITION  MATRIX  CODE  . * .*  12) 

FORMAT (/8X*MEASUREMENT  NOISE  IS  CONSTANT*12(/10X.3A10.E20.12) ) 
FORMAT (/8X*MEASUREMENT  NOISE  IS  TO  BE  CALCULATED*) 

FORMAT {10X*HELIOCENTRIC  ECLIPTIC  COORDINATES*/ (10XE20. 8) ) 

FORMAT (10X*GEOCENTRIC  EQUATORIAL  COOROINATES*/(lOXE20.8) ) 

FORMAT (10X*GEOCENTRIC  ECLIPTIC  COORDINATES  */(10XE20.8) ) 

FORMAT {23X*RDS*17X*PHI*16X*THETA*16X*VEL*16X*GAMMA*15X*SIGMA*/ 
$10X6E20.8) 

FORMAT (/8X*N0  MEASUREMENTS*) 

FORMAT (/8X*N0  EVENTS*) 

FORMAT (/8X*EPHEMERIS  IS  TO  BE  UPDATED  EVERY*F10.3*DAYS*) 
F0RMAT(/8X*AUGMENTATI0N  CODE.  . . . .*13) 

FORMAT (/8X*0UTPUT  FROM  VIRTUAL  MASS  PROGRAM  WILL  BE  PRINTED  AS  USU 


$AL*) 

FORMAT (/8X  *OUTPUT  FROM  VIRTUAL  MASS  PROGRAM  WILL  BE  SUPPRESSED  AT 
$ INITIAL  AND  FINAL  STEPS*) 

FORMAT (/8X*VIRTUAL  MASS  PROGRAM  WILL  INTEGRATE  UNTIL  REACHING  A NO 
SRMAL  STOPPING  CONDITION*) 

FORMAT (/8X*VIRTUAL  MASS  PROGRAM  WILL  STOP  INTEGRATING  UPON  REACHIN 
$G  SPHERE  OF  INFLUENCE  OF  TARGET  PLANET*) 

FORMAT (/ax*ACCURACY  FIGURE.  . . . .*E12.5) 

F0RMAT(/8X*PRIN.T  INTERVALS*/10XE12,5.*  DAYS*/l0XI10*  INCREMENTS*) 
FORMAT{13X.F8.3>10X.A10.10X*PREDICTING  TO  TImE*F7.2) 
FORMAT(13X.F8.3.10X.a10.10X*6U1DANCE  P0LICY*I5*.  EXECUTION  ERROR  C 
$0DE*I5) 

FORMAT (/8X*N0TE“-0NLY  THE  FIRST  *15*  MEASUREMENTS  WILL  BE  INCLUDED 
$ IN  THE  ANALYSIS  SINCE  THE  OTHERS  DO  NOT  OCCUR  UnTIL  AFTER  THE  FIN 


SAL  TIME*) 

5048  FORMAT (/8X*N0TE— ONLY  THE  FIRST  *15*  EVENTS  WILL  BE  INCLUDED  IN  TH 
SE  analysis  since  the  others  do  not  occur  until  after  the  final  TIM 
SE* ) 

5049  FORMAT (/8X*ACTUAL  DEVIATION  OF  STATE  VECTOR  AT  INITIAL  TIME*/ 
$(IOX»E20.8)  ) 

5050  FORMAT (/8X*ACTUAL  TRAJECTORY  INF0RMATI0N*//10X*B0DIES  TO  BE  CONSID 
SEREO*) 

5051  FORMAT (12X»A10) 

5052  FORMAT (/8X*ACCURACY  FIGURE  FOR  ACTUAL  TRAJECTORY,  .*£12.5) 

5053  FORMAT (/8X*ACTUAL  MEASUREMENT  BlASES*12(/10X3Al0»E20. 12) ) 

5054  FORMAT (/8X*DYNAMIC  CONSTANT  BIASES  TO  BE  USED  IN  THE  DETERMINATION 
$ OF  THE  ACTUAL  TRAJECTORY*/10X*GRAVITATIONAL  CONSTANT  OF  SUN.  . . 
$.  . . .*E20.13/10X*GRAVITATI0NAL  CONSTANT  OF  TARGET  PLANET.  .*£20. 


S13/10X*SEMI-MAJOR  axis  of  target  planet  . . . . .*E20.13/ 
S 10X*ECCENTRICITY  OF  TARGET  PLANET,  , . . , . .*£20.13/ 
$ 10X*INCLINATION  OF  TARGET  PLANET  ......  .*E20.13) 


5055  FORMAT (/8X*ACTUAL  UNMODELLED  ACCELERATION  TO  BE  USED  TO  CALCULATE 
STHE  ACTUAL  DYNAMIC  NOISE  BY  THE  FOLLOWING  SCHEDULE*//69X*X*24X*Y* 
S24X*Z*) 

5056  FORMAT(10X*FROM*F8.3*  DAYS  THROUGH  *F8,3*  DAYS.  . ,*3E25.13) 

5057  FORMAT (/8X*BIASES  IN  LOCATIONS  OF  ROTATING  STaTI0NS*//22X*ALTITUDE 
S*17X*LATITUDE*17X*L0nGITUdE*/10X*1*3E25.13/10X*2*3E25,13/10X*3* 
S3E25.13) 

5058  FORMAT (/8X*THE  UNCERTAINTIES  IN  THE  ACTUAL  MEASUREMENT  NOISE  ARE  A 
SSSUMED  TO  BE*/8X*THE  SAME  AS  THE  UNCERTAINTIES  IN  THE  MEASUREMENT 
SNOISE  OF  THE  MOST  RECENT  NOMINAL*) 

5059  FORMAT (/8X*THE  ACTUAL  MEASUREMENT  NOISE  WILL  BE  CALCULATED  FROM  TH 
*E  FOLLOWING  CCNSTANTS*12(/10X3AlO»E20.13) ) 

END 
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subroutine  DYNO(ICODE) 

COMMON/CONST/OMEGA  t EPS » NST  f SAL (3 ) rSLAT { 3 ) » SLON<  3) » DNCN ( 3 ) » MNCN ( 13) 
C0MM0N/MISC/ACCrIDNF»  IG00R»ITR»  lMNFf  FAGP»FAeV»  ISP2»BlA  (i2)  riPGN 
G0MM0N/SiMGNT/DMUSBrDMUPB»DAB»DEB»DIBfTTlMl»TTIM2»UNMAG(3»3) » 
4SLB(9)  rAVARMU2)  »IAMNF»ARES(20)  »APRO(20) » AALP(20)  rABET(20) 

GOMMON  /SIM1/XIK17)  »XF1  ( 17)  » ADEVX  ( 17)  »EDEVX(17)  »W  (17)  rZ  (17) » 
$AN0IS(17) »RES(4) »EY(4) »AY(4) ,AR(4*4) .ZI(17) »ADEVXB(17) 
G0MM0N/STM/Pa7»17)  »PSI(17rl7)  rQ(17»l7)  »H(4f  17)  »R(4»4)  »AK(17»4) 
$fPB(17»17) »PSIP(17»17) rHPHR(4»4) 

G0MM0N/STVEG/XI(17) »XF(17) »NDIM» IAUG»XB(17) 

GOMMON/TIM  /DATEJ  r TRTMl » DELTMf FNTM » UNI VT » TRTMB 
GOMMON/VM/NBOD»NB(ll) »NTP. ALNGtH,tM»DLETP» INPRi IPROB»RG (6) »DGt 
SRSI(3) »VSI(3) »DS1»ISPH»RVS(6) »VMU»B»BDT*BDRrDELTH»TIMINT»INGMT» 

$ lEPHEM » IGLf IPR INT » RE ( 6 ) » RTP ( 6 ) » IGL2 
IF(IGODE.NE.O)  GO  TO  30 
DO  5 I=lfNDIM 
DO  5 J=1»NDIM 

5 Q(IfU)=0. 

IF(IDNF)  20»20f6 

6 D2=DELTM*TM*DELTM*TM 
DO  10  1=1 f 3 

Q ( I » I ) =DNGN ( 1 ) *D2*D2* . 25 
10  Q ( 1+3 » 1+3 ) =ONGN  C I )*D2 

20  RETURN 

30  DO  31  I=1»ND1M 

31  W(I)=0. 

T1=TRTM1 
T2=TRTM1+DELTM 
IF(T1,6T.TTIM1)  GO  TO  70 
IF(T2,GT.TTIM1)  GO  TO  50 
1=1 

IG=1 

DT=DELTM*TM 
40  D2=DT*DT 

W ( 1 ) = . 5*UNM AG ( 1 » I ) *D2+W ( 1 ) 

W(2)=.5*UNMAG{2»1)*D2+W(2) 

W ( 3 ) = . 5*UNM AG { 3 » I ) *D2+W ( 3 ) 

W (4) =UNMAG ( 1 » I ) *DT+W ( 4 ) 

W ( 5) =UNMAG ( 2» I ) ♦DT+W (5) 

W (6) =UNMAG ( 3» I ) *DT+W (6) 

GO  TO  (20»51»61»62»81)»  IG 

50  lF(T2,6T.TTiM2)  GO  TO  60 
DT=(T2-TT1M1)*TM 

1=2 

IG=2 

60  TO  40 

51  DT=(TTIM1-T1)*TM 
1=1 

IG=1 

GO  TO  40 

60  DT=(T2-TTIM2)*TM 
1=3 

IG=3 

GO  TO  40 

61  DT=(TTIM2-TTIM1)*TM 
1=2 

irz4 

60  TO  40 

62  DT={TTIM1-T1)*TM 
1=1 
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IC=1 

60  TO  40 

IF(T1,6T.TTIM2)  60  TO  90 
IF(T2.6T.TTIM2)  60  TO  80 
DT=DELTM*TM 
1=2 
IC=1 

60  TO  40 

80  DT=(T2-TTIM2)*TM 
1=3 

IC=5 

60  TO  40 

81  DT=(TT1M2-T1)*TM 
1=2 

1C=1 

60  TO  40 

90  DT=DELTM*TM 

1=3 
1C=1 

60  TO  40 
END 
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SUBROUTINE  EIOENtRI »TEVN) 


THIS  SUBROUTINE  IS  RESPONSIBLE  FOR  THE  LOGIC  USED  IN  AN  EIGEN' 
VECTOR  EVENT, 

EIGEN  USES  THE  FOLLOWING  SUBROUTINES 
NTM 
PSIM 
DYNO 
NAVM 
JACOBI 
HYELS 


C0MM0N/C0NST2/U1 » U2 , U3 » VI » V2 » V3 » W1 » W2 » W3 » FOP , pOV 
COMMON/E VENT/NEV»  TEV (50 ) f lEVNT ( 50 ) » IHYPl » lEIG » TPT2 ( 20 ) » 

$ ICDT3 ( 20 ) r NPE  r NGE » IPOL » I IPOL  f ICOQ3 ( 20 ) f SIGRES  » SIGPRO  » S IGALP  » SIGBET 
S » NEVl rNEV2 » NEV3 »NEV4 , NQE 

C0MM0N/MISC/ACC»IDNF»IC00R»ITR»lMNF»FACP»FACV»ISP2»BIAa2) ,IPGN 
COMMON  /NAME/MDNM(4,2) fEVNM(4) *MNNAME(12»3) »CMPNM(llf 17) 
C0MM0N/STM/PU7»17)  »PSI(l7»17)  »Q(17»17)  fH{4»17)  »R(4»4) » AK(17»4) 
$»PB(17»17) »PSIP(17f 17) »HPHR(4»4) 

COMMON/STVEC/XI ( 17 ) , XF ( 17 ) * ND IM » I AUG  rXB ( 17 ) 

COMMON/TIM  /O ATE J » TRTMl » DELTM rFNTM » UNIVT t TRTMB 
COMMON/TRAJCO/NTMC » ISTMCf ISTMl » DTMAX  » NDACC  r ACCND 
COMMON/TRJ/ISOI1» IS0I2» ISOI3, ICA1» ICA2» ICA3»RCA1 (6) , RCA2(6) » 
$RCA3(6) ,RS0I1(3) »RS0I2(3) *RS0I3(3) »VS0I1(3) »VSOI2(3) »VS013(3) » 
a-TCAl»TCA2rTCA3,TS0IlfTS0I2fTS0l3»BSIl»BSI2»BSl3»BDTSIlfBDTSI2» 
$BDTSI3  f BDRS 1 1 » BDRSI2 , BORS 13 

COMMON/VM/NBOD » NB ( 1 1 ) » NTP  t ALNGTH , TM » DELTPf INPR » IPROB » RC ( 6 ) » DC » 
$RSI(3) »VSI(3) »DSI»ISPH»RVS(6) , VMU»B»BDT»BDRf DELTH»TIMINT» INCMT, 
$IEPHEM»ICL»IPRINT,RE(6) »RTP(6) *ICL2 
DIMENSION  PEIG(3r3) ,EGVL(3) »EGVCT(3»3) »RI (6) ,rF(6) 

DIMENSION  VEIG(9) »RH0(17»17) 

MAX=60 

deltm=tevn-trtmi 

CALL  NTM(RI»RF*NTMC»1) 

13  DO  5 1=1 » 6 

5 XF(I)=RF{I) 

1PGN=IP6N+1 

WRITE(6»3000)  (MDNM(ITR» I) »I=1»2) »TEVN» IPROB# IPGN 
LINES=9 

WRITE(6»3006)  TEVN 

WR ITE ( 6 # 3001 ) ( CMPNM ( I AUG » I ) » XF ( I ) » 1=1 # ND IM ) 

LINES=LINES+NDIM+1 
CALL  PSIM(RI»RF»ISTMC) 

WRITE  (6#3002)  TEVN»TRTMl 
HNES=LINES+5 
DO  6 I=lfNOIM 
if(lines,lt,max-4)  go  to  1 
IP6N=IPGN+1 

WRITE(6#3000)  (MDNM( ITR» I ) » I=l»2) , TEVN# IPROB, IPGN 
LINES=9 

1 IF  (NDIM.EQ.S)  GO  TO  4 

WRITE  (6#3013)  I 
LINES=LINES+1 

4 WRITE  (6#3014)  (PSI ( I # J) # J=1#NDIM) 

6 LINES=LINES+(NDlM-l)/6+l 
CALL  DYNO(O) 
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IF  (LINES.lt, WAX-8)  60  TO  2 
IP6N=IPeN+l 

WRITE (6 * 3000 ) (MDNM ( ITR » I ) » 1=1 f 2) » TEVN» IPROB » IP6N 
LINES=9 

2 WRITE  (6»3003) 

WRITE  (6»3014)  (Q(I»1)»I=1»NDIM) 

LINES=LINES+8 
CALL  NAVM(1*1) 

IF(LlNES.LT,MAX-9)  60  TO  3 
IP6N=IP6N+1 

WRITE (6  f 30  00 ) ( MDNM ( I TR » I ) » 1=1 » 2 ) » TEVN » IPROB » IP6N 
HNES=9 

3 WRITE (6.3004)  TEVN»TRTM1 
HNES=HNES+5 

DO  7 I=1»NDIM 

IF (L1NES.lt.  max-4)  60  TO  8 
1P6N=IP6N+1 

WRITE(6»3000)  (MDNMdTR. I)  .1=1.2)  »TEVN»IPR08»IP6N 
LINES=9 

8 IF  (NDIM,EQ.6)  60  TO  9 
WRITE  (6.3013)1 
HNES=LINES+1 

9 WRITE  (6.3014)  (P(I.J) .J=1.NDIM) 

7 LINES=LINES+ ( NOlM-1 ) /6+1 

IC0DE=0 
00  10  1=1*3 
DO  10  0=1.3 

10  PEI6(IrJ)=P(I.J) 

K=0 

DO- 98  0=1.3 
DO  98  1=1.3 
K=K+1 

98  VET6(K)=P(I.0) 

call  OACOei ( VEie.E6VL»EGVCT.3.F0P) 

IF(LINES.LT.MAX-16)  60  TO  11 
IP6N=IP6N+1 

WRITE(6.3000)  (MONM(ITR.I) .1=1.2) .TEVN* IPROB. IPGN 
LINES=9 

11  WRITE  (6.1000)  (I.E6VL(I).I=1.3) 

WR ITE ( 6 . 100 1 ) ( I . ( E6VCT ( I . 0 ) . 0=1 . 3 ) . 1=1 . 3 ) 

LINES=LINES+16 
15  IF(lHYPl-2)  20.30.20 

20  IF (LINES, LT. MAX-16)  60  TO  21 

1PGN=IP6N+1 

WRITE(6.3000)  (MONM(ITR.I) .1=1.2) .TEVN. IPROB. IPGN 
LINES=9 

21  CALL  HYELSd.PEIG.S) 

LINES=LINES+16 

30  IF(IHYPl-l)  50.50.40 

40  IF ( LINES. LT. MAX-16)  60  TO  41 

IPGN=IPGN+1 

WRITE (6.3000 ) (MDNM ( ITR. 1 ) . 1=1 .2) . TEVN. IPROB . IPGN 
LINES=9 

41  CALL  HYELS(3.PEIG.3) 

LINES=LINES+16 

50  IF ( ICODE ) 55 .55.80 

55  IFdEIG)  80.80.60 

60  DO  70  1=1.3 

DO  70  0=1.3 

70  PEI6d.0)=P(I+3.J+3) 
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K=0 

DO  99  vJ=4»6 
DO  99  I=4»6^  .. 

K=K+1  " 

99  VEie(K)=P(I»0) 

CALL  JAC0BI{VEie»E6VL»E6VCT»3.F0V) 

IFtLiNES.LT. MAX-16)  GO  TO  71 
IPGN=IP6N+1 

WRITE(6»3000)  {MDNM(ITR» I ) » 1=1 »2) »TEVN» IPROB» iPGN 
LINES=9 

71  WRITE  (6f2000)  (I»EGVL  (I)»I=1»3) 

W R I TE  ( 6 » 2 0 0 1 ) { I » ( EG V C T ( I » J ) f J=  1 f 3 ) » I = l'»  3 ) 

LINES=LINES+16 
ICODE=l 
GO  TO  15 

80  TRTMIsTEVN 

Da  90  I=1»NDIM 
90  Xia)=XF(I) 

DO  100  I=1»NDIM 
DO  100  J=IrNDIM 

RH0(I»J)=P(I»J)/SQRT(P(I»I)*P(J»J) ) 

100  RH0(0»I)=RH0(I» J) 

IF(LINES.LT, MAX-9)  GOTO  101 
1PGN=IPGN+1 

WRITE ( 6 » 3000 ) ( MDNM ( ITR » I ) » 1 = 1 » 2 ) » TEVN  t IPROB » IPGN 
LINES=9 

101  WRITE(6.3007)  TEVN 

3007  FORMAT (///8X*C0RRELATI0N  COEFFICIENT  MATRIX  AT  TIME  OF  EIGENVECTOR 
$ EVENT  — *F8,3*  DAYS*/) 

LlNES=LINES+5 
DO  104  I=1»NDIM 
IF (L1NES.lt, MAX-4)  GO  TO  102 
IPGN=IPGN+1 

WRITE(6f3000)  (MDNM(ITR,I)»I  = 1»2)»  TEVN  t IPROB  t IPGN 
LINES=9 

102  IF(NDIM,EQ.6)  GO  TO  103 
WRITE (6 f 3013)  I 
LINES=LINES+1 

103  WRITE(6»3014)  {RHOd»  J) » J=lrNDlM) 

104  LINES=LINES+ (NOIM-l ) /6+1 

1000  FORMAT (///20X*P0SITI0N  EIGENVALUES*/3{22X» 12fE25,13/) ) 

1001  FORMAT {///20X*POSITION  EIGENVECT0RS*/3(22XI2r3E25.13/) ) 

2000  FORMAT (///20X*VEL0CITY  EI6ENVALUES*/3(22X»I2fE25,13/) ) 

2001  FORMAT  {///20X*VELOCITY  EISENVECT0RS*/3(22XI2r3E25.13/) ) 

3000  FORMAT{1H1//8X2A10*—  EIGENVECTOR  EVENT  AT  TRAJECTORY  TIME  *F12. 
$3*  DAYS*/90X*PROBLEM,  .♦I10.5X*PA6E.  .*I8///lX»130(lH*)//) 

3001  FORMAT(10XA10,E20,13) 

3002  F0RMAT{///8X*STATE  TRANSITION  MATRIX  — PSI (*F12,3*»*F12.3*)*/) 

3003  FORMAT(///aX*DIAGONAL  OF  DYNAMIC  NOISE  MATRIX*/) 

3004  FORMAT (///8X*C0VARIANCE  MATRIX  AT  TIME  OF  EIGENVECTOR  EVENT  — P 
$(*F12.3*,*F12.3*)*/) 

3006  FORMAT (8X*STATE  VECTOR  AT  TIME  *F12.3*  DAYS*/) 

3013  FORMAT  (10X*R0W*I3) 

3014  FORMAT (16X»6E17, 8) 

RETURN 

END 
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SUBROUTINE  £IGSIM(RI»TEVN»RI1) 

C0MM0N/C0NST/0ME6A»EPS»NSTfSAL(3)  rSLATO)  fSL0N(3)  »DNCN(3)  »MNCNU2) 
C0MM0N/C0NST2/U1 » U2 » U3 » VI » V2 » V3 » W1 » W2 » W3 1 FOP » FOV 
COMMON/EVENT/NEV»TEV(50) » IEVNT(50) » IHYPlf IEI6»TPT2(20) » 

$ICDT3(20) »NPErN6E»IPOL»IIPOLfICDQ3(20)fSieRES»Sl6PRO»SIGALP»SIGBET 
S » NEVi » NEV2 » NEV3 » NEV4 f NQE 

COMMON/MISC/ ACC » IDNF  t ICOOR » I TR » IMNF » FACP » FAC V » ISP2  »B I A ( 12 ) » IPGN 
COMMON  /NAME/MDNM { 4 » 2 ) » EVNM ( 4 ) . MNNAME ( 12 » 3 ) » CMPNM ( 1 1 » 17 ) 

COMMON  /SIM1/XIK17)  f XFl ( 17 ) , ADEVX ( 17)  »EDEVX(17)  »W(17)  »Z(17) » 
$AN0IS(17) »RES(4) »EY(4) »AY(4) ,AR(4f4) »ZI (17) »ADEVXB(17) 

COMMON  /SIM2/NB1(11) ►ACClrNBODl 

C0MM0N/STm/P(17»17) »PSIU7»17) »Q(17»l7) »H(4»17) »R(4»4) »AK(17»4) 
$fPB(17»17) »PSIP(17rl7) »HPHR(4»4) 

COMMON/ST VEC/XI ( 17 ) »XF( 17) »NDIM* IAUG»XB{17) 

COMMON/T IM  /DATE J » TRTMl » DELTM »FNTM » UNI VT » TRTMB 
COMMON/TRAJCD/NTMC » ISTMC» ISTMlrDTMAXfNDACC » ACCND 
C0MM0N/TRJ/IS0Il»IS0I2»lS0I3»ICAlrICA2»ICA3fRCAl(6) »RCA2(6) » 
iRCA3(6) fRS0Il(3)fRS0I2(3) fRS0l3(3) »VS0Il(3) »V50I2(3) »VS0I3(3)» 
STCAl»TCA2>TCA3»TS0IlfTS0I2»TS0l3fBSll»BSI2»BSI3»BDTSIl»BDTSI2» 
iBDTS 13 » BDRS 1 1 r BDRS 12  * BDRS 1 3 

COMMON/ VM/NBOD  f NB ( 11) » NTP  t ALNGTH  » TM » DELTP , INPR » IPROB » RC ( 6 ) » DC » 
iRSI(3) rVSI(3) rDSI»ISPH»RVS(6) »VMUfB»BDT»BDR»DELTH»TIMINTrINCMT» 
SIEPHEM»ICL»IPRINTfRE(6) »RTP(6) »ICL2 
DIMENSION  RI(6) »RF(6) »RI1 (6) » RFl (6) fRI2(6) ^RFZteif DUM(17) 

DIMENSION  PEIG(3»3) »EGVL(3) rE6VCT(3»3) 

DIMENSION  VEIG(9) »RH0(17rl7) 

MAX=60 

DELTM=TEVN-TRTM1 
CALL  NTM(RI»RFfNTMC»l) 

DO  10  I=l»6 

10  XF(I)=RF(1) 

IF(NQE.NE.O)  60  TO  20 
DO  11  I=1»ND1M 

11  XF1(I)=XF(I) 

DO  12  I=l»6 

12  RF1(I)=RF(I) 

GO  TO  30 

20  CALL  NTM(RI1»RF1»NTMC»2) 

DO  21  1=1 » 6 

21  XF1(I)=RF1(I) 

30  CALL  PSIM(RIl»RFlf ISTMC) 

CALL  DYNO(O) 

CALL  NAVMdrl) 

DO  50  I=1»NDIM 
DO  50  U=I»NDIM 

RHO(I#J)=P(I»J)/SQRT(P(I»I)*P(J» j) ) 

50  RH0(U»I)=RH0(I»J) 

DO  39  1=1,6 

39  RI2(I)=XI1(I)+ADEVX(I) 

CALL  NTM(RI2,RF2,NTMC»3) 

DO  40  1=1,6 

40  Z(I)=RF2(I) 

IPGN=IPGN+1 

WRITE(6,3000)  {MDNM(ITR,K) ,K=1^2) ,TEVN, IPROB, IPGN 

LINES=9 

WRITE (6, 3006) 

LINES=LINES+3 

WRITE(6,3001)  { CMPNM ( I AUG , I ) , XF ( I ) , XF 1 ( I ) , Z ( I ) , 1=1 , ND I M ) 

LINES=LINES+NDIM 

WRITE(6,3002)  TEVN»TRTMl 
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LINES=LINES+5 
00  33  I=1»N0IW 
IF(HNES.LT.MAX-4)  GO  TO  31 
IPGN=IPGN+1 

WRITE(6»3000)  (MDNM(ITR»K) »K=1»2) r TEVN»IPROB» IPGN 
LINES=9 

31  IF(NDIM,EQ.6)  GO  TO  32 

WRITE(6»3013)  I 
LINES=LINES+1 

32  WRITE(6*3014)  (PSI ( I » J) » J=1»NDIM) 

33  LINES=UINES+(NDIM-l)/6+l 

IF ( LINES. LT.MAX-a)  GO  TO  34 
IP6N=IPGN+1 

WRITE(6.3000)  (MDNM(ITR»K) .K=l»2) ,TEVN» IPROBr IPGN 
LINES=:9 

34  WRITE (6 » 3003) 

WRITE(6r3014)  (Q ( I » I ) » 1=1 .NDIM) 

LINES=LINES+8 

IF ( LINES. LT, MAX-9)  GOTO  35 
IP6N=IPGN+1 

WRIT£(6.3000)  (MDNMdTR.K) . K=l»2)  rTEVNf  IPROBdPGN 

LINES=9 

35  WRITE(6r3004)  TEVN»TRTMl 

LINES=LINES+5 

00  38  I=1.N0IM 
IF(LINES.LT. MAX-4)  GO  TO  36 
IPGN=IPGN+1 

WRITE (6 .3000 ) ( MONM ( ITR . K) r K=1 » 2 ) , TEVN. IPROB » IPGN 
LINES=9 

36  IF(NDIM.EQ.6)  GO  TO  37 
WRITE(6r3013)  I 
LINES=LINES+1 

37  WRITE(6.3014)  (P(I»vl) . J=1»N0IM) 

38  LINES=LINES+(NDIM-1)/6+1 
CALL  DYNO(l) 

DO  43  1=1.6 

43  ADEVX{I)=2(I)+W(I)-XF1(I) 

DO  45  I=1.NDIM 
DUM(I)=0. 

DO  45  J=1.NDIM 

45  DUM ( I ) =DUM ( I ) +PSI ( I . J ) +EDEVX ( J) 

DO  46  1=1.NDIM 

46  EDEVX(I)=OUM(I) 

ICODE=0 

DO  60  1=1.3 
DO  60  J=1.3 

60  PEI6{I»J)=P(I»J) 

K=0 

DO  61  J=1.3 
DO  61  1=1.3 
K=K+1 

61  VEIG(K)=P(I.J) 

CALL  JACOBI (VEIG.EGVL.E6VCT.3.F0P) 

IF(LINES.LT. MAX-16)  60  TO  62 
IPGN=IPGN+1 

WRITE(6.3000)  (MDNM( ITR.K) .K=l .2) »TEVN. IPROB.  IPGN 
LINES=9 

62  WRITE  (6.1000)  (l.EGVL(I) .1=1.3) 

WRITE (6. 1001)  (I. (EGVCT(I.J) . J=1.3) . 1=1.3) 
LINE-=LINES+16 
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65  IF(IHYPl-2)  70 » 80 » 70 

70  IF (LINES »LT, MAX-16)  GO  TO  71 

IPGN=IP6N+1 

WRITE(6»3000)  (MDNM(lTR»K) »K=1 »2) »TEVN» IPROB» IPGN 
LINES=9 

71  CALL  HYELS(l»PEIGf3) 

LINES=LINES+16 

80  IF(IHYPl-l)  100»100»90 

90  IF(LINES.LT,MAX-16)  GO  TO  91 

IPGN=1PGN+1 

WRITE(6»3000)  (MDNM( ITRfK) »K=1»2) »TEVN» IPROB» IPON 
LINESS9 

91  CALL  HYELS(3»PEIG»3) 

LINES=HNES+16 

100  IFUCODE)  105fl05»130 

105  IF(IEIG)  130 » 130 >110 

110  DO  120  1=1 « 3 

DO  120  J=l»3 

120  PEIG(I>J)=P(I+3>J+3) 

K=0 

DO  149  J=4»6 
DO  149  I=4»6 
K=K+1 

149  VEIG(K)=P(I»J) 

C ALL  JACOB I ( VE I G f EG VL  * EG VC  T » 3 » FOV ) 
IF(LINES.LT,MAX-16)  60  TO  121 

IP6N=IP6N+1 

W R I T£ ( 6 > 3 0 0 0 ) ( MONM ( I TR » K ) » K= 1 » 2 ) » TE VN » I PROB » I PGN 
LINES=9 

121  MRITE  (6>2000)  (I>E6VL  (l)>I=lf3) 

WRITE (6 » 2001 ) ( I » ( E6VCT { I » J ) » J=1 » 3 ) » 1=1 » 3 ) 

LINES=LINES+16 

ICODE=l 

60  TO  65 

130  IFCLINES.LT. max-9)  GO  TO  51 

IPGN=IP6N+1 

W R I TE ( 6 » 30  0 0 ) ( MDNM ( I TR » K ) > K= 1 » 2 ) » TE VN » I PROB » I PGN 
LINES=9 

51  WRITE(6>3010) 

LlNES=LlNES+5 
DO  54  I=1>N01N 
IF(LINES.LT. MAX-4)  GO  TO  52 
IPGN=IP6N+1 

WRITE(6»3000)  (MDNM(ITR»K) ♦K=l»2) »TEVNf IPROB»lPGN 
LINES=9 

52  IF(NDIM.EQ.6)  GO  TO  53 

WRITE(6>3013)  I 
LINES=LINES+1 

53  WRITE{6.3014)  (RHO( I* J) >J=1»NDIM) 

54  LINES=LINES+(NDlM-l)/6+l 

IF ( LINES. LT,MAX-ND1M-5)  60  TO  42 
IP6N=IPGN+l 

WRITE(6»3000)  (MDNM(ITR»K) »K=1>2) »TEVN* IPROB» IPGN 
L1NES=9 

42  WRITE{6.3007)  ( W< I ) » 1=1 .NOIM) 

LINES=LINES+NDIM+5 
IF(LINES.LT.MAX-NDIM-7)  go  to  47 
IP6N=1PGN+1 

WRITE(6f3000)  (MONM(ITR»K) >K=1»2) >TEVN» IPROB# IPGN 
LINES=9 
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47  WRITE(6»3009) (EDEVX ( I ) » ADEVX ( I ) r I=1»NDIM) 

LINES=LINES+NDIM+7 

trtmi=tevn 

DO  140  I=1»NDIM 
XI1(I)=XF1(I) 

140  Xni)=XF(I) 

1000  FORMAT (///20X*POS1TION  EI6ENVALUES*/3 (22X» I2» £25, 13/) ) 

1001  FORMAT (///20X*P0SITI0N  EI6ENVECT0RS*/3(22XI2>3E25,13/) ) 

2000  FORMAT (///20X*VEL0CITY  EiGENVALUES*/3(22X» 12 » £25,13/ ) ) 

2001  FORMAT  (///20X*VELOCITY  EISENVECTORS*/3 (22X12 »3E25. 13/) ) 

3000  FORMAT(lHr//8X2A10*— EIGENVECTOR  EVENT  AT  TRAJECTORY  TIME  ♦F12.3 
S*  DAY5*/90X*PROBLEM.  .*I10»5X*PAGE.  .♦I8  ///1X»130(1H*)//) 

3001  FORMAT ( SXAlO » 5X » E20 , 10 » 5X  * E20 . 10 , 5X » E20 . 10 ) 

3002  F0RMAT(///8X*STATE  TRANSITION  MATRIX  — PSI (♦F8,3*»*F8.3*)*/> 

3003  FORMAT (///8X*DIAG0NAL  OF  DYNAMIC  NOISE  MATRIX*/) 

3004  FORMAT (///8X*C0VAR I ANCE  MATRIX  AT  TIME  OF  EIGENVALUE  EVENT  — P( 
$*F8.3*»*F8.3*)*/) 

3006  FORMAT (8X*STATE  VECT0R*//22X*0RIGINAL  NOMINAL*7X*MOST  RECENT  NOMIN 
$AL*13X*ACTUAL*) 

3007  FORMAT (///8X*ACTUAL  DYNAMIC  NOISE*//(8XE20*10) ) 

3009  FORMAT (///8X*DEVIATI0N  IN  THE  STATE  VECTOR  FROM  THE  MOST  RECENT  NO 
*MINAL  TRAJECTORY*//15X*ESTIMATED*13X*ACTUAL*/(8X2E20,10) ) 

3010  FORMAT (///8X*C0RRELATI0N  COEFFECIENT  MATRIX*/) 

3013  FORMAT (10X*ROW  *13) 

3014  FORMAT (16X6E17. 8) 

RETURN 

END 
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SUBROUTINE  EPHEM ( IC » Q » N ) 


THIS  subroutine  DETERMINES  THE  MEAN  ANOMALY  (TRUE  ANOMALY  FOR 
MOON)  AT  A GIVEN  TIME  FOR  EACH  OF  THE  PLANETS  AND  USES  THIS 
INFORMATION  TOGETHER  WITH  THE  MEAN  ORBITAL  ELEMENTS  IN  -ORB-  TO 
CALCULATE  THE  HELIOCENTRIC  ECLIPTIC  RECTANGULAR  COORDINATES  OF 
EACH  OF  THE  PLANETS. 


ARGUMENTS 


IC 


D 

N 


EPHEMERIS  CODE 

=0  THE  COORDINATES  OF  THE  PLANET  ARE  RETURNED 
IN  THE  ARRAY  F AS  SHOWN  BELOW 
F(4*NO(I)-3»l)  = X 
F(4*N0(I)-3»2)  = Y 
F(4*N0(I)-3»3)  = Z 
F(4*N0(l)-2» 1)  = VX 
F(4*N0(I)-2»2)  = VY 
F(4*N0(I)-2»3)  = VZ 

the  coordinates  are 


=1  the  coordinates  are  returned  in  an  array  xp 

DATE  at  which  COORDINATES  ARE  TO  BE  DETERMINED 
number  of  bodies  for  which  COORDINATES  ARE  TO  BE 

determined 


WHERE  I=l»NBODYI, 


COMMON  /COM/V ( 16  f 7 ) » F ( 44  f 4 ) r P I » RAD 

COMMON  /COM/ITRATrKOUNTf INCMNT f INCPR» INC» IPR 

COMMON/COM/NBOD Y I » NBODY » IPRT ( 4 ) 

COMMON/COM/KL* IPGf LINCT»LINPGE 

COMMON/BLK/T»PMASS(ll)  fCN(80)  .ST (50)  »EMN(15)  rSMJRdS) 

COMMON  /BLK/RADIUS(11) rRMASS(ll) rNO(ll) »ELMNT(80) fSPHERE(ll) »XP(6) 
COMMON  /PRT/M0NTH(12) » PLANET (11) 

DIMENSION  TRG(14) 

FNl ( A » B rC » D » X ) =A+B*X+C*X*X+D*X*X*X 

FN2(A»B#X)=A+B*X 

PI2=2.*PI 

T=  D/36525. 

DD=  D*l,E-4 

ITEST2=0 

DO  90IJ=1»N 

IJ1=IJ 

ITEST=0 

I=NO(IJ)-l 

IF(I)90»90»10 

10  GO  TO  (30r30r20»30»40»40»40.40»40f80)I 

20  IF(ITEST2)90»30»90 

30  IL=8*(I-1) 

K=20*(I-1)+17 

ELMNT(IL+5)=FN1(CN(K) »CN(K+1) »CN(K+2) »CN(K+3) ,DD) 

GO  TO  50 

40  K=10*(I-5)+9 

IL=8*(I-1) 

ELMNT( IL+5)=FN2(ST(K) rST(K+l) »DD) 

50  ITEMP=ELMNT(1L+5)/PI2 


299 


ELMNT { IL+5 ) =ELMNT ( IL+5 ) -FLOAT ( ITEMP) *PI2 
E2=ELMNT ( IL+4 ) ♦ELMNT ( lL+4 ) 

E3=E2^ELMNT(IL+4) 

ELMNT ( IL+8 ) =ELMNT ( IL+5 )+ (ELMNT ( IL+4 )-E3/8 .)^S IN (ELMNT {IL+5 ))+ .5^ 
1E2^SIN (2. ♦ELMNT ( IL+5) )+.375^E3*SlN (3, ♦ELMNT (IL+5)) 

P=ELMNT ( lL+6 ) ♦ ( 1 . -ELMNT (IL+4 ) ♦ELMNT ( IL+4 ) ) 

IND=4^IsJ1-3 

TR6 ( 1 ) =C0S (ELMNT ( IL+8 ) ) 

TRG ( 2 ) =SIN ( ELMNT ( IL+8 ) ) 

R=ELMNT ( IL+6) ♦ ( 1 .-ELMNT ( IL+4) ♦TR6U ) ) 

VEL=SQRT (PMASS ( 1 ) ♦ (2, /R-1 ./ELMNT ( IL+6) ) ) 

TRG (3)=(P-R)/(ELMNT( IL+4) ♦R) 

TRG { 4 ) =SQRT ( 1 . -TRG ( 3) ♦TRG ( 3 ) ) 

TRG(5)=C0S(ELMNT( IL+1)  ) 

TRG ( 6 ) =SIN ( ELMNT ( IL+1 ) ) 

TRG(7)=COS(ELMNT(IL+2) ) 

TRG ( 8 ) =S IN { ELMNT ( IL+2 ) ) 

TRG (9) =COS (ELMNT ( IL+7 ) ) 

TRG ( 10 ) =SIN (ELMNT ( lL+7) ) 

TRG ( 11) =SQRT ( PMASS (1) ♦P ) / (R^VEL ) 

TRG ( 12 ) sSQRT ( 1 . -TRG ( 11) ♦TRG ( 11 ) ) 

IF(TRG(2) )60»60»70 
60  TRG(4)=-TRG(4) 

TRG(12)=-TRG(12) 

70  TRG ( 13 ) =TRG ( 9 ) ♦TRG ( 3 ) -TRG ( 10 ) ♦TRG ( 4 ) 

TRG ( 14 ) =TRG ( 1 0 ) ♦TRG ( 3) +TRG ( 9 ) ♦TRG ( 4 ) 

IF(IC-l)  71 » 100 » 71 

71  F(IND»1)=R  ♦(TRG(13)^TRG(7)-TRG(14)^TRG(8)^TRG(5)  ) 

F ( IND  »2 ) =R  ♦ ( TRG ( 13 ) ♦TRG (8) +TRG ( 14 ) ♦TRG ( 7 ) ♦TRG ( 5) ) 

F(IND»3)=R  ♦TRG(14)^TR(3(6) 

WX=TRG(6)^TRG{8) 

WY=-TRG(6)^TR6(7) 

WZ=TR6(5) 

fctr=vel/r 

F ( IND+1 » 1 ) =FCTR^ ( ( WY^F ( IND » 3) -WZ^F ( IND » 2 ) ) ♦TRG ( 11 ) +F ( IND » 1 ) ♦TRG ( 12 
D) 

F ( I ND+1 » 2 ) =FCTR^ ( ( WZ^F ( I ND » 1 ) -WX^F ( I ND » 3 ) ) ♦TRG ( 1 1 ) +F ( IND » 2 ) ♦TRG ( 12 
D) 

F(IND+1»3)=FCTR^( (WX^F(IND»2)-WY+F(IND»1) )^TRG(11)+F( IND » 3) ♦TRG (12 
D) 

IF(ITEST)79»90»79 

79  IK=IJ1 
60  TO  86 

80  ELMNT (80)=FN1(EMN(9) rEMN(10)^36525. »£MN(11) »EMN(12) »T) 
ITEMP=ELMnT(80)/PI2  > 

ELMNT (80) =ELMNT (80 ) -FLOAT ( ITEMP )♦? 12 
ELMNT (77)=ELMNT (80 ) -ELMNT (75) 

IF (ELMNT ( 77 ) .LT . 0 . ) ELMNT ( 77 ) =ELMNT ( 77) +PI2 
ELMNT ( 79 ) =ELMNT ( 80 ) -ELMNT ( 74 ) 

TRG ( 3) =COS (ELMNT ( 77 ) ) 

TRG (4 )=S IN (ELMNT (77)) 

TRG(5)=C0S(£LMNT(73) ) 

TRG(6)=SIN(ELMNT(73) ) 

TRG (7)=C0S (ELMNT (74) ) 

TR6(8)=SIN{ELMNT(74) ) 

P=ELMNT ( 78 ) ♦ ( 1 , -ELMNT ( 76 ) ♦ELMNT ( 76 ) ) 

R =P/(ELMNT(76)*TR6(3)+1.) 

VEL=SQRT ( PMASS ( 4 ) ♦ ( 2 . /R-1 . /ELMNT ( 78 ) ) ) 

TRG ( 1 1 )=SQRT ( PMASS ( 4 ) ♦P ) / ( R^VED 
TRG { 12 ) =SQRT { 1 . -TRG ( 1 1 ) ♦TRG (11)) 
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IF ( TRG ( 4 ) ,LT . 0 . ) TRG ( 12 ) =-TRG ( 12) 

TRG(13)=C0S(ELMNT(79) ) 

TRG(14)=SIN{ELMNT(79) ) 

IN=4*IJ-3 

F(IN»1)=R  *{TRG(13)*TRG(7)-TRG(14)*TRG(8)*TRG(5) ) 

F ( IN » 2 ) =R  ♦ ( TRG ( 13 ) ♦TRG ( 8 ) +TRG  < 14 ) *TRG ( 7 ) *TRG ( 5 ) ) 

F (1N»3)=R  *TRG( 14) *TRG(6) 

WX=TRG(6)*TRG(8) 

WY  = -TRG{6)*TRG(7) 

W2=TRG(5) 

FCTR=VEL/R 

F(IN+l»l)=FeTR*( (WY*F(IN»3)-WZ*F(IN»2) )#TRG{11)+F(IN»1)*TR6(12)) 
F{IN+1»2)-FCTR*(  (WZ*F(IN»1)-WX*FUN»3))*TRG(11)+F(IN»2)*TRG(12)  ) 
F (IN+ 1 » 3 ) =FCTR* ( ( WX*F ( IN » 2 ) - WY*F ( IN » 1 ) ) *TRG ( 1 1 ) +F ( IN » 3 ) *TRG ( 12 ) > 
DO  81  IK=1»NB0DYI 
IF(N0(1K) .EQ.4)GO  TO  84 
81  CONTINUE 

IJ1=NB0DYI+1 
60  TO  85 

84  IF(IK.LT.ig)GO  TO  86 
iJl=IK 

ITEST2=1 

85  ITEST=1 
1=3 

GO  TO  30 

86  IK=4*IK-3 
DO  87  0=1 f 3 

F(IN»J)=FMN»J)+F(IK»J) 

87  F ( IN+1 » sJ ) =F  ( lN+1  f J ) +F  ( IK+1 » J) 

90  CONTINUE 

RETURN 

100  XP(1)=  R *(TRG(13)*TRG(7)-TRG{14)*TR6{8)*TRG(5)) 

XP(2)=  R *(TRG{13)*TRG(8)+TRG(14)*TRG{7)*TRG(5)) 

XP(3)=  R ♦TRG(14)*TRG(6) 

WX=TRG(6)*TRGC8> 

WY=-TRG(6)*TRG(7) 

WZ=TRG(5) 

FCTR=VEL/R 

XP ( 4 ) =FCTR* ( ( W Y*XP ( 3 ) -WZ*XP ( 2 ) ) *TRG (11) +XP ( 1) *TRG ( 12 ) ) 

XP ( 5)=FCTR* ( ( WZ*XP ( 1 ) -WX*XP ( 3) ) *TRG ( 11 ) +XP ( 2 ) *TRG ( 12) ) 

XP (6)  =FCTR*  ( { l«X*XP (2) -WY*XP ( 1)  ) *TRG ( 11 ) +XP ( 3) *TRG (12) ) 

RETURN 

END 
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SUBROUTINE  ESTMT ( Dl » OELTM » TRIM ) 


THIS  SUBROUTINE  UPDATES  THE  FINAL  VALUES  OF  PRECEDING  COMPUTING 
INTERVAL  TO  SERVE  AS  INITIAL  VALUES  FOR  THE  NEW  STEPt  DETERMINES 
THE  DESIRED  SIZE  OF  TIME  INCREMENT  ON  THE  BASIS  OF  TRUE  ANOMALY  OR 
REQUESTED  PRINT  TIME»  AND  ESTIMATES  THE  FINAL  POSITION  AND 
MAGNITUDE  OF  THE  VIRTUAL  MASS  USING  FORMULAS  UII-16)  IN 

NOVAK»  D.  H,  -VIRTUAL  MASS  TECHNIQUE  FOR  COMPUTING  SPACE 
TRAJECTORIES- f FINAL  REPORT#  CONTRACT  NO.  NAS  9-4370# 

ER  14045#  MARTIN#  BALTIMORE  DIVISION#  JANUARY#  1966.  PG.  23. 


COMMON  /C0M/V(16#7) #F(44#4) #PI#RAD 
COMMON  /COM/ITRAT»KOUNT»INCMNT#INCPR#INC#IPR 
COMMON/COM/NBODY I # NBODY » IPRT { 4 ) 

common/com/kl#ipg#linct»linpge 

COMMON/BLK/T#PMASS(ll)  #CN(80)  »ST(50)  #EMNU5)  #SMJR'{18) 

COMMON  /BLK/RADIUSUl)  #RMASS(U)  #N0U1)  #ELMNT(80)  #SPHERE(U)  #XP(6) 
COMMON  /PRT/M0NTH(12) #PLANET(11) 

C INDEX  VALUES  IN  V ARRAY 
INCMNT=INCMNT+1 
DO  361  1=1 #9# 2 
DO  360  J=l»4 

360  V{1»J)=V(I+1#J) 

361  CONTINUE 
IFdNC.EQ.O,)  GO  TO  370 

IF(INCMNT.EQ.INCMNT/INCPR*INCPR)  KOUNT  =1 
370  ITRAT=1 

C ESTABLISH  COMPUTING  TIME  INCREMENT 

V(11#1)=SQRT(V(11#2)*V(11»2)+V(11#3)*V{11#3)+V(11#4)*V(11#4)  ) 
V(7»6)=V(3#6)*V(9#l)/vai#l) 

IF{V(2#5).GT.V{1»1)+V(7#6))  GO  TO  365 
V(7#6)=V(2#5)-V(1#1) 

V(2#1)=V{2#5) 

V(4#1)=D1+DELTM 
KOUNT=l 
GO  TO  391 

365  IF  (IPR.EQ.O)  GO  TO  378 

394  IF(V(1#1)+1.1*V(7#6)  .LT.  V(13»3))G0  TO  378 
390  V(7#6)=V(13»3)-V(1#1) 

V(2#1)=V(13#3) 

V ( 4 # 1 ) =D 1 + V ( 1 3 # 3 ) -TR  T M 
V(13»3)=V{13#3)+V(3#5) 

400  KOUNT  F 1 
60  TO  391 

c increment  times 

. 378  DO  379  1=1 #3 #2 

379  V(I+1#1)=V(I#1)+V(7#6) 

391  V(8#5)=V(7#6)*V(7»6) 

IF  (V(2#l)  .6E.V(13#3) ) VU3#3)=V(13#3)+V(3#5) 

c estimate  virtual  mass  final  position  and  magnitude 

V(6#1)=V(5#1)+V(7#1)*V(7#6)+V(8#6)*V<8#5) 

DO  380  J=2#4 

360  V(6#J)=V(5»J)+V(7#J)*V(7»6)+V(10#J+3)*V(a#5) 

RETURN 

END 
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SUBROUTINE  EULMX  { ALP»NN»BET»MM»GAM»Ll.»P) 

ALP  = FIRST  ROTATION  ANGLE 

BET  = SECOND  ROTATION  ANGLE 

GAM  = THIRD  ROTATION  ANGLE 

NN»MM»LL  = AXES  OF  ROTATION 

IF  NN»MM»LL  ARE  NEGATIVE  = MINUS  ROTATION 

IF  NN  = MINUS  rotation  ABOUT  THAT  AXIS 

IF  MM  = -r  MINUS  ROTATION  ABOUT  THAT  AXIS 

IF  LL  = -»  MINUS  rotation  ABOUT  THAT  AXIS 

P = LOCATION  OF  FIRST  ELEMENT  OF  ROTATION  MATRIX 

DIMENSION  A(3»3) »P(3»3) »F(3»3) »G(3»3) »H(3»3) »DC3»3) 

N = 3 

ALPHA  = ALP 
NAXIS  = NN 
13  DO  10  I = 1»3 

DO  10  J = 1»3 

10  A<IrJ)  = 0. 

IF (NAXIS)  6»52»12 
6 ALPHA  = -ALPHA 
NAXIS  = -NAXIS 
12  GO  TO  (20»30»A0»53) »NAXIS 
53  RETURN 

20  A(lfl)  = 1. 

A(2r2)  = COS  (ALPHA) 

A(2»3)  = SIN  (ALPHA) 

A(3f2)  = -A(2»3) 

A(3f3)  = A(2»2) 

GO  TO  21 

30  A(l»l)  = COS  (ALPHA) 

A(3»1)  = SIN  (ALPHA) 

A(2»2)  = 1. 

A(lr3)  = -A(3fl) 

A(3»3)  = A(l»l) 

GO  TO  21 

40  A(lfl)  P COS  (ALPHA) 

A(l»2)  = SIN  (ALPHA) 

A(2fl)  = -A(l»2) 

A(2»2)  = A(l»l) 

A(3»3)  = 1. 

21  DO  27  I = lr3 
DO  27  vJ  = 1»3 
IF(N-2)  26 f 24 » 22 

22  F(IrJ)  = AdrJ) 

GO  TO  27 

24  G(I»J)  = A(IrU) 
eo  TO  27 

26  H(I»J)  = A(I»J) 

27  CONTINUE 

45  N = N - 1 

IF  (N-1)  50»48»46 

46  IF  (MM)  47»52»47 

47  NAXIS  = MM 
ALPHA  = BET 
GO  TO  13 

48  IF  (LL)  49»51»49 

49  NAXIS  = LL 
ALPHA  = GAM 
GO  TO  13 

DO  60  I = 1»3 
DO  60  J = 1»3 
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D(I»J)  = 0.0 
DO  60  K = 1»3 
60  0(1  fJ)  = OdfJ) 

DO  65  I = 1.3 
DO  65  J = 1.3 
P(I.sJ)  = 0.0 
DO  65  K = 1.3 
65  P(I.J)  = P(I.J) 
eo  TO  54 

51  DO  70  I = 1.3 
DO  70  J = 1.3 
P(I.J)  = 0.0 
DO  70  K = 1.3 
70  P(I.J)  = P(I.J) 
60  TO  54 

52  DO  55  I = 1.3 
DO  55  J = 1.3 
55  P(I.J)  = F(I.J) 
54  RETURN 
END 
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H(I.K)*G(K» J) 


D(I.K)*F(K.J) 


G(I.K)*F(K. J) 


-P  OJ  TO  *-*  O O ODD 


SUBROUTINE  GHA 

THIS  subroutine  COMPUTES  THE  GREENWICH  HOUR  ANGLE  AND  THE 
UNIVERSAL  time  (IN  DAYS)  WHICH  IS  USED  IN  THE  TRACKING  MODULE 
TO  ORIENT  THE  STATIONS  ON  THE  EARTH 
COMMON/TIM  /D ATE J » TRTMl » DELTM » FNTM » UNI VT » TRTMB 
EQMEG  = 360.985608288 
EOMEG  IS  EARTH  ROTATION  RATE  IN  DEG/DAY 
REFJ0=24332a2.5 

REFERENCE  JULIAN  DATE  IS  0-HRS.JAN“l»  1950 
TSTAR-DATE J+2415020 .-REFJD 
ID  = TSTAR 
D=ID 

TFRAC=TSTAR-D 

GH=100.0755426+D*(0.985647346+D*2.9015E-13)  +£QMEG*TFRAC 
IF(6H)2»3f 3 
GH=GH+360 . 

GO  TO  1 

IF(GH-360,)  5»4»4 
GH=GH-360, 

GO  TO  3 
‘ 5 CONTINUE 

UNIVTS  (GH) /EQMEG 

RETURN 

END 
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SUBROUT I NE  GU 1 D I RF  f IGP » TE VN » 6 A » ADA ) 


THIS  subroutine  COMPUTES  THE  GAMMA  MATRIX  FOR  USE  IN  THE  GUIDANCE 
MODULE 

INPUT  ARGUMENTS 

RF  — POSITION  AND  VELOCITY  OF  SPACECRAFT  AT  TIME  TEVN 
IGP  — GUIDANCE  POLICY  CODE 

51  — FIXED  TIME  OF  ARRIVAL 
=2  — TWO  VARIABLE  B-PLANE  , 

=3  — THREE  VARIABLE  B-PLANE 
TEVN  — TIME  OF  GUIDANCE  EVENT 

OUTPUT  argument 

GA  — GAMMA  MATRIX 

THIS  subroutine  REQUIRES  THE  USE  OF  THE  FOLLOWING  SUBROUTINES 

ntm 

PSIM 

PARTL 

VAR AD A 5 

BLOCK  DAT^ 


DIMENSION  RI(6) »RF(6) »GAC3»6) r XCA (6) » XSiP ( 3) » XSI V (3) »RTPS(6) # 

$PHI H 3 r 3 ) f PHI2 { 3 » 3 ) » PBT ( 6 ) » PBR ( 6 ) » A ( 2 » 3 ) i BB ( 2 » 3 ) » ADA ( 3 » 6 ) 

DIMENSION  PHI3(2»2) »EGVL(3) »EGVCT(3f3) »DUMl(2»2) 

COMMON/BLK/T  »PMASS(11)  »CN(80)  »ST(50)  »EMN  (15)  »SMJRU8) 

COMMON  /BLK/RAD lUS ( 1 1 ) . RMASS ( 11) » NO ( 1 1 ) » ELMNT ( 80 ) . SPHERE ( 1 1 ) » XP ( 6 ) 
C0MM0N/C0NST2/U1 » U2 » U3 » VI » V2 » V3 » W 1 » W2 » W3  r FOP » FOV 
COMMON/EVENT/NEVf  TEV (50 ) » lEVNT (50 ) » IHYPI » lEIGf  TPT2 ( 20 ) t 
3>iCDT3(20) fNPE»NGE»IPOL»IIPOL»ICDQ3(20) »SIGRES»SIGPR0»Si6ALP»SICBET 
S f NE V 1 » NE V2 » NE V3 » NEV4 » NQE 
C0MM0N/GUi/PG(17»17) »XG(6) »TG»EM(2»6) 

C0MM0N/MlSC/ACC»IDNF»IC00R»lTR»IMNF»FACP»FACVrISP2»BIA(12) »IPGN 
COMMON  /NAME/MDNM ( 4 > 2 ) » E VNM ( 4 ) » MNNAME ( 12  r3 ) t CMPNM ( 11 » 17 ) 
C0MM0N/STM/P(17.17) »PSI(17»17) »Q(l7»17>  »H(4» 17) »R(4»4) »AK(17»4) 
£»PB(17»17) fPSIP(17fl7)»HPHR(4f4) 

COMMON/STVEC/X I ( 17  > » XF ( 17 ) » NDIM • I AUG  f XB( 17) 

COMMON/TIM  /OATEUfTRTMl»DELTM»FNTM»UNlVT/TRTMB 
COMMON/TRA JCD/NTMC  t ISTMC » ISTMl » DTMAX  » NDACC  » ACCND 
C0MM0N/TRJ/IS0Il»IS0I2»IS0I3f ICAlf ICA2»ICA3>RCA1(6) »RCA2(6) » 
$RCA3(6) »RS0I1(3) »RS0I2(3) »RS013(3) rVSOIl(3) »VS0I2(3) »VS0I3(3) # 
$TCAl»TCA2»TCA3»TS0Il»TS0I2»TS0l3»BSIlfBSI2»BSl3»BDTSIl»BDTSI2» 

* BDTS 1 3 » BDRS 1 1 » BDRS 1 2 1 BDRS 1 3 

COMMON/ VM/NBOD » NB ( 1 1 ) f NTP » ALNGTH » TM » DELTP » INPR  f IPROB  ^ RC ( 6) » DC  t 
SRS I ( 3 ) » VS I ( 3 ) » DS I » ISPH » RVS (6) » VMU  »B » BDT  t BDR » DELTH » T IMINT » INCMT » 

S lEPHEM » I CL » IPR I NT » RE ( 6 ) # RTP { 6 ) » I CL2 
MAX=60 
IPGN=1PGN+1 

WRITE ( 6 » 3000 ) ( MDNM ( ITR » I ) » 1=1 » 2 ) »TEVN » IPROB » IPGN 
GO  TO  (20»210»210) » IGP 
10  IF  (IPOD  50r20»50 
20  DELTM=FNTM-TEVN 

IF(ICL.NE.O)  60  TO  600 
DO  30  1=1 » 6 
30  RI(I)=RF(I) 

TRTM1=TEVN 

ICS=ICL2 
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ICL2=NTP 

IPR=1PRINT 

IPRINT=1 

CALL  NTM(RI»RF»NTMC»-1) 

TS0I1=0SI-DATEJ 

1CL2=1CS 

IPRINT=IPR 

IFdSPH.EQ.l)  GO  TO  35 
WRITE(6»1000) 

60  TO  500 

35  TCA=DC-DATEJ 

D=TCA+DATEJ 
NO(l)=NTP 
CALL  0RB(NTP*D) 

CALL  EPHEM(1»D»1) 

DO  40  1=1,3 

XCA ( I ) =RC ( I ) +XP ( 1 ) *ALNGTH 
40  XCA(I+3)=RC(I+3)+XP(I+3)*ALNGTH/TM 

GO  TO  70 

50  DO  60  1=1,6 

60  RI(I)=RF(I) 

70  DELTM=TCA-T£VN 
TRTM1=TEVN 

WRITE(6,2000)  TCA,RC 

LINES=21 

NO(l)=NTP 

CALL  ORB(NTP,DSI) 

CALL  EPHEM(1»DSI,1) 

DO  100  1=1,3 

RF  LI ) =RS I ( I ) +XP { I ) *ALNGTH 
100  RF ( 1+3 ) =VSI ( I ) +XP ( 1+3 ) *ALNGTH/TM 
DELTM=DSI-DATEJ“TEVN 
CALL  PSIM(RI,RF»ISTMC) 

DO  102  I=1,NDIM 
DO  102  J=1,NDIM 

102  PSIP(I»J)=PSI(I,J) 

DELTM=TCA-(DSI-DATEJ) 

D1=DTMAX 

DTMAX=300. 

CALL  PSIM(RF»XCA»ISTMC) 

DTMAX=D1 
DO  103  1=1,NDIM 
DO  103  J=1,NDIM 

103  Q(I,J)=PSKI,J) 

DO  104  I=1,NDIM 
DO  104  J=1,NDIM 
PSI(I,J)=0. 

DO  104  K=1»NDIM 

104  PSI(I»0)=PSI(I,J)+Q(I,K)*PSlP(Kf J) 

IF  (LINES. LT,KAX-e  ) 60  TO  71 
IPGN=IPGN+1 

WRITE (6, 3000)  (MDNM( ITR, I ) , 1=1 ,2) ,TEVN» IPROB,lPGN 
L1NES=9 

71  WRITE  (6»3002)  TCAdEVN 
L1NES=LINES+5 

DO  72  I=1,NDIM 

IF  (LINES. LT, MAX-4  ) GO  TO  73 
IPGN=1P6N+1 

WRITE(6,3000)  (MDNM( ITR, I) , 1=1 ,2) ,TEVN» IPROB, IPGN 
LINES=9 


73  IF  (NDIM.EQ.6)  60  TO  74 
WRITE  (6 f 3003) I 
LINES=UINES+l 

74  WRITE(6»3011)  (PSI ( I » J) r J=1 »NDIM) 

72  LINES=LINES+(NDIM-l)/6+l 

DO  90  I=If3 
DO  90  g=l»3 
ADA  (IfJ)=PSI(I»J) 

90  ADA{I»J+3)=PSI(I»J+3) 

CALL  P ARTL ( RSI r vs I » B 1 » BDTl » BOR 1 » PBT » PBR ) 

DO  91  J=l»6 
EM<l»si)=PBT(J) 

91  EM(2»J)=PBR(<J) 

GO  TO  407 

200  IF  (I IPOD  240»210»240 

210  0ELTM=FNTM-TEVN 

DO  220  1=1 » 6 

220  RI(I)=RF(I) 

TRTM1=TEVN 

IFdSPH.NE.O)  60  TO  225 

iPR=IPRINT 

1PRINT=1 

ISP=ISP2 

ISP2=NTP 

CALL  NTM(RI»RFrNTMC»-l) 

TS0I1=DSI-DATEJ 

ISP2=ISP 

IPRINT=IPR 

TSI=DSI-DATED 

IF(ISPH.EQ.l)  60  TO  221 

WRITE(6flOOO) 

1000  FORMAT (///8X*VEHICLE  DID  NOT  REACH  SPHERE  OF  INFLUENCE  BEFORE  FINA 
$L  TRAJECTORY  TIME.*/8X*RETURNlNe  TO  BASIC  CYCLE*///) 

GO  TO  500 

221  D=DSI 
NO(l)=NTP 
CALL  ORe(NTP»D) 

CALL  EPHEM(1»0»1) 

DO  230  1=1 » 3 
XS1P(1)=RSI(I) 

XSIV(I)=VSKI) 

RTFS ( I ) =RSI { I ) +XP { I ) ♦ALNGTH 
230  RTFS ( I+3)=VSI ( I ) +XP ( 1+3) *ALN6TH/TM 

BS=B 

BDTS=BDT 
8DRS=BDR 
60  TO  260 

240  DO  250  1=1 » 6 
250  RI(I)=RF(I) 

260  IF(I6P.EQ.3)  GO  TO  400 

CALL  PARTL  < XS IP  r XSI V » 81 » BDTl » BDRl » PBT » PBR ) 

DO  261  J=l»6 
EMU»J)=PBT(J) 

261  EM<2»J)=PBR(J) 

trtmi=tevn 

ISPH=1 

DELTM=TSI-TEVN 

CALL  PSIM(RI»RTPS»ISTMC) 

WR ITE ( 6 » 3005 ) TSI » XSIP » XSIV » BS » BDTS » BDRS 
LINES=23 
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IF  (LINES.lt. MAX-8  ) GO  TO  266 
IPGN=IPGN+1 

WRITE (6.3000)  ( MDNM ( ITR » I ) > 1=1 . 2 ) » TEVN . IPROB . IPGN 
LINES=9 

266  WRITE  (6.3002)  TSI.TEVN 
DO  267  I=1.NDIM 

IF  (LINES.lt. MAX-4  ) GO  TO  268 
IPGN=IP6N+1 

WRITE(6.3000)  (MDNM( ITR. I >. 1=1.2) .TEVN. IPROB. IPGN 
LINES=9 

268  IF  (NDIM.EQ.6)  GO  TO  269 
WRITE (6. 3003)  I 
LINES=LINES+1 

269  WRIT£(6.3011)  (PSI ( I . J) . J=1 .NDIM) 

267  LINES=LINES+ (NDIM-1) /6+1 

IF  (LINES.lt. MAX-7  ) GO  TO  270 
IPGN=IPGN+1 

W R I TE ( 6 . 3 0 0 0 ) ( MDNM ( I TR » I ) . I = 1 . 2 ) . TEVN . I PROB . I PGN 
LINES=9 

270  WRITE  (6.3010)  PBT.PBR 
LlNES=LINES+7 

DO  280  1=1.3 
A(1.I)=0. 

BB(1»I)=0, 

DO  280  J=1 » 6 

A ( 1 . 1 ) =A  ( 1 » I ) +PBT  ( iJ ) *PSI  ( J . I ) 

280  BB(1 » I ) =BB  ( 1 » I ) +PBT  (sJ)  *PSI  ( J.  1+3) 

DO  290  1=1.3 
A(2.I)=0. 

BB(2.I)=0. 

DO  290  J=1.6 

A ( 2 . 1 ) =A ( 2 » I ) +PBR ( J ) *PSI ( J » I ) 

290  BB(2.I)=BB(2. I)+PBR( J)*PSK J. 1+3) 

IF  (LINES.lt, MAX-12)  GO  TO  271 
IPGN=IPGN+1 

WRITE(6.3000)  (MDNM(ITR.I) .1=1.2) .TEVN. IPROB. IPGN 
HNES=9 

271  WRITE  (6.3006)  ( ( A ( I . J) . J=1 . 3) . 1=1 . 2) . ( ( BB ( I . J) » J=1 . 3) » 1=1. 2) 
LINES=LINES+12 

DO  272  1=1 » 2 
DO  272  J=l»3 
ADA(I»J)=A{I. J) 

272  ADA(I.sJ+3)=BB(I.J) 

IF(LINES.LT, MAX-6)  GO  TO  273 
IPGN=IP6N+1 

WR I TE ( 6 . 300  0 ) ( MDNM ( I TR . I ) » 1= 1 . 2 ) . TE VN » IPROB » IPGN 
LINES=9 

273  DO  274  1=1.2 
00  274  J=1.2 
PHI3(I .J)=0, 

DO  274  K=I»6 
DO  274  L=l»6 

274  PHI 3 ( I . J ) =PH I 3 ( I . J ) + AD A { I . K ) »P ( K . L ) *ADA ( J . L ) 

WRITE(6.3016)  ( (PH13(I.J) . J=l,2) . 1=1.2) 

LINES=LINES+7 

K=0 

DO  275  0=1.2 
DO  275  1=1.2 
K=K+1 

275  PBT(K)=PHI3(I.J) 
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IF (LINES.lt. MAX-16)  60  TO  276 
IPGN=IPGN+1 

WRITE(6»3000)  (MDNMdTR.  I) » T=l»2)  »TEVN»  IPROBr  IPGN 
LINES=9 

276  CALL  JACOBI (PBT» EG VLrDUMlf  2.F0V) 

WRITE(6»3013)  ( I r EGVL ( I ) » 1=1 f 2) 

WRITE(6»3017)  (I*(  DUMl ( I » J) » J=1 »2 ) » 1=1 » 2) 
IF(IHYP1.EQ.2)  go  to  278 

IF (LINES.lt. MAX-9)  GO  TO  277 
IPGN=IP6N+1 

WRITE (6 #3000)  (MDNM(1TR» I ) » 1=1 »2) »TEVN» IPROB» IPGN 
LINES=9 

277  CALL  HYELS(1.PHI3»2) 

LINES=LINES+a 

278  IF(IHYPl.EQ.l)  GO  TO  281 

IF (LINES.lt. MAX-9)  GO  TO  279 
IPGN=IPGN+1 

WRITE(6.3000)  (MDNM ( ITR » I ) » 1=1 » 2) » TEVN» IPROB » IPGN 

279  CALL  HYELS(3rPHI3r2) 

LINES=9 

LINES=LINES+a 

281  DO  310  1=1 » 2 
DO  310  J=l»2 
PHI3(IrJ)=0. 

DO  310  K=l»3 

310  PHI3(IrJ)=PHI3(I»J)+BB(I»K)*BB(J»K) 

CALL  MATIN(PH13»PHI3»2) 

DO  320  1=1 » 3 
DO  320  J=l»2 
PHI2(I»J)=0. 

DO  320  K=l»2 

320  PHI2(I»J)=PH12(I»J)+BB(K»I)*PHI3(K»J) 

325  DO  330  1=1 r 3 
DO  330  J=l»3 
GA(I»J)=0. 

DO  330  K=l»2 

330  GA(I»J)=6A(If J)-PH12(I»K)*A(K»J) 

DO  340  1=1 » 3 
DO  340  J=4»6 
GA(I»J)=0, 

DO  340  K=l»2 

340  GA(I»J)=GA(I»J)-PHl2(I»K)*BB(K»J-3) 

IF  (LINES.lt. MAX-7  ) 60  TO  341 
IPGN=IP6N+1 

WRITE (6. 3000)  (MDNM ( ITR. I ) f 1=1 » 2) »TEVN» IPROB. IPGN 
LINES=9 

341  WRITE(6.3007)  ( (GA( I. J) . J=l»6) . I=l»3) 

IIPOL=l 

60  TO  500 

400  CALL  VARADA(RI»XSIP.XSIV»TEVN.TSI»ADA»BS.BDTS»BDRS) 
IF(ISPH.EQ.O)  GO  TO  500 

WRITE (6.3005)  TSI.XSIP.XSIV.BS.BDTS.BDRS 
CALL  PARTL(XSIP.XSIV.Bl.BDTl.BDRl.PBT.PBR) 

DO  408  J=1.6 
EM(1.J)=PBT(J) 

408  EM(2.J)=PBR(J) 

407  WRITE  (6.3008)  ( ( ADA ( I . J) . J=1 .6) . 1=1 .3) 

DO  401  I=i.3 
DO  401  J=1.3 
PHI1(I.J)=0. 
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DO  401  K=lf6 
DO  401  L=lr6 

401  PHIlU»J)=PHIl(I»J)+ADA(I»K)*P(KfL)*ADA(J»L) 

WRIT£(6»3012)  ( (PHll(I^J) » J=1 » 3) » 1=1 r3) 

DO  402  1=1 » 3 
DO  402  J=l»3 

402  PHI2(Ir J)=PHI1(I»J) 

CALL  JACOB I { PHI2 » EGVL »EG VCT  r 3 » FO V ) 

WR I T£ ( 6 » 30 1 3 ) ( I » EG VL ( I ) f 1= 1 » 3 ) 

WRl T£ ( 6 » 30 14 ) ( I » ( EGVCT ( I r J ) * J= 1 » 3 ) » 1 = 1 » 3 ) 
iP6N=IPGN+l 

WRITE (6 » 3000 ) (MDNM ( ITR » I ) # 1=1 » 2) » TEVN» IPROB » IPGN 
IF(IHYPl-2)  403r404,403 

403  CALL  HYELS{1»PHI1»3) 

404  IF(IHYP1~1)  405»406,405 

405  CALL  HYELS(3»PHllr3) 

406  DO  410  1=1 » 3 
DO  410  J=l»3 
PHIl(IfJ)=AOA(I»J) 

410  PHI2(1»J)=ADA(I»J+3) 

CALL  M A T I N ( PH 1 2 » PH 1 2 » 3 ) 

DO  420  1=1 » 3 
DO  420  J=l»3 
GA(I»J)=0, 

DO  420  K=l»3 

420  GA{I»J)=GA(I»J)-PHl2(IfK)*PHIl(K. J) 

DO  430  l=lf3 
DO  430  J=4»6 
430  GA(I*J)=0. 

6A(1»4)=-1, 

GA(2»5)=-1. 

GA(3»6)=-1. 

IF(IGP.EO.l)  GO  TO  111 

WRITE  {6r3009)  ( (GA ( I » J) rj=l r6 ) > 1=1 » 3) 

440  1IP0L=1 

GO  TO  500 

111  WRIT£(6»3004)  ( ( GA ( I » J ) » J=1 » 6 ) » 1=1 » 3) 

IPOL=l 
60  TO  500 

600  WRIT£{6»1001) 

1001  FORMAT (///8X*CL0SEST  APPROACH  HAS  BEEN  PREVIOUSLY  ENCOUNTERED*/ 
3.8X*R£TURNING  TO  BASIC  CYCLE*) 

ISPH=0 
GO  TO  500 

225  WRITE(6»3015) 

ISPH=0 
500  RETURN 

3000  FORMAT  aHl//8X2A10*—  GUIDANCE  EVENT  AT  TRAJECTORY  TIME  *F12.3f 
$*  OAYS*/90X*PR0BLEM.  .*I10»5X*PA6E.  .*I8///1X» 130 ( IH*)//) 

2000  FORMAT ( 8X*TIME  OF  CLOSEST  APPROACH  *F12.3//8X*AT  CLOSEST  APP 

SROACH*/8X*POSITION*3E20.10/aX*VELOCITY*3E20,10) 

3002  FORMAT (///8X*STATE  TRANSITION  MATRIX  RELATING  STATE  VECTOR  AT  TIME 
S *F1'2,3*  days  TO  THAT  AT  TIME  *F12.3*  DAYS*/) 

3003  FORMAT (10X»*R0W*I3) 

3004  FORMAT (///8X*GUIDANCE  MATRIX^ FIXED  TIME  OF  ARRIVAL  GUIDANCE  POLI 

$CY*/3(8X6E20.10/) ) 

3005  FORMAT  ( 8X*TIME  AT  WHICH  VEHICLE  REACHES  SPHERE  OF  INFLUENCE 

$ OF  TARGET  PLANET  *F12.3*  DAYS*//8X*AT  SPHERE  OF  INFLUENCE*//8X*P0 
$SITION*3E20.10/8X*VELOCITY*3E20.10//8X*B  = *E20.10»5X*B  DOT  T = *E 
$20,10»5X*B  DOT  R = *E20.10) 
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3006  FORMAT(///ax*A*/2(8X3E20.10/)8X*B*/2(8X3E20.10/) ) 

3007  FORMAT (///8X*6UIDANCE  MATRIX— TWO  VARIABLE  B-PLANE  GUIDANCE  POLIC 
♦Y*/3(8X6E20,10/) ) 

3008  FORMAT (///8X*VARIATI0N  MATRIX*/3(8X6E20.10/) ) 

3009  FORMAT  (///aX*6UIDANCE  MATRIX— THREE  VARIABLE  B-PLANE  GUIDANCE  POL 
♦ ICY*/3(8X6E20.10/)  ) 

3010  FORMAT (///8X»PBT*/8X6E20.I0/8X*PBR*/8X6E20. 8) 

3011  FORMAT(8X6E20.10) 

3012  FORMAT (///8X*UNCERTA1NTY  IN  TARGET  CONDITIONS  BEFORE  CORRECTION*/ 
43(8X3E20tl0/) ) 

3013  FORMAT(///20X*EIGENVALUES  OF  ABOVE  MATRIX*/3(22XI2E20.10/) ) 

3014  FORMAT (///20X*EIGENVECTORS  OF  ABOVE  MATRIX*/3(22XI2»3E20.10/) ) 

3015  FORMAT (///8X*SPHERE  OF  INFLUENCE  HAS  BEEN  PREVIOUSLY  ENCOUNTERED* 
4/RETURNING  TO  BASIC  CYCLE*) 

3016  FORMAT (///8X*UNC£RTA1NTY  IN  TARGET  CONDITIONS  BEFORE  CORRECTION*/ 
42(8X2E20.10/) ) 

3017  FORMAT(///20X*EIGENVECTORS  OF  ABOVE  MATRIX*/2(22Xl2r2E20.10/) ) 

END 
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SUBROUT I NE  6U I DM  I R I » TE VN ) 


C 

C 

G THIS  SUBROUTINE  CONTAINS  THE  LOGIC  FOR  THE  GUIDANCE  EVENT. 

C 

C GUIDM  USES  THE  FOLLOWING  SUBROUTINES 

C NTM 

C PSIM 

C DYNO 

C NAVM 

C GUID 

C 
C 

COMMON/CONST/OMEGA » EPS » NST » SAL ( 3 ) » SLAT ( 3 ) . SLON ( 3 ) » DNCN ( 3 ) rMNCN ( 12 ) 
C0MM0N/C0NST2/U 1 r U2 » U3 » MitMZt V3  rWl » W2f  W3 1 FOP. FOV 
COMMON/EVENT/NEV » TEV ( 50 ) . IEVNT ( 50 ) . IHYPI . lEIG . TPT2 ( 20 ) . 

$ICDT3 (20 ) . NPE . NGE . IPOL .1 IPOL » ICDQ3 ( 20 ) . SIGRES  » SIGPRO . SIGALP . SIGBET 
$ . NE V 1 f NE V2 . NE V3 . NE V4 . NQE 
COMMON/GUI/PG ( 17 . 17 ) . XG ( 6 ) . TG . EM ( 2 . 6 ) 

COMMON/MISC/ACC. IDNF. ICOOR. ITR. IMNF.FACP.FACV, ISP2.BIA( 12) .IPGN 
COMMON  /NAME/MDNM(4.2) .EVNM(4) . MNNAME ( 12. 3 ) .CMPNM ( 11 . 17) 
COMMON/STM/P (1 7 . 1 7 ) . PS I ( 1 7 . 1 7 ) .G ( 17 . 1 7 ) . H ( 4 . 1 7 ) . R ( 4 . 4 ) . AK ( 17 , 4 ) 
$.PB(17.17) .PSIP(17.17) .HPHR(4,4) 

COMMON/STVEC/XI(17) .XF(17) .NDIM» IAUG.XB ( 17) 

common/tim  /datej.trtmi.deltm.fntm.univt.trtmb 

COMMON/TRA JCD/NTMC . ISTMC . ISTMl . DTMAX . NDACC  * ACCND 
COMMON/TRJ/ISOI1»ISOI2.ISOI3.ICA1.ICA2.1CA3.RCA1{6) .RCA2(6) . 
iRCA3(6) .RS0I1(3) .RS0I2(3) .RS0I3(3) .VS0I1(3) .VSOI2(3) .VS0I3(3) . 
STCA1.TCA2.TCA3.TSOI1.TS012,TSOI3.BSI1.BSI2.BSI3.BOTSI1.BDTSI2. 
a.BDTS13.BDRSIl.BDRSI2.BDRSI3 

COMMON/ VM/N80D  »NB( 11). NTP . ALNGTH . TM . DELTP . I NPR . IPROB . RC ( 6 ) . DC . 
SRSK3) .VSI (3) .DSI.ISPH.RVS(6) .VMU.B.BDT.BDR.DELTH.TIMINT. INCMT. 
$IEPHEM.ICL.IPRINT.RE(6) .RTP(6) .ICL2 
DIMENSION  RK6)  .6A{3.6)  .5(3.3)  .PI  (17. 17)  .RF (6)  .P2(6.6) 

DIMENSION  GAP (3. 6) .EGVL(3) .EGVCT(3»3) .EXV(3) .EXEC (3. 3) 

DIMENSION  VEI6(9) .ADA(3.6) .DUM(2,2) 

C CALCULATE  P(TEVN.TRTMl) 

MAX=60 

0ELTM=TEVN-TRTM1 
ITEMP=(NDIM-l)/6+l 
CALL  NTM(RI.RF.NTMC.I) 

401  ISPHC=ISPH 
DO  5 1=1.6 
5 XF(I)=RF(I) 

IPGN=IP6N+1 

WRITE (6. 3000)  (MDNM( ITR.  I) . 1=1.2) .TEVN. IPROB. IPGN 
LINES=9 

WRITE (6. 3012)  TEVN 

WRITE(6.3001)  (CMPNM(IAUG.I) .XF(l) .I=1.NDIM) 

LINES=LINES+NDIM+1 
CALL  PSIM (RI.RF. ISTMC) 

WRITE(6.3003)  TEVN»TRTMl 

LINES=LINES+5 

DO  2 I=1.NDIM 

IF(LINES.LT. MAX-4)  GO  TO  1 
IPGN=IPGN+1 

WRITE (6 .3000 ) ( MDNM ( ITR . I ) . 1=1 . 2 ) . TEVN. IPROB . IPGN 
LINES=9 

1 IF  (NDIM.EQ.6)60  to  13 
WRITE  (6,3004)1 


3X3 


13 

2 


3 


4 


14 


15 

6 

199 


200 


201 


210 

220 


221 

230 

240 


241 

250 

260 


LINES=LINES+1 

WRITE  (6f3005)  (PSI(I» J) »J=l»NDlM) 

LINES=LINES+ITEMP 

CALL  DYNO(O) 

1F(LINES.LT. MAX-8)  60  TO  3 
1PGN=1P6N+1 

WRITE(6»3000)  ( MDNM ( ITR» I ) » 1=1 » 2) »TEVN» IPROB» IPGN 

LINES=9 

write  (6»3006) 

WRITE  (6»3005)  (Q(ltl) tl=lfNOlM) 

LlNES=LINES+8 
CALL  NAVMUrl) 

IF(LINES.LT. max-8)  GO  TO  4 
IPGN=IP6N+1 

WRITE (6 » 3000)  (MDNM( ITR» I ) » 1=1 f 2) »TEVN» IPROB» IPGN 
LINES=9 

write  (6f3007)  TEVN»TRTM1 

LINES=LINES+5 

DO  6 I=lrNDIM 

IF(LINES.LT. MAX-4)  GO  TO  14 
IP6N=IPGN+1 

WRIT£(6»3000)  (MDNM( ITR» I ) » 1=1 »2) , TEVNf IPROB» IPGN 
LINES=9 

IF  (NDIM.EQ.6)  GO  TO  15 
WRITE  (6»3004)  I 
LINES=LINES+1 

WRITE  (6»3005)  (P(I» J) »J=1»NDIM) 

LINE5=LINES+ITEMP 

IC0DE2=1 

ICODE=0 

K=0 

DO  200  J=l»3 
DO  200  I=l»3 


S(I»J)=P(I»J) 

K=K+1 


VEIG(K)=P(I»U) 

CALL  JACOB I ( VE IG » E6VL » EGVCT » 3 » FOp ) 
IF(LINES.LT. MAX-16)  GO  TO  201 


IP6N=IPGN+1 

WR1TE(6»3000)  (MONM( ITR» I ) . I=l»2) »TEVN» IPROB» IPGN 
LINES=9 

WRITE(6»2000)  ( I » E6VL ( I ) » 1=1 »3) 

WRITE (6» 2001)  (I» (EGVCT (If J) » J=l»3) * I=l»3) 

LINES=LINES+16 

IF(IHYPl-2)  220»230»220 

IF(L1NES.LT, MAX-16)  GO  TO  221 

IP6N=IPGN+1 

WRITE(6»3000)  (MDNM(lTRfl) » I=l»2) »TEVN» IPROB» IPGN 
LINES=9 

CALL  HYELS(lrS»3) 

LINES=LINES+16 
IF(IHYPl-l)  240»250»240 
IF(LINES.LT. MAX-16)  GO  TO  241 


IPGN=IPGN+1 

WRITE(6»3000)  (MDNM(ITR»I) f I=l»2) »TEVN» IPROB» IPGN 
LINES=9 

CALL  HYELS(3»S»3) 

LINES=LINES+16 
IF(1CODE)260»260»290 
IF(IEIG)  290»290»270 


270  K=0 

DO  280  U=l»3 
DO  280  I=l»3 
K=K+1 

S(IfsJ)  =P(I+3»J+3) 

280  VEIG(K)=S(I»J) 

CALL  JACOBI (VEIGrEGVL»E6VCT»3»F0V) 

IF(LINES.LT. MAX-16)  GO  TO  281 
IPGN=IPGN+1 

WRITE(6»3000)  (MDNM ( ITR» 1 ) r 1=1 »2) rTEVN» IPROBf IPGN 
LINES=9 

281  WRITE(6»2002)  { I »EGVL( I ) » 1=1 »3) 

WRITE (6»2003)  ( I ► (EGVCT( I » J) » J=l»3) » I=l»3) 

LINES=LINES+16 

ICODE=l 

GO  TO  210 

290  GO  TO  (300f310»320) » IC0DE2 

300  DO  10  I=lrNDlM 

DO  10  J=1»ND1M 
P1(I»J)=P(I»J) 

10  P(IfJ)=PG(Ifd) 

DO  20  1=1,6 

20  RI(I)=XG(I) 

C CALCULATE  P (TEVN, TKC-1 ) 

DELTM=TEVN-TG 

TRTM1=TG 

CALL  PSIM(RI,RF»ISTMC) 

IFILINES.LT, MAX-8)  GO  TO  7 

WRITE (6, 3000)  (MDNM ( ITR, I ) , 1=1 ,2 ) , TEVN, IPROB,IPGN 
LINES=9 

7 WRITE  (6,3003)  TEVN,TG 
LINES=LINES+b 

DO  8 I=1,NDIM 

IF(LINES.LT. MAX-4)  GO  TO  16 

WRITE(6,3000)  (MDNM ( ITR , I ) , 1=1 , 2) ,TEVN» IPROB, IPGN 
LINES=9 

16  IF  (NDIM.EQ.6)  GO  TO  17 
WRITE  (6,3004)  I 
LINES=LINES+1 

17  WRITE  (6,3005)  (PSI ( I , J) , J=1 ,NDIM) 

8 ’ LINES=LINES+ITEMP 

CALL  OYNO(O) 

IF(LINES.LT, MAX-8)  GO  TO  9 
IPGN=IPGN+1 

WRITE (6, 3000)  (MDNM ( ITR, I) , 1=1,2) ,TEVN» IPROB,IPGN 
LINES=9 

9 WRITE(6,3006) 

WRITE(6,3005)  (Q(I, I) , I=1,NDIM) 

LINES=LINES+8 

CALL  NAVM(1,1) 

IF(L1NES.LT. MAX-9)  GO  TO  11 
IPGN=IPGN+1 

. WRITE(6,3000)  (MDNM( ITR, I ) , 1=1 ,2) ,TEVN, IPROB, IPGN 

LINES=9 

11  WRITE  (6,3008)  TEVN,TG 
LINES=LINES+5 

DO  12  I=1,ND1M 
IF(LINES»LT, MAX-4)  GO  TO  18 
IPGN=IPGN+1 

WRITE(6,3000)  (MDNMdTR, I)  ,1=1,2) , TEVN, IPROB,  IPGN 
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LINES=9 

18  IF(NDIM,EQ.6)  GO  TO  19 

WRITE(6f3004)  I 
LINES=LINES+1  # 

19  WRITE (6» 3005)  (P ( I r J) » J=lf NDIM) 

12  UINES=LINES+ITEMP  j 

IC0DE2=2 
GO  TO  199 
310  DO  30  1=1 »6 

DO  30  J=l»6 

30  P2(If J)=P(IfD) 

NGE=NGE+1 

IGP=ICDT3(NGE) 

1QP=ICDQ3(N6£) 

CALL  GUID  ( RF » IGP » TEVN » C^A  r ADA ) 

IFdSPH.EQtO)  GO  TO  105 

31  DO  50  1=1 r3 
DO  50  J=lr6 
GAP(I» J)=0. 

DO  50  K=l»6 

50  GAP(IrD)=eAP(I»J)+GA(IrK)*P2(K»vJ) 

IPGN=IPGN+1 

WRITE(6r3000)  (MDNMdTR » I ) » 1=1  »2) » TEVN»  IPROB » IPGN 

LINES=9 

DO  60  1=1 » 3 

DO  60  J=lr3 

S(I»vJ)=0. 

DO  60  K=l»6 

60  S ( I » J ) =S ( I ► J ) +GAP ( I » K ) *GA ( J f K ) 

WRITE(6f3009)  ( (SUfJ)  f J=1f3)  f I=1f3) 

LiNES=LINES+8 
IFdQP.NE.O)  GO  TO  40 
TRS=SdFl)+S(2F2)+Sl3F3) 

U=S(1f1)*(S{2f2)+S(3f3) )+S(2f2)*S(3f3)-S(1f2)*S<1f2)-S<1f3)*S(1f3) 
5-S(2f3)*S{2f3) 

RHO=SQRT ( 2 .*TRS/3 . 1415926 ) * d . +U* (1 . 1415926 ) / C TRS*TRS*2 , 3238 ) ) 
SDV=SQRT ( TRS-RHO*RHO ) 

WRITE (6 F 3013)  RHO 
WRITE(6f3017)  SDV 
LINES=LINES+2 
DUMl=SdFl)+S(2F2) 

EXEC  ( Id)  =S  d F I ) * (SIGPRO+SIGRES/TRS  ) +S  ( 2 f 2 ) * ( TRS*SIGALP/DUM1 ) 

$+5 ( 1 F 1 ) *S (3  F 3 ) *SIGBET/DUM1 

EXEC (1 F 2 ) =S (1 F 2 ) * { SIGPR0+SIGRES/TRS-TRS*SIGALP/0UM1+S ( 3 F 3 ) *SIGBET/ 
SDUMl) 

EXEC(2f1)=EXEC(1f2) 

EXECd  F 3 ) =S ( 1 f3 ) * ( SIGPRO+SIGRES/TRS-SIGBET ) 

EXEC(3Fl)=EXECdF3) 

EXEC ( 2 F 2 ) =S ( 2 F 2 ) * (SIGPRO+SIGRES/TRS ) +5 d F 1 )^TRS*SI6ALP/DUMl+S (2 F 2 ) 
S*S ( 3 F 3 ) ♦SIGBET/DUMI 

EXEC ( 2 F 3 ) =S (2  F 3 ) ♦ ( SIGPRO+SIGRES/TRS-SIGBET ) 

EXEC(3f2)=EXEC(2f3) 

EXEC (3  F 3 ) =S ( 3 F 3 )♦ ( SIGPRO+S IGRES/TRS ) +DUM1*SI6BET 
GO  TO  75 

40  TRS=SdFl)+S(2F2)+S(3F3) 

U=SdFl)*(S(2F2)+S(3F3)  )+S{2F2)*S(3F3)-SdF2)*SdF2)-S<lF3)*SdF3) 
*-S(2f3)*S{2f3) 

RHO=SQRT ( 2 . *TRS/3 . 1415926 )♦ (1 . +U* ( 1 . 1415926 ) / ( TRS*TRS*2 , 3238 ) ) 
SDV=SQRT(TRS-RHO*RHO) 

WRITE(6f3013)  RHO 
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WRITE(6»3017)  SDV 
LINES=LINES+2 

CALL  JACOB I ( S » EGVLf EG VCT  f 3 »FOV ) 
WRITE(6»1000)  (IfEGVLd)  »I=1»3) 

WRITE  (6d001)  (I»  (EGVCT(IfJ)  »J=1»3)  »I=1»3) 

HNES=LINES+16 

AMAX=EGVL(1) 

MAP=1 


IF(AMAX.GE.EGVL(2) ) 
AMAX=EGVL(2) 

MAP=2 

60 

TO 

70 

70 

IF{AMAX,GE.E6VL(3) ) 

60 

TO 

71 

AMAX=EGVL(3) 

MAP=3 

71  EGM=SQRT ( EGVCT ( MAP » 1 ) *EGVCT ( MAP » 1 ) +EGVCT ( MAP  1 2 ) ♦EGVCT ( MAP » 2 ) + 
$EGVCT(MAP»3)*EGVCT(MAP»3) ) 

DUM  = RHO/EGM 

EXV ( 1 ) =EGVCT ( MAP  * 1 ) *DUM 

EXV(2)=EGVCT(MAP»2)*0UM 

EXV(3)=EGVCT(MAP»3)*DUM 

IF(LINES.LT. max-5)  60  TO  72 

IPGN=IPGN+1 

WR I TE { 6 » 3000 ) ( MDNM ( ITR » I ) » 1=1 » 2 ) * TEVN  t IPROB » IPGN 
LINES=9 

72  WRITE(6»3015)  EXV 
LINES=LINES+5 
X2=EXV(1)*EXV(1) 

Y2=EXV(2)*EXV(2) 

Z2=EXV(3)*EXV(3) 

DUM1=X2+Y2 

EXM=DUMl+22 

DUM2=S1GRES/EXM 

EXEC ( 1 » 1 ) =X2* ( SIGPR0+DUM2 ) +Y2*EXm*SIGALP/DUM1+X2»Z2*SIGBET/DUM1 
EXEC ( 1 » 2 ) =EXV ( 1 ) *EXV ( 2 ) * ( SIGPR0+DUM2-EXM*SIGALP/DUM1+Z2*SIGBET/ 
$DUM1) 

EXEC(2»1)=EXEC(1»2) 

EXEC ( 1 » 3 ) =EXV ( 1 ) *EX V ( 3 ) * ( S IGPR0+DUM2-SIGBET ) 

£XEC(3»1)=EXEC(1»3) 

EXEC(2»2)=Y2*(SIGPR0+DUM2)+X2*EXM*SIGALP/DUM1+Y2*Z2»SIGBET/DUM1 
EXEC (2 » 3 ) =EXV ( 2 ) *EXV ( 3 ) * ( SIGPR0+DUM2-SIGBET ) 

EXEC(3f2)=EXEC(2»3) 

EXEC ( 3 » 3 ) =Z2* ( S I6PR0+DUM2 ) +DUM1+SI68ET 
75  DO  80  I=lrNDIM 

DO  80  JrlrNDlM 
P(I»J)=Pl(IfJ) 

80  P6(I»J)=P1(I»J) 

WRITE (6» 3010)  ( (EXECdfJ) » J=1 » 3) » 151 » 3) 

LINES=LINES+8 
DO  81  I=lf3 
DO  81  J=l>3 

81  Sd»J)=EXECd»J) 

IC0DE2=1 

88  IF(LINES.LT. MAX-16)  GO  TO  82 

IPGN=IPGN+1 

WRITE(6»3000)  (MDNM(ITR» I ) » 1=1 »2) » TEVN» IPROBf IPGN 
LINES=9 

82  CALL  JACOBI (S»EGVL»EGVCT»3»FOV) 

WRITE(6d000)  dfEGVLd)  »I=1»3) 

WRITE(6rl001)  d » (EGVCTd*  J) » J=lr3) » I=l»3) 

LINES=LINES+16 
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IF(IHYP1.EQ.2)  GO  TO  84 
IF(LINES.LT. MAX-16)  GO  TO  83 
IPGN=IPGN+1 

WRITE (6» 3000)  (MDNM( ITRr I) » 1=1 »2) »TEVN» IPROB» IPGN 
LINES=9 

83  CALL  HYELS(1»EXEC»3) 

LINES=LINES+16 

84  IF(IHYPl.EQ.l)  GO  TO  86 

IF (LINES, LT. MAX-16)  GO  TO  85 
IPGN=IPGN+1 

WRITE(6»3000)  (MONM( ITR* I) » 1=1 »2) »TEVN» IPROB» IPGN 
LINES=9 

85  CALL  HYELS(3»EXEC,3) 

LINES=LINES+16 

86  GO  TO  (87,330)  , IC0DE2 

87  DO  90  1=1,3 
DO  90  J=l,3 

DUM  = P(I+3,J+3)  + EXEC(I,J) 

P(I+3,J+3)=DUK 

90  PG(I+3,J+3)=DUM 
IF(LINES.LT. MAX-8)  GO  TO  91 
1PGN=IPGN+1 

WRITE(6,3000)  (MDNM(ITR,I) ,1=1,2) ,TEVN, IPROB, IPGN 
LINES=9 

91  WRITE(6,3011)  TEVN»TEVN 
LINES=LlNES+5 

DO  92  1=1,NDIM 
IF(LINES.LT, MAX-4)  GO  TO  93 
IPGN=IPGN+1 

WRITE(6,3000)  (MDNM( ITR, I) , 1=1,2) ,TEVN, IPROB, IPGN 
LINE5=9 

93  IF  (NDIM»EQ.6)  GO  TO  94 
WRIT£(6,3004)  I 
LINES=LINES+1 

94  WRITE(6,3005)  (P ( I , J) , J=1 ,NDIM) 

92  LINES=LINES+ITEMP 
IC0DE2=3 

GO  TO  199 

320  NN=3 
IF(IGP«EQ,2)  NN=2 
DO  321  I=1,NN 

DO  321  J=1,NN 
S(I,J)=0. 

DO  321  K=l»6 
DO  321  L=l»6 

S(I,J)=S{I»d)+ADA(I,K)*P(K»L)*ADA(vJ,L) 

321  EXEC(I»d)=S(I,0) 

IF(LINES.LT, MAX-8)  GO  TO  328 
IPGN=IPGN+1 

WRITE(6,3000)  (MDNM( 1TR,1 ), 1=1 ,2) ,TEVN, IPROB, IPGN 
LINES=9 

328  IF(IGP,EQ,2)  GO  TO  322 

WRITE(6,3014)  ( (S(I,J) ,0=1,3) ,1=1,3) 

LINES=LINES+8 
IC0DE2=2 
GO  TO  88 

322  WRITE(6,3016)  ( (S(I,J) ,0=1,2) ,1=1,2) 

LlNES=LINES+8 

IF(LINES.LT. MAX-16)  GO  TO  323 
IPGN=1PGN+1 


WRITE(6»3000)  (MDNM(1TR» I ) » I=l»2) .TEVNr IPR0B» IPGN 
LINES=9 

323  K=0 

DO  324  J=l»2 
DO  324  1=1 » 2 
K=K+1 

324  VEIG(K)=S(If J) 

CALL  JACOBI (VEIG»EGVL»DUM  »2fF0V) 

WRlT£(6rlOOO)  (I»EGVL(I)  a=l»2) 

WRITE(6*1002)  (I»  ( DUM(I»J) »J=1»2)  rl=l*2) 

LINES=LINES+14 

IF(IHYP1.EQ.2)  go  to  326 

IF(LINES.LT. MAX-9  ) 60  TO  325 

WRITE (6 » 3000)  (MDNMdTR^K)  »K=1»2)  »TEVN»IPROB 

LINES=9 

325  CALL  HYELSU»EXEC.2) 

LINES=LINES+8 

326  IF(IHYPl.EQ.l)  GO  TO  330 

IF (LINES. LT. MAX-9  ) 60  TO  327 
IP6N=IP6N+1 

WRITE ( 6 . 3000 ) ( MDNM ( ITR » I ) . 1=1 » 2 ) » TEVN » IPROB . IPGN 
LINES=9 

327  CALL  HYELS(3»EXEC,2) 

LINES=LINES+8 

330  DO  100  1=1 » 6 
XG(I)=XF(D 

100  XI(I)=XF(I) 

DO  101  I=7»NDIM 

101  XI(I)=XF(I) 

T6=TEVN 

TRTM1=TEVN 

ISPH=ISPHC 

RETURN 

105  DO  120  I=1»NDIM 
120  XI(1)=XF(D 

trtmi=tevn 

DO  125  I=1»NDIM 
DO  125  J=1»NDIM 
125  P(I»J)=P1(I.J) 

ISPH=ISPHC 

RETURN 

1000  FORMAT {///20X*E16ENVALUES  OF  ABOVE  MATRIX*/3(22X»I2»E20.10/) ) 

1001  FORMAT(///20X*EIGENVECTORS  of  above  MATRIXV3(22X»I2»3E20,10/) ) 

1002  FORMAT (///20X*EIGENVECT0RS  OF  ABOVE  MATRIX»/2(22X.I2»2E20.10/) ) 

2000  FORMAT(///20X*POSITION  EIGENVALUES  OF  ABOVE  MaTRIX*/3(22XI2E20.10/ 
4)) 

2001  FORMAT (///20X*POSITION  EIGENVECTORS  OF  ABOVE  MATRlX*/3(22XI2»3E20. 
$10/)) 

2002  FORMAT (///20X*VELOCITY  EIGENVALUES  OF  ABOVE  MATRIX*/3(22XI2E20.10/ 
$)) 

2003  FORMAT (///20X»VEL0CITY  EIGENVECTORS  OF  ABOVE  MATRIX*/3 (22X12. 3E20. 
$10/)) 

3000  FORMAT  ( lHl//aX2A10*—  GUIDANCE  EVENT  AT  TRAJECTORY  TIME  ♦F12.3. 
$♦  DAYS*/90X*PROBLEM.  .♦I10.5X*PAGE.  .♦I8///1X. 130 (IH*)//) 

3001  FORMAT(10X»A10»E20.13) 

3002  FORMAT  (IHI) 

3003  FORMAT  (///8X*STATE  TRANSITION  MATRIX  — PSI (*F12.3»»*F12.3*)*/) 

3004  FORMAT (10X*R0W*I3) 

3005  F0RMAT(16X.6E17.8) 

3006  FORMAT  (///8X*D1AG0NAL  OF  DYNAMIC  NOISE  MATRIX*/) 


3007  FORMAT {///8X*C0VARIANeE  MATRIX  AT  TIME  OF  GUIDANCE  EVENT  --  P(* 

iFi2.3*»*F12.3*)*/) 

3008  FORMAT  (///8X*C0VARIANCE  MATRIX  RELATING  THE  TIME  OF  THIS  GUIDANCE 
S EVENT  TO  THAT  OF  THE  LAST  GUIDANCE  EVENT  ~ P(*F12.3*»*F12.3*)*/) 

3009  FORMAT (///8X*C0VARIANCE  MATRIX  ASSOCIATED  WITH  VELOCITY  COMPONENTS 
*»/3(8X3E20.10/) ) 

3010  FORMAT (///8X*EXECUTI0N  ERROR  MATRIX=«=/3(12X»3E20.10/)  ) 

3011  FORMAT (///8X+M0DIFIED  COVARIANCE  MATRIX  AT  TIME  OF  GUIDANCE  EVENT 
S — P(*F12.3*f»Fl2*3*)*/) 

3012  FORMAT (8X*STATE  VECTOR  AT  TIME  * F12.3*  DAYS*/) 

3013  FORMAT (/10X*EXPECTED  VALUE  OF  DELTA  V.  . .*E20.10) 

3014  FORMAT (///8X*UNCERTAINTY  IN  TARGET  CONDITION  AFTER  CORRECTION*/ 
$3(10Xf3E20»10/) ) 

3015  FORMAT {///aX*EXPECT£D  VALUE  OF  VELOCITY  CORRECTION*/8X3E20.10) 

3016  F0RMAT(///8X*UNCERTaiNTY  IN  TARGET  CONDITION  AFTER  CORRECTION*/ 
S2U0Xf2E20.10/) ) 

3017  FORMAT ( /10X*STANOARD  DEVIATION  OF  EXPECTEO  VALUE  OF  DELTA  V.  . .* 
4E20,10) 

END 
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SUBROUTINE  GUIS ( RF  r RFl » I6P » TEVN ► GA » ADA ) 

COMMON/BLK/T » PMASS ( 1 1 ) » CN ( 80 ) » ST ( 50 ) » EMN ( 15 ) . SMJR ( 18 ) 

COMMON  /BLK/RADIUS(11) »RMASS(I1) »NO(ll) »ELMNT(80) rSPHERE(ll) »XP(6) 
COMMON/CONST/OMEGA»EPS»NSTrSAL(3) f SLAT(3) t SL0N(3) fDNCN(3) »MNCN(12) 
COMMON  /C0NST2/U1 » U2 » U3 » VI » V2 » V3 » W1 » W2 , W3 » FOP i FOV 
COMMON/EVENT/NEV » TEV ( 50 ) » lEVNT (50 ) r IHYPl t lEIG » TPT2 (20 ) » 

$ICDT3(20) »NPE»NGE»IPOL»I1POL»ICDQ3(20) »SI6RESfSIGPR0»SIGALPfSIGBET 
S f NEVl » NEV2 » NEV3  r NEV4 » NQE 
C0MM0N/GUI/PG(17»17) ,XG(6) »TG»EM(2»6) 

COMMON/MISC/ACC » IDNF » ICOOR » ITR  f IMNF » FACP » FACV » ISP2 1 BI A ( 12) * IP6N 
COMMON  /NAME/MDNM(4»2) »EVNM(4) »MNNAME{12»3) »CMPNM(11»17) 

COMMON  /SIM1/XI1(17) »XF1(17) ,ADEVX(17) »EDEVX(17) rW(17) »Z(17) » 
SAN0IS(17) rRES(4) »EY(4) fAY(4) »AR(4.4) »ZI (17) »ADEVXB(17) 
C0MM0N/SIM2/NB1 ( 11 ) » ACCl » NBODl 

COMMON/STM/P ( 17 » 17) »PSI ( 17» 17) »Q ( 17rl7) f H(4» 17) » R(4»4) » AK ( 17» 4) 
*rPB(17»17)fPSIP(17»17) »HPHR(4»4) 

COMMON/ST VEC/XI ( 17 ) fXF ( 17 ) » NOIM » I AUG » XB ( 17 ) 

COMMON/TIM/DATE J » TRTMI » DELTm  » FNTM  » UNI VT » TRTMB 
COMMON/TRAvJCD/NTMC » ISTMC » ISTMl » DTMAX  r NDACC » ACCND 
COMMON/TRJ/ISOIl » IS012  r IS0I3 » IC A1 f ICA2 » ICA3 » RCAl ( 6 ) » RCA2 ( 6) » 
$RCA3(6) »RS0I1(3) »RS0I2(3) fRS0l3(3) »VS0I1(3) »VS0I2(3) »VS0I3(3) » 
$TCAl»TCA2fTCA3»TS0ll»TS0I2»TS0l3fBSIl»BSI2»BSl3»BDTSllfB0TSI2» 
$BDTSI3»BDRSI1»BDRSI2»BDRSI3 

COMMON/ VM/N800 ► NB ( 1 1 ) » NTP » ALNGTH » TM » OELTP » INPR » IPROB » RC ( 6 ) » DC » 
$RSI(3)  »VSK3)  »DSI»  ISPH»RVS(6) » VMU»B»BDT»BDRf  DELTH»TrMINT»  INCMTf 
4 lEPHEM » ICL » IPR INT  r RE ( 6 ) r RTP ( 6 ) » 1CL2 
DIMENSION  RK6)  »RF(6)»  RI1(6)  f RFl(6)  ^GA(3r6)  i ADA(3»6)  »XCA(6) 
DIMENSION  PHI1(3»3) »PHI2(3»3) »PBT(6) »PBR(6) » A(2r3) »BB(2f 3) 
DIMENSION  PHI3(2»2) »EGVL(3) »EGVCT(3»3) »RTPS(6) »DUM(2f 2) fDUMl(2»2) 
MAX=60 
IPGN=IPGN+1 

WRITE(6»3000)  TEVN» IPROB» IPGN 
LINES=9 

60  TO  (10»200»200) » IGP 
10.  TRTM1=TEVN 

deltm=fntm-tevn 

IPR=IPRINT 
IPRINT=1 
ICS=ICL2 
ICL2=NTP 
DO  20  1=1  »6” 

20  RI(I)=RF(I) 

CALL  NTM(RI»RF»NTMC»-1) 

TS011=DSI-DATEJ 

IPRINT=IPR 

ICL2=ICS 

IF  (ISPH.EQ.l)  60  TO  25 

WRITE(6»3003) 

eo  TO  500 

25  CALL  PARTL(RSI»VSI»B1»BDT1»BDR1»PBT»PBR) 

DO  30  1=1 »6 
EM(1»I)=PBT(I) 

30  EM(2»I)=PBR(I) 

TCA=DC-DATEU 

RMCA=SQRT  ( RC  ( 1 ) *RC  ( 1 ) +RC  ( 2 ) *RC  ( 2 ) +RC  ( 3 ) ♦RC  ( 3 ) ) 

VMC A=SQRT  ( RC  (4 ) =t=RC  ( 4 ) +RC  (5 ) *RC  ( 5 ) +RC  ( 6 ) *RC  ( 6 ) ) 

WR1TE(6»3040)  TCAr(RC( I) » I=l»3) »RMCA» (RC ( I ) » I=4»6) » VMCA 
LINES=LlNES+5 

WRITE(6»3041)  ( (EM( I »U) »U=1 »6) »I=1»2) 

LINES=LINES+8 


DO  40  1=1 » 6 

40  RIKI)=RF1(I) 

IF(NQE.NE.O)  GO  TO  42 
DO  41  1=1 » 6 

41  RF1(I)=RF(1) 

GO  TO  43 

42  1PR=IPRINT 
ICLS=ICL2 
IPRINT=1 
ICL2=NTP 

CALL  NTM(RIl»RFl»NTMC»-2) 

ICL2=ICS 

IPRINT=1PR 

43  IF  (ISPH.EQ.l)  60  TO  50 
WRITE (6» 3002) 

GO  TO  500 
50  NOtl)=NTP 

CALL  0RB(NTP»DC) 

CALL  EPHEM(1»DC»1) 

00  60  1=1 r 3 

XCA ( I ) =RC ( 1 ) +XP ( I ) ♦ALN6TH 
60  XCA ( 1+3 ) =RC ( 1+3 ) +XP ( 1+3 ) ♦ALN6TH/TM 

TCA=DC-DATEJ 

RMC A=SQRT ( RC ( 1 ) »RC ( 1 ) +RC  < 2 ) *RC ( 2 ) +RC ( 3 ) *RC ( 3 ) ) 

VMCA=SQRT ( RG (4 ) ♦RC ( 4 ) +RC ( 5 ) ♦RC ( 5 ) +RC ( 6 ) *RC  C6 ) ) 
WRITE<6»3001)  TCA»  (RC(1) » 1=1»3)  »RMCA»  (RCU)  rl=4f6)  rVMCA 
L1NES=L1NES+11 
CALL  ORBlNTPrDSI) 

CALL  EPHEMd+DSIrl) 

DO  70  I=l»3 

RFl ( I ) =RSI ( I) +XP ( I ) +ALN6TH 

70  RFl (1+3)=VSI ( I )+XP (1+3)*ALN6TH/TM 
OELTM=DSI-DATEsJ-TEVN 

CALL  PSlM(RIlfRFlflSTMC) 

DO  71  1=1»N0IM 
DO  71  s)=l»NDlM 

71  PSIP(I»J)=PSI(I»J) 

DELTM=TCA- < DS I-OATE J ) 

Ol=DTMAX 

DTMAX=300. 

CALL  PSIM(RF1»XCA»1STMC) 

DTMAX=D1 
DO  72  1=1»N01M 
DO  72  J=1»NDIM 

72  Q{I»J)=PSI<I»U) 

DO  73  1=1»ND1M 
DO  73  J=1»ND1M 
PSI(I»J)=0. 

00  73  K=1»ND1M 

73  PSI ( I » J ) =PS I ( 1 » J ) +Q ( I » K ) ♦PS IP ( K » J) 

IF(L1NES.LT.MAX-9)60  TO  80 
IP6N=IPeN+l 

WRITE<6»3000)  TEVN» IPROB» IP6N 
L1NES=9 

80  WRITE (6 *3004)  TCA*TEVN 

LINES=LINES+5 
DO  83  I=1»NDIM 
IF (LINES.lt. MAX-4)  GO  TO  81 
IPGN=IP6N+1 

WRITE ( 6 * 3000 ) TEVN  * IPROB  * IPGN 
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HNES=9 

81  IF(N0IM.£q,6)  go  TO  82 
WRITe(6f3005)  1 
HNE5=LINES+1 

82  WRITE(6r3006)  (PSI ( I » J) » J=1 »NDIM ) 

83  LINES=UNES+  lNDlM-1 ) /6+1 
DO  90  1=1,3 

DO  90  J=l,6 

90  ADAU»J)=PSin»J) 

91  IFCLINES.LT. MAX-8  ) GO  TO  100 

1P6N=IPGN+1 

WRITE (6, 3000)  TEVN aPROB » IPGN 
LINES=9 

100  WRITE{6»3007) ( ( ADA ( I » J>  » J=l,6) »I=1,3) 

LINES=L1NES+8 
DO  110  I=l»3 
DO  110  0=1»3 
PHIKI»J)=0. 

DO  110  K=l»6 
DO  110  L=l»6 

110  PHI1(I»J)=PHI1(I»J)+ADA<I»K)*P(K»L)*ADA(J»L) 
IF  (LINES, LT, MAX-8)  GO  TO  120 
IPGN=IPGN+1 

WRITE(6,3000)  TEVN » IPROB r IPGN 
LINES=9 

120  WRITE(6,3008)  ( (PHll ( I » J ) , J=1 , 3) , 1=1, 3) 

LINES=LlNES+8 
DO  130  1=1,3 
DO  130  vJ=l,3 

130  PHI2(I»vJ)=PHIl{I,J) 

CALL  JACOB I (PHI2 » EGVL » EGVCT , 3 , FOV ) 
IF(LINES.LT.MAX-14)  go  to  131 
IPGN=IPGN+1 

WR I TE ( 6 , 30 00)  TE VN  rl PROB » IPGN 
LINES=9 

131  WRITE(6,3009)  ( I rEGVL d) ► 1=1 » 3) 

WRITE(6,3010)  (I, (EGVCT(I,J) , J=l,3) » I=l»3) 
LINES=LINES+14 

IF(IHYPl-2)  140»150,140 

140  IF (LINES.lt. MAX-16)  GO  TO  141 
IPGN=IPGN+1 

WRITE  (6, 3000)  TEVNdPROB » IPGN 
LINES=9 

141  CALL  HYELS(lfPHllf3) 

LINES=LINES+16 

150  IF  (IHYPl-l)  151d60,151 

151  IF  (LINES.lt. MAX-16)  60  TO  152 
IPGN=IPGN+1 

WR I TE ( 6 , 30 0 0 ) TE VN » IPROB » IPGN 
LINES=9 

152  CALL  HYELS(3»PHI1»3) 

LINES=LINES+16 

160  DO  161  1=1,3 
DO  161  J=l,3 
PHIl(I»J)=ADA(IrJ) 

161  PHI2(I»J)=ADA(1»J+3) 

CALL  MAT1N(PHI2»PHI2,3) 

DO  170  1=1,3 

DO  170  J=l»3 
6A(I»J)=0. 
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DO  170  K=lr3 

170  GA ( I » J ) =6A ( I » J ) -PH 12 ( I f K ) *PHI 1 (K . J ) 

DO  ISO  1=1 » 3 
DO  180  U=4»6 
180  GA(I»J)=0, 

GA(1»4)=“1. 

GA(2»5)=-1. 

GA(3»6) =-l. 

IF(LlNES.LT,MAX-8)  GO  TO  190 
IPGN=IPGN+1 

WRITE  (6»3000)  TEVI\I»  IPROB»  IPGN 
LINES=9 

190  IF(IGP.EQ,3)  GO  TO  191 
WRITE(6»3011)  ( (6A(1»J) »J=1»6) »I=1»3) 

LINES=LINES+8 

GO  TO  500 

191  WRITE(6»3012)  ( (GA ( I » J) » J=1 »6) » I=l»3) 

LINES=LINES+8 

GO  TO  500 

200  DELTM=FNTM-TEVN 
DO  210  I=l»6 
RIia)=RFl(I) 

210  RKI)=RF(I) 

IPR=IPRINT 

IPRINT=1 

ISPS=1SP2 

ISP2=NTP 

TRTM1='TEVN 

IF(ISOll.EQ.l)  GO  TO  500 
CALL  NTM(Rl»RFfNTMCf-l) 

IPRINT=IPR 

ISP2=ISPS 

IFdSPH.EQ,!)  GO  TO  220 
WRITE(6»3003) 

GO  TO  500 

220  TS0I1=DSI-DATEJ 

CALL  PARTL ( RSI » VSI » B1 » BDTl f BDRl » PBT » PBR ) 

DO  230  I=l»6 
EM(1»I)=PBT(I) 

230  EM(2»I)-PBRU) 

TSI=DSI-DATEJ 

RMSI=SQRT(RSI(1)*RSI(1)+RSI(2)*RSI(2)+RSI(3)*RSI(3) ) 
VMSI=SQRT(VSI(1)*VSI(1)+VSI(2)*VSI{2)+VSI(3)*VSI{3) ) 
WRITE ( 6 » 3042 ) TS I » RS I » RMSI » VSI » VMS I f B r BDT » BDR 
LINES=LINES+7 

WRITE (6»3041)  ( (EM(I»J) f J=l»6) » I=l»2) 

LINES=LINES+8 
IF(NQE.NE.O)  GO  TO  250 
DO  240  I = 1»6 
240  RF1(I)=RF(I) 

GO  TO  270 
250  IPR=IPRINT 
IPRINT=1 
ISPS=ISP2 
ISP2=NTP 

CALL  NTM(RI1»RF1»NTMC»-2) 

ISP2=ISPS 

IPRINT=IPR 

IF  (ISPH.EQ.l)  GO  TO  270 
WR1TE(6»3002) 
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GO  TO  500 

270  TSI=DSI-[)ATEJ 
NO(l)=NTP 
CALL  ORBlNTPfOSI) 

CALL  EPHEMUfOSia) 

DO  280  1=1 ► 3 

RTP5 ( I ) =RS I ( I ) +XP ( I ) *ALNGTH 
280  RTPS ( 1+3 ) =VS I { I ) +XP ( I +3 ) ♦ALNGTH/TM 

IF  (LINES, LT, MAX-7)  GO  TO  290 
IPGN=IPGN+1 

WRITE (6 » 3000)  TEVN» IPROB» IPGN 
LINES=9 

290  RMSI=SQRT ( RS I ( 1 ) *RSI { 1 ) +RSI (2 ) *RSl ( 2) +RSI ( 3)*rSI ( 3) ) 

VMSI=SQRT { VSI ( 1 ) *VSI { 1 ) +VSI (2) ♦VS I (2) +VSI (3) *VSI (3) ) 

WR I TE ( 6 » 3013)  TS I » RS I rRMSI f VSI » VMSI » B » BDT f BDR 

HNES=HNES+13 

IF(IGP.£Q,3)  GO  TO  460 

DELTM=:TSI-TEVN 

CALL  PSIM (RI 1 f RTPSf ISTMC ) 

IF(LINES.LT, MAX-9)  GO  TO  300 
IP6N=IP6N+1 

WRITE ( 6 » 3000 ) TEVN » IPROB » IP6N 
LINES=9 

300  WRITE(6+3i)04)  TSlfTEVN 
LINES=LINES+5 

DO  303  l=l»HDIM 
IF(LINES,LT, MAX-4)  GO  TO  301 
IPGN=IP6N+1 

WRITE(6f3000)  TEVN» IPROBrIPGN 
LINESS9 

301  IF(NDIM,EQ,6)  GO  TO  302 
WRITE (6» 3005)  I 
LINES=LINES+1 

302  WRITE(6»3006)  (PSI ( I f J) » J=1 »NDIM) 

303  LINES=L1NES+ (NDIM-l ) /6+1 

CALL  PARTL(RSI  rVSI »B1 fBDT  »BDR1 »PBT  »PBR) 

IF(LINES,LT.MAX-8)  go  to  310 
IP6N=IP6N+1 

WRITE(6f3000)  TEVN» IPROB» IPGN 
LINES=10 

310  WRITE(6»3014)  P8T>PBR 

LINES=LINES+11 
DO  320  1=1 » 3 
A(1»I)=0. 

BB(1»I)=0. 

A(2»I)=0. 

6B{2»I)=0. 

DO  320  J=l»6 

A(lf I)=A(ltI)+PBT{J)*PSI(J*I) 

BB ( 1 » I ) =BB ( 1 1 1 ) +PBT ( J ) *PSI ( J » 1 +3 ) 

A ( 2 » I ) =A ( 2 » I ) +PBR { J ) ♦PSI ( J » I ) 

320  BB { 2 » I ) =BB ( 2 » I ) +PBR ( J ) *PS I ( J » I +3 ) 

IF(LINES.LT, MAX-11)  GO  TO  330 
IP6N=IPGN+1 

WRITE (6 » 3000 ) TEVN » IPROB» IPGN 
LINES=9 

330  WRITE(6»3015) ( (A(I»J) » J=l»3) » I=l»2) t ( (BB(I»J) rJ=l»3) » I=lf 2) 

LINES=LINES+12 
DO  340  1=1 » 2 
DO  340  J=l»3 
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ADA(I»J)=A<I»J) 

340  ADA(IrJ+3)=BB(I»J) 

DO  350  1=1 » 2 
DO  350  J=l»2 
PHI3(I»d)=0, 

DO  350  K=l»6 
DO  350  L=l»6 

350  PHI3  tl » J ) =PHI 3 ( I » J ) + ADA ( I » K ) *P ( K » L ) * ADA ( J » L > 

IF (L1NES.lt. MAX-7)  60  TO  360 
IP6N=lPeN+l 

WR I TE  ( 6 f 3000 ) TEVN » IPROB  f/IP6N 
LINES=9 

360  WRITE(6r3016)  ( (PH13( I »d) » J=1 » 2) » I=l»2) 

LINES=LINES+7 

IF (L1NES.lt. MAX-13)  GO  TO  370 
IP6N=1P6N+1 

WRITE (6.3000)  TEVN* IPROB » I PGN 
LINES=9 

370  DO  371  1=1*2/ 

00  371  0=1*2/ 

371  DUM(l*d)=PHI»(I*J) 

CALL  JACOBI 0UM  * EG VL  * DUMl * 2 * FOV ) 
WRITE(6*3009)  (I*  EGVL( I ) * 1=1*2) 
WRITE(6*3017)  (I* (OUMl(I*J) *J=1*2) *1=1*2) 
LINES=L1NES+13 
IF(IHYPl-2)  380*390*380 

380  IF (LINES. LT.MAX-9)  GO  TO  381 
lP6N=lPeN+l 

WRITE (6*3000)  TEVN  * IPROB  * I PGN 
LINES=9 

381  CALL  HYELS(1*PH13*2) 

LINES=LlNES+8 

390  IF(IHYPl-l)  400*410*400 

400  IF (LINES.lt. max-9)  60  TO  401 
IPGN=IPGN+1 

WRITE ( 6 * 3000 ) TEVN  * IPROB  * IP6N 
LINES=9 

401  CALL  HYELS(3*PHI3*2) 

LINES=LINES+8 

410  DO  420  1=1*2  / 

DO  420  J=l*2 
PHI3(I*J)=0. 

DO  420  K=l*3 

420  PH 1 3 ( I * J ) =PH 1 3 ( I * J ) +BB ( I * K ) *68 ( J * K ) 

CALL  MATIN (PH13*PHI3*2) 

DO  430  1=1*3 
DO  430  J=l*2 
PHI2(I»J)=0. 

DO  430  K=l*2 

430  PH12 ( 1 * J ) =PH12 ( 1 * J ) +BB ( K * I ) ♦PHIS ( K * J ) 

DO  440  1=1*3 
DO  440  J=l*3 
6A(I*J)=0. 

6A(I*J+3)=0. 

DO  440  K=l*2 

6A(I*d)=6A(I*J)-PHl2(I*K)»A(K»J) 

440  GA(I*J+3)=GA(l*J+3)-PH12(I*K)*BB(K*J) 

IF (LINES.lt. MAX-8)  60  TO  450 
IP6N=IP6N+1 

WRITE (6* 3000)  TEVN * IPROB *IPGN 
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UINES=9 

tfSO  WRITE(6f  3018)  ( (GA  ( I » J)  rJ=l »6)  » 1 = 1 r3 ) 

LINES=LINES+8 
GO  TO  500 

460  CALL  VARSIM(RI1»TEVN»TSI»ADA) 

IF(ISPH.EQ.O)  GO  TO  500 
GO  TO  91 

500  RETURN 

3000  FORMAT (lHl//aX*SIMULATION  MODE  GUIDANCE  EVENT  AT  TRAJECTORY  TIM 
$E  *F8.3*  DAYS*/90X*PROBLEM.  .*IlO»5X*PAGE.  . *I8///1X» 130 ( IH*) //) 

3001  FORMAT (///8X*VEHICLE  REACHED  CLOSEST  APPROACH  ON  MOST  RECENT  NOMIN 
$AL  TRAJECTORY  AT  TRAJECTORY  TIME*F12,3*  DAYS* 

'll.  / / Y*  1 QY*Y*1QYsk7skl  ^ Y*RP^ 

$ULTANT*/8X*POSITION  RELATIVE  TO  TARGET  PLANET*4E20.10/8X*VELOCITY 
^RELATIVE  TO  TARGET  PLANET*4E20.10///1X130(1H*) ) 

3002  FORMAT (8X*VEHICLE  DID  NOT  REACH  SPHERE  OF  INFLUENCE  ON  MOST  RECENT 
SNOMINAL  TRAJECT0RY*/8X*RETURNIN6  TO  BASIC  CYCLE*) 

3003  FORMAT (8X*VEHICLE  DID  NOT  REACH  SPHERE  OF  INFLUENCE  ON  ORIGINAL  NO 
5MINAL  TRAJECT0RY*/8X*RETURNlNG  TO  BASIC  CYCLE*)  - 

3004  FORMAT (///8X*STATE  TRANSITION  MATRIX  — PSI (*F8.3*»*F8.3*)*/) 

3005  F0RMAT(10X*R0W*I3) 

3006  FORMAT(12X6Eig.lO) 

3007  FORMAT (///8X*VARIATI0N  MATRIX*/3(8X6E20.10/) ) 

3008  FORMAT (///8X*UNCERTAINTY  IN  TARGET  CONDITIONS  BEFORE  CORRECTION*/ 
S3(8X3E20f 10/) ) 

3009  FORMAT (//20X*EIGENVALUES  OF  ABOVE  MATRIX*/3(22X» I2»  E20.10/)) 

3010  FORMAT(//20X*EI6ENVECTORS  OF  ABOVE  MATRIX*/3(22Xf I2»3E20.10/) ) 

3011  FORMAT (///8X*GUIDANCE  MATRIX  — FIXED  TIME  OF  ARRIVAL  GUIDANCE  POL 
$ICY*/3(8X6E20,10/)) 

3012  FORMAT (///aX*GUIDANCE  MATRIX  — THREE  VARIABLE  B-PLANE  GUIDANCE  PO 
SLICY*/3(8X6E20.10/) ) 

3013  F0RMAT(///8X*VEHICLE  REACHED  SPHERE  OF  INFLUENCE  ON  MOST  RECENT  NO 
SMINAL  TRAJECTORY  AT  TRAJECTORY  TlME*FlDf3*  DAYS*//53X*X*l9X*Y*19X* 
4Z*15X*RESULTANT*/8X*POS1TION  RELATIVE  TO  TARGET  PLANET*4E20,10/8X 
3.*VELOCITY  RELATIVE  TO  TARGET  PLANET*4E20 . 10//8X*B  = *E20.10»5X 
S*B  DOT  T =*E20,10»5X*B  DOT  R = *E20.10///lX130(lH*) ) 

3014  FORMAT (///8X*PARTIAL  OF  B DOT  T WITH  RESPECT  TO  STATE  VECTOR*// 
$6X6E20.10///aX*PARTlAL  OF  B DOT  R WITH  RESPECT  TO  STATE  VECTOR*// 
S8X6E20.10) 

3015  FORMAT (///8X*GUIDANCE  SUB-MATRIX  A*/2(8X3E20.10/)//8X*GUIDANCE  SUB 
S-MATRIX  B*/2(8X3E20,10/) ) 

3016  FORMAT (///8X*UNCERTAINTY  IN  TARGET  CONDITION  BEFORE  CORRECTION*/ 
»2(8X2E20aO/) ) 

3017  FORMAT (///20X*EIGENVECT0RS  OF  ABOVE  MATRIX*/2(22X» I2»2E20,10/) ) 

3018  FORMAT (///aX*GUIDANCE  MATRIX  — TWO  VARIABLE  B-PLANE  GUIDANCE  POLI 
$CY*/3(BX6E20,10/)) 

3040  FORMAT {8X*VEHICLE  REACHED  CLOSEST  APPROACH  ON  ORIGINAL  NOMINAL  TRA 
SJECTORY  AT  TRAJECTORY  TIME*F12.3*  DAYS*//53X*X*19X*Y*19X*Z*15X*RES 
$ULTANT*/8X*POSITION  RELATIVE  TO  TARGET  PLANET*4E20 , 10/8X*VELOCITY 
^RELATIVE  TO  TARGET  PLANET*4E20.10) 

3041  FORMAT (///8X*M  MATRIX*//2{8X6E20, 10/) ) 

3042  FORMAT (8X*VEHICLE  REACHED  SPHERE  OF  INFLUENCE  ON  ORIGINAL  NOMINAL 
STRAJECTORY  AT  TRAJECTORY  TIME*  F10.3*  DAYS*//53X*X*19X*Y*19X*Z* 
$15X*RESULTANT*/8X*P0SITI0N  RELATIVE  TO  TARGET  PLANET*4E20,10/8X 
$*VELOCITY  RELATIVE  TO  TARGET  PLANET*4E20 . 10//8X*B  = *E2O,l0»5X 
$*B  DOT  T =*E20,10f5X*B  DOT  R = *E20.10) 

END 
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SUBROUTINE  6UISIM(RItTEVN»RIl) 

COMMON  /C0NST2/U 1 r U2 » U3 f V 1 » V2 » V3 » W1 » W2 f W3 » FOP » FOV 
COMMON/EVENT/NEV » TEV ( 50 ) f lEVNT ( 50 ) » IHYPI f lEISf  TPT2 ( 20 ) r 
SICDT3{20) fNPE»NeE»IPOL»IIPOL»ICDQ3(20) fSIGRES»SlGPRO»SIGALP»SIGBET 
* / NEVl » NE  V2 » NE  V3  rIME  V4 » NQE 
C0MM0N/GUl/PG(17f 17) ,XG(6) »TG»EM(2»6) 

COMMON/MISC/ACC»IDNF»ICOORf ITR»1MNF»FACP»FACV»ISP2»BIA(12) »IPGN 
COMMON  /NAME/MDNM(4»2) »EVNM(4) » MNNAME ( 12 » 3) »CMPNM( 11 » 17) 

COMMON/S IMCNT/DMUSB » DMUPB » D AB » OEB  » D IB » TT I Ml » TT IM2  f UNMAC ( 3 1 3 ) » 

SSLB ( 9 ) f A V ARM ( 12  J » I AMNF » ARES ( 20 ) » APRO ( 20 ) i A ALP ( 20 ) » ABET ( 20 ) 

COMMON  /SIMI/X 1 1 ( 17 ) , XF 1 (17 ) » ADEVX ( 17 ) » EDEVX ( l7 ) » W ( 17 ) f Z ( 17 ) i 
SAN0ISU7)»RES(4)rEY(4)»AY(4),AR(4»4)  rZI  (17)  »ADEVXB(17) 
C0MM0N/S1M2/NB1(11) »ACC1»NB0D1 

COMMON/STM/P ( 17 » 17 ) » PS I ( 17 » 17) » Q ( 17 » 17 ) » H ( 4 » 17 ) » R ( 4 » 4 ) » AK ( 17 » 4 ) 
S»PB(17»17) »PSIP(17»17) »HPHR(4f4) 

C0MM0N/STVEC/XI(17) rXF(17) »NDIM» IAU6»XB(17) 

COMMON/TIM/DATE J » TRTMl » DELTm»  FNTM  » UNI VT»  TRTMB 
COMMON/TRAUCD/NTMC  f ISTMC  » ISTMl » OTMAXf  NOACC » ACCND 
C0MM0N/TRJ/IS0IlfIS0l2»IS0I3»ICAlf ICA2f ICA3fRCAl(6) »RCA2(6) » 
$RCA3(6)  »RS011(3)  »RS0I2(3)  »RS0l3(3)  rVSOIlO)  »VS0I2(3)  fVS0I3(3) » 
STCAl»TCA2»TCA3rTS0llfTS0I2»TS0l3»BSIl»BSI2»BSl3rBDTSIlrBDTSI2» 
SBDTSI 3 » BDRS 1 1 » BDRSI2 » BDRS 1 3 

COMMON/ VM/NBOD  f NB ( 11 ) » NTP  f ALNGTH » TM » DELTP  t INPR » IPROB » RC ( 6 ) i DC » 
SRSK3)  rVSI(3) » DSI » ISPHf  RVS(6)  ►VMUrBrBDTtBDRf  OELTHrTiMINTf  INCMT, 
SIEPHEM»ICL»IPRINT»RE(6) »RTP(6) »ICL2 
dimension  RI<6) »RI1(6)»RF<6) »RF1(6) »RI2(6) »RF2(6) »DUM(17) fS(3f 3) t 
3.P  1 ( 17 » 17 ) r GA  ( 3 » 6 ) » E6VL  ( 3 ) » EGVCT  ( 3 » 3 ) » EXEC  ( 3 » 3 ) » DVE  ( 3 ) » 

$GAP(3»6) »VElG(9)fADA(3»6) »DUM2(2»2) »DX(17) »DELX(17) »DV(3) »DVC(3) 
MAX=60 

deltm=tevn-trtmi 

CALL  NTM(RI»RF»NTMC»1) 

DO  10  1=1.6 

10  XF(I)=RF(I) 

IF  (NQE.NE.O)  GO  TO  20 
DO  11  I=1.NDIM 

11  XF1(I)=XF(I) 

DO  12  1=1.6 

12  RF1(I)=RF(I) 

GO  TO  30 

20  CALL  NTM(RI1.RF1.NTMC»2) 

DO  21  1=1.6 

21  XF1(I)=RF1(I) 

30  CALL  PSIM(RI1.RF1. ISTMC) 

CALL  DYNO(O) 

CALL  NAVM(l.l) 

DO  50  1=1.6 

50  RI2(I)=XI1(I)+ADEVX(I) 

CALL  NTM{RI2»RF2.NTMC»3) 

DO  51  1=1.6 

51  Z(I)=RF2(I) 

IPGN=IPGN+1 

WRITE(6.3000)  TEVN. IPROB. IPGN 
WRITE  (6. 3001) 

LINES=12 

WRITE(6»3002)  (CMPNMdAUG.I)  .XF(I)  .XFKI)  »Z(I)  .I=1»NDIM) 

LINES=LINES+NDIM 

WRITE(6.3004)  TEVN.TRTMl 

LINES=LINES+5 

DO  33  I=1.NDIM 

IF  (LINES.lt. MAX-4)  GO  TO  31 
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IPGN=IPGN+1 

WRITE(6»3000)  TEVN » IPROB f IP6N 
LINES=9 

31  IF(NDIM.EQ.6)  GO  TO  32  ^ 

WRITE(6r3013)  I \ 

LINES=LINES+1  A 

32  WRIT£(6»3014)  (PSI  ( I » J) » J=%itolM) 

33  LINES=LINES+(NDIM-l)/6+l  V | 

IF(LINES.LT, MAX-8)  GO  TO  34 
1PGN=IPGN+1 

WRITE(6»3000)  TEVN» IPROB» IPGN 
LINES=9 

34  WRITE(6f3003) 

WRITE(6»3014)  (Q ( I » I ) » 1=1 »NDIM> 
LINES=LINES+8 

IF(LINES.LT. MAX-9)  60  TO  35 
IPGN=IPGN+1 

WRITE(6f3000)  TEVN» IPROBr IPGN 
LINES=9 

35  WRITE(6»3005)  TEVN^TRTMl 
LINES=LINES+5 

DO  38  I=1»NDIM 

IF  (LINES.lt. MAX-4)  GO  TO  36 

IPGN=IPGN+1 

WRITE(6»3000)  TEVN » IPROB » IPGN 
LINES=9 

36  IF(NDIM.EQ.6)  GO  TO  37 
WRITE(6»3013)  I 
LINES=LINES+1 

37  WRITE(6»3014)  (P( I » J) » J=1 f NDIM) 

38  LINES=LINES+(NDIM-l)/6+l 
CALL  OVNO(l) 

DO  60  I=lf6 

60  ADEVX(I)=Z(I)+W(I)-XF1(I) 

DO  70  I=1»NDIM 
DUM(I)=0. 

DO  70  J=1»NDIM 

70  OUM ( I ) =DUM ( I ) +PS I ( I » J ) *EDEVX ( J ) 

DO  71  I=l»NOIM 

71  EDEVX(I)=DUM(I) 

IC0DE2=1 

80  ICOOE=0 
K=0 

DO  81  0=1 >3 
DO  81  1=1 » 3 
K=K+1 

S(I»0)=P(I»0) 

81  VEI6(K)=P(I» J) 

CALL  JACOBI ( VEIG » E6VL r EGVCT » 3 » FOP ) 
IF(LINES.LT. MAX-16)  GO  TO  82 
IPGN=IP6N+1 

WRITE(6f3000)  TEVN» IPROB» IPGN 
LINES=9 

82  WRITE(6f 1000) (I»EGVL(I) »I=1»3) 
WRITE(6fl001)  (Ir (EGVCT( I » J) . 0=1 »3) r 1=1 r 3) 
LINES=LINES+16 

84  IF(IHYPl-2)  85»87»85 

85  IFCLINES.LT, MAX-16)  GO  TO  86 

IPGN=IP6N+1 

WRITE(6»3000)  TEVN» IPROB* IPGN 
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LINES=9 

86  CALL  HYELS(l»Sr3) 

L1NES=LINES+16 

87  IFUHYPl-l)  88f90»88 

88  IFCLINES.LT, MAX-16)  GO  TO  89  / 

IPGN=IP6N+1 

WR1TE(6»3000)  TEVNr 1PR0B» IPG'L' 

LINES=9 

69  CALL  HYELS{3rS»3) 

LINES=LINES+16 

90  IF  (iCODE)  91»91»95 

91  IF  (lEIG)  95»95r92 

92  K=0 

DO  93  J=l»3 
DO  93  1=1 » 3 

S{I»sJ)=P(I+3fO+3)  ( 

K=K+1 

93  VElG(K)=S(IrJ) 

CALL  JACOB I ( VE le » EGVL  r E6VCT » 3 » FOV ) 
IF(LINES.LT. MAX-16)  GO  TO  94 
1PGN=IPGN+1  ' 

WRITE(6»3000)  TEVN» IPROB» IPGN 
LINES=9 

94  WRITE(6rl003)  ( I rEGV^H  I)  » I=lf  3) 
WRITE(6»1004)  (I»  (EGVCTdfJ) » J=1 » 3) » 1 = 1 » 3) 
L1NES=LINES+16 

ICODE=l 
GO  TO  84 

95  GO  TO  (100»120rl70) »ICODE2 

100  IF  (LINES. LT,MAX-NDlM-7)  GO  TO  53 
IPGN=IPGN+1 • 

WRITE (6 .3000)  TEVN» IPROB» IPGN 
LINES=9 

53  WRITE(6.3008)  ( W (I ) » 1=1 »NDIM) 

LINES=LINES+NDIM+7 
IF  (LINES. LT.MAX-NDlM-7)  60  TO  72 
IPGN=IPGN+1 

WR I TE ( 6 f 30 0 0 ) TE VN » IPROB  r IPGN 
LINES=9 

72  WR I TE ( 6 . 30 1 0 ) { EDE VX ( I ) # AOE V X ( I ) » I = 1 » NDIM ) 

LINES=LINES+NDIM+7 
DO  101  I=1»NDIM 
DO  101  J=1»NDIM 
PKIf  J)=P(I»J) 

101  P(I»J)=PG(I»J) 

DO  102  1=1*6 

102  RI1(I)=X6(I) 

DELTM=TEVN-TG 

TRTMl=TG 

CALL  PS I M ( R 1 1 * RF 1 * I ST MC ) 

IF  ( LINES. LT. MAX-9)  GO  TO  103 
IP6N=IPGN+1 

WRITE (6 *3000)  TEVN* IPROB* IPGN 
LINES=9 

103  WRITE (6* 3004)  TEVN*TG 
LINES=LINES+5 

DO  106  I=1*NDIM 
IF(LINES.LT. MAX-4)  GO  TO  104 
IPGN=IP6N+1 

WRITE ( 6 * 3000 ) TEVN  * IPROB  * IPGN 
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L1NES=9 

104  IF(NDIM,EQ.6)  go  TO  105 
WRITE(6»3013)  I 

LINES=LINES+1  ' 

105  WRITE(6r30l4)  (PSI ( I r J) » J=1 rNDiM) 

106  LINES=LINES+(NDlM-l)/6+l 
CALL  DYNO(O) 

1F(LINES,LT. MAX-8)  GO  TO  107 
IPGN=1PGN+1 

WRITE{6»3000)  TEVN ► IPROB ► IPGN 
LINES=9 

107  WRITE(6»3003) 

WRIT£(6f30l4)  (Q (I i I ) » 1=1 tNDIM) 
LlNES=LINES+8 

CALL  NAVM(lfl) 

IF  (LIHES.lt.  max-9)  GO  TO  110 
1PGN=IPGN+1 

WRITE (6. 3000)  TEVN f IPROB » IPGN 
LINES=9 

110  WRITE(6.3006)  TEVN»TG 
LINES=LINES+5 

DO  113  I=lfNDIM 

IF  (LINES.lt. MAX-4)  GO  TO  111 

IPGN=1PGN+1 

WRITE (6. 3000)  TEVH » IPROB ► IPGN 
LINES=9 

111  IF(N0IM.E0.6)  GO  TO  112 
WRITE(6f3013)  I 
LINES=LINES+1 

112  WRITE(6.3014)  (P ( I » J) > J=1 .NDIM ) 

113  LINES=HHES+(NDlM-l)/6+l 
IC0DE2=2 

GO  TO  80 
120  NGE=NGE+1 

IGP=IC0T3(HGE) 

CALL  GUIS ( RF f RFl » IGP f TEVN » GA » ADA ) 
IF(ISPH.EQ.O)  GO  TO  320 

122  DO  123  1=1 f 3 
DO  123  J=l»6 
GAP(I»J)=0. 

DO  123  K=l»6 

123  GAP(IrJ)=GAP(If J)+GA(I»K)*P(K»J) 

DO  124  I=l»3 

DO  124  J=l»3 
S(I»J)=0. 

DO  124  K=l»6 

124  S(1»J)=S(I»J)+GAP(I»K)*GA(J»K) 
IPGN=IPGN+1 

WRITE  (6»3000)  TEVN»  IPROBaPGN 
LINES=9 

WRITE(6»3011)  ( (S(If J) »J=1»3) »I=lf3) 
LINES=LINES+8 
DO  125  I=l»3 
DO  125  J=l»3 

125  EXEC(I»J)=S(ItJ) 

IC0DE2=1 

119  CALL  JACOBI (exec »EGVL»EGVCT»3»F0V) 

IF  (LINES.lt. MAX-16)  GO  TO  126 
IPGN=IPGN+1 

WR ITE ( 6 . 300 0 ) TEVN » IPROB » IPGN 
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LINES=9 

126  WRITE(6»2000)  ( I »EGVLU ) » I=l»3) 

WR ITE ( 6 » 20  0 1 ) ( I » ( EG VCT { I » J ) » J= 1 » 3 ) » I = 1 » 3 ) 

LINES=LINES+16 

IFM6P.EQ.2,AND.IC0DE2.EQ.1)  GO  TO  130 
IF  (IHYP1.EQ.2)  GO  TO  128 
IF  (LINES.lt. MAX-16)  GO  TO  127 
IPGN=IPGN+1 

WRITE(6»3000)  TEVN» IPROB» IPGN 
LINES=9 

127  CALL  HYEL5(lfS»3) 

LINES=LINES+16 

128  IF(IHYPl.EQ.l)  60  TO  130 

IF (LINES.lt, MAX-16)  GO  TO  129 
IPGN=IPGN+1 

WRITE (6 r3000 ) TEVN » I PROS f IPGN 
LINESS9 

129  CALL  HYELS(3»Sf3) 

LINES=LINES+16 

GO  TO  (130rl60f200) »IC00E2 

130  DO  131  I=1»NDIM 

DX ( I ) =XF1 ( I ) -XF ( I ) +ADEVX ( I ) 

131  DELX(I)=XF1(I)-XF(I)+EDEVX(I) 

IF(LINES.LT.MAX-NDIM-6)  GO  TO  138 
IPGN=IP6N+1 

WRITE (6 » 3000)  TEVN » 1PR0B» IPGN 
LINES=9 

138  WRITE(6»3050)  (DELX ( I ) »DX(I ) , 1=1 rNDiM) 

LINES=LINES+NOIM+6 
DO  132  1=1 » 3 
DV(I)=0. 

DVC(I)=0. 

DO  132  J=l»6 

DV(I)=DV(I)+GA(If J)*DX(J) 

132  DVC (I ) =DVC ( I ) +6A 1 1 » J ) *DELX ( J) 

DO  133  1=1 » 3 

133  DVE(I)=DV(1)-DVC(1) 

D VCM=SQRT ( DVC ( 1 ) *D VC ( 1 ) +D VC ( 2 ) *D VC ( 2 ) +D VC ( 3 ) *dVC ( 3 ) ) 

IF  (LINES, LT, MAX-20)  GO  TO  135 
IPGN=IPGN+1 

WRITE(6»3000)  TEVN » IPROB» IPGN 
LINES=9 

135  WRITE(6»3012)  (DVC( I ) tDV( I ) » I=lf 3) »DVCM» (OVE ( I ) f 1=1 »3) 

LINES=LINES+20 
X2=0VC(1)*DVC(1) 

Y2=DVC(2)*DVC(2) 

22=DVC(3)*DVC(3) 

DUM1=X2+Y2 

EXM=DUMl+22 

DUM3=SIGRES/EXM 

EXEC ( 1 ♦ 1 ) =X2* ( SIGPRO+DUM3 ) +Y2*EXm*SI6ALP/DUM1+X2*Z2*SIGBET/DUM1 
EXEC ( 1 f 2 ) =OVC ( 1 ) ♦DVC (2 ) ♦ ( SIGPR0+DUM3-EXM^SI6ALP/DUM1+Z2*S16BET/ 
SDUMl) 

EXEC(2»1)=EXEC(1»2) 

EXEC ( 1 f 3 ) =DVC ( 1 ) *DVC { 3 ) ♦ ( SIGPR0+0UM3-SIGBET ) 

EXEC(3»l)=EXEC(lr3) 

EXEC(2»2)=Y2^(SIGPR0+DUM3)+X2^EXM^SI6ALP/0UM1+Y2+Z2^SIGBET/DUM1 
EXEC (2*3)=DVC (2) »DVC (3) ♦ (SIGPR0+DUM3-SIGBET) 

EXEC<3»2)=EXEC(2»3) 

EXEC ( 3 » 3 ) =Z2+ ( S IGPR0+DUM3 ) +DUM1*SIGBET 
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IF (LINES.lt, MAX-8)  GO  TO  136 
IP6N=IPGN+1 

WRITE(6,3000)  TEVN» IPROB* 1P6N 
LIN£S=9 

136  WRITE(6»3015)  ( (EXECdfJ)  .0=1.3)  .1=1.3) 

LINES=HNES+8 
DO  140  I=1.NDIM 
DO  140  J=1.NDIM 
140  P(1.0)=P1(I.J) 

DO  150  1=1 » 3 
DO  150  0=1.3 
150  S(I.O)=EXEC(I.O) 

IC0DE2=2 
GO  TO  119 

160  DO  161  1=1.3 
DO  161  0=1.3 

161  P(I+3.0+3)=P(I+3.0+3)+S(I.0) 

DO  162  I=lrNDIM 

DO  162  0=1.ND1M 

162  P6(I»0)=P(I.0) 

IF  (LINES.LT. MAX-9)  GO  TO  163 
IPGN=IP6N+1 

WRITE (6 . 3000 ) TEVN . IPROB . IPGN 
LINES=9 

163  WRITE(6.3016)  TEVN. TEVN 
LINES=LlNES+5 

DO  166  I=1.N0IM 
IF(LINES.LT. MAX-4)  GO  TO  164 
IPGN=IPGN+1 

WRITE (6. 3000)  TEVN»IPROB» IPGN 
LINES=9 

164  IF(NDIM.EG,6)  GO  TO  165 
WRITE (6. 3013)  I 
LINES=LINES+1 

165  WRITE  (6.3014)  (P( I .0) .0=1.NDIM) 

166  LINES=LINES+ ( NDlM-1 )/6+l 
IC0D£2=3 

GO  TO  80 

170  NN=3 
IF(IGP.EQ.2)  NN=2 
DO  171  1=1. -NN 

DO  171  0=1. NN 
S(1.0)=0. 

DO  172  K=1.6 
DO  172  L=1.6 

172  S(I.0)=S(1.0)+ADA(I.K)*P(K.L)*ADA(0.L) 

171  EXEC(I»0)=S(I.0) 

IF(LlNES.LT.MAX-6)  60  TO  180 
IP6N=IPGN+1 

WRITE (6.3000)  TEVN. IPROB. IPGN 
LINES=9 

180  IF(IGP.EQ.2)  60  TO  190 

WR I TE ( 6 . 3 0 1 7 ) ( ( S ( I . 0 ) . 0=1 .3 ) . I = 1 . 3 ) 

LINES=LINES+8 

IC0DE2=3 

GO  to  119 

190  WRITE(6.3018)  ( (S( I .0) .0=1 .2) . 1=1.2) 

LINES=LINES+e 

IF(LINES,LT. MAX-16)  GO  TO  191 
IPGN=IPGN+1 


191 

192 


193 

194 

195 
200 


210 

211 

220 

230 

240 

250 


WRITE(6»3000)  TEVN» IPROB» IPGN 

LINES=9 

K=0 

DO  192  J=lf2 
DO  192  1=1 » 2 
K=K+1 

VEIG(K)=S(If J) 

CALL  JACOB I ( VE I G » EG VL » DUM2 » 2 » FO V ) 

WR I TE ( 6 f 2000)  { I » EGVL ( I ) » I =1 f 2 ) 

WRITE(6»2002)  ( 1 » (DUM2 { I » J) rJ=l»2) »I=lf2) 

LINES=LINES+16 
IF(IHyPl.EQ.2)  GO  TO  194 
1F{L1NES.LT. MAX-9)  GO  TO  193 
IPGN=1PGN+1 

WRITE(6»3000)  TEVN» IPROB» IPGN 
LINES=9 

CALL  HYELS(1»S»2) 

LlNES=LlNES+6 
IF<IHYPl.EQ.l)  GO  TO  200 
IF(LINES.LT. MAX-9)  GO  TO  195 
IP6N=IPGN+1 

WRITE (6 » 3000)  TEVN»IPROB»IPGN 
L1NES=9 

CALL  HyELS(3»S»2) 

LINES=LINES+8 

DUM1=SQRT(DUM1) 

EXM=SQRT(EXM) 

AK1=ARES(NGE) 

SI  =APR0(NGE) 

AL1=AALP(NGE) 

BTl=ABETiN6E) 

DV ( 1 ) =DVC ( 1 ) * ( S1  + AKl/EXM ) + ( EXM*DVC ( 2 ) ♦ ALl+D VC  <1 ) *DVC ( 3 ) *BT1 ) / 
SDUMl 

DV ( 2 ) =D VC ( 2 ) * ( S 1+ AKl/EXM ) + { DVC ( 2 ) *DVC ( 3 ) *BT1-  EXM*DVC ( 2 ) * ALl ) / 


iDUMl 

DV ( 3 ) =DVC (3) ♦ {Sl+AKl/EXM) -BT1*DUM1 

DO  210  I=lr3 

DVE(I)=DVC(I)+DV(I) 

IF  (LINES. LT. MAX-8)  60  TO  211 
IPGN=IPGN+1 

WRITE(6»3000)  TEVN» IPR0B» IPGN 
LINES=9 

WRIT£{6»3019)  (DV(I) »DVE (I ) » 1=1 »3) 

LINES=LINES+8 

DO  220  1=1*6 

DX { I ) = ADEVX ( I ) -EDE VX ( I ) 

NN=3 

IF  (IGP.EQ.2)  NN=2 
DO  230  1=1 *NN 
DELX(I)=0. 

DO  230  J=l*6 

DELX ( I ) =DELX ( I )+ADA  ( I * J ) *DX( J) 

DO  240  1=1*3 
RI1(I)=0. 

RI1(I+3)=DV(I) 

DO  250  1=1 *NN 
EGVL(I)=0, 

DO  250  J=l*6 

EGVL ( I ) =E6VL ( I ) +ADA ( 1 * J ) *RI1 ( J ) 

DO  260  1=1 *NN 
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260  DV(I)=DELX(I)+EGVLU) 

IF (LINES.lt. MAX-9  ) GO  TO  270 
IPGN=IPeN+l 

WRITE (6 » 3000 ) TEVN » IPROB » IPGN 
LINES=9 

270  WRITE(6»3020)  (DELX ( I ) f EGVLU ) » I=1»NN) 

LINES=LINES+9 

IF  (LINES.lt. MAX-8  ) GO  TO  280 
IPGN=IPGN+1 

WRITE (6 » 3000)  TEVN» IPROB » IPGN 
LINES=9 

280  WRITE(6r3021)  (DV ( I ) » I=1»NN) 

LINES=LINES+8 
DO  290  1=1 » 6 
290  XG(I)=XF1(I) 

DO  300  I=1»ND1M 
XI(I)=XF(I) 

300  XI1(I)=XF1(I) 

TG=TEVN 
TRTM1=TEVN 
DO  310  I=l»3 

AOEVX ( 1+3) =ADEVX ( 1+3) +DVE( I ) 

310  EDEVX(I+3)=EDEVX(I+3)+DVC(I) 

GO  TO  330 

320  DO  321  I=lrNDIM 
DO  321  vJSlf  NOIM 

321  P(I»J)=P1(I»U) 

DO  323  I=l»NOIM 
XI(I)=XF(I) 

323  XI1(I)=XF1(I) 

TRTM1=TEVN 
330  RETURN 

3000  FORMAT (1H1//8X*SIMULATI0N  MODE  — GUIDANCE  EVENT  AT  TRAJECTORY  TIM 
SE  ♦F8.3*  DAYS*/90X*PROBLEM.  .♦H0» 5X*PAGE.  .*l8///lXi  130(1H*) ) 

3001  F0RMAT(///8X*STATE  VECT0R*//22X*0RI6INAL  N0MINAL*7X*M0ST  RECENT  NO 
SMINAL*13X*ACTUAL*) 

3002  FORMAT (8XA10E20,10»5X»E20.10i5X»E20. 10) 

3003  FORMAT (///8X*D I AGONAL  OF  DYNAMIC  NOISE  MATRIX*/) 

3004  FORMAT (///ax*STATE  TRANSITION  MATRIX  — PSI (*F8.3*»*F8.3*)*/) 

3005  FORMAT (///8X*C0VARIANCE  MATRIX  AT  TIME  OF  GUIDANCE  EVENT  — P(* 
SF8,3*r*F8.3*)*/) 

3008  FORMAT {///8X*ACTUAL  DYNAMIC  NOISE*// (8XE20. 10 ) ) 

3010  FORMAT(///ax*DEVIATlON  IN  THE  STATE  VECTOR  FROM  THE  MOST  RECENT  NO 
SMINAL  TRAJECTORY*//15X*ESTIMATED*13X*ACTUAL*/(8X2E20.10) ) 

3013  FORMAT (10X*R0W  *13) 

3014  FORMAT (12X6E20. 10) 

1000  FORMAT (///20X*POSITION  EIGENVALUES  OF  ABOVE  MATRIX*/3(22XI2E20.10/ 
$) ) 

1001  FORMAT (///20X*P0SITI0N  EIGENVECTORS  OF  ABOVE  MATRlX*/3(22XI2r3E20. 
$10/) ) 

1003  F0RMAT(///20X*VEL0CITY  EIGENVALUES  OF  ABOVE  MATRIX*/3(22XI2E20.10/ 
$) ) 

1004  FORMAT (///20X*VEL0CITY  EIGENVECTORS  OF  ABOVE  MATRlX*/3(22XI2r3E20. 
$10/) ) 

2000  FORMAT (///20X*EIGENVALUES  OF  ABOVE  MATRIX*/3(22XI2»E20.10/) ) 

2001  FORMAT (///20X*EIGENVECTORS  OF  ABOVE  MATRIX*/3(22XI2»3E20.10/) ) 

2002  FORMAT (///20X*EIGENVECTORS  OF  ABOVE  MATRIX*/2(22XI2»2E20.10/) ) 

3006  F0RMAT(///8X*C0VARIANCE  MATRIX  RELATING  THE  TIME  OF  THIS  GUIDANCE 
$EVENT  TO  THAT  AT  THE  LAST  GUIDANCE  EVENT  — P(*F8,3*»*Fa.3*)*/) 

3011  FORMAT (///aX*COVARlANCE  MATRIX  ASSOCIATED  WITH  VELOCITY  COMPONENTS 


4*/3(8X3E20.10/) ) 

3012  FORMAT (///8X+C0MMANDED  C0RRECTI0N*9X*PERFECT  CORRECTION*//318XE20. 
$10r5XfE20,10/)//l0X*COMMANOED  DELTA  V.  . .*E20,10 
$ ///8X*ERR0R  in  correction  due  to  NAVieATION  UNCERTAI 

$NTY*//3(8XE20,10/) ) 

3015  FORMAT {///8X*EXECUTI0N  ERROR  MATRIX*//3(12X»3e20,10/) ) 

3016  F0RMAT<///8X*M0DIFIED  COVARIANCE  MATRIX  AT  TIME  OF  GUIDANCE  EVENT 
$ — P(*F8.3*r»F8.3*)*/) 

3017  FORMAT (///8X*UNCERT A INTY  IN  TARGET  CONDITION  AFTER  CORRECTION*/ 
$3{12X»3E20.10/) ) 

3018  FORMAT (///8X*UNCERTAINTY  IN  TARGET  CONDITION  AFTER  CORRECTION*/ 
S2(12Xf2E20.10/) ) 

3019  FORMAT (///8X*ACTUAL  ERROR  IN  CORRECTION*  9X*ACTUAL  CORRECTION*/ 

43 ( 10XE20 . 10  f lOX  »E20 . 10/) ) 

3020  FORMAT (///8X*ERR0R  AT  TARGET  C0NDITI0NS*/8X*DUE  TO  NAVIGATION  UNCE 
SRTAINTY*  4X*DUE  TO  EXECUTION  ERROR*//(10XE20.10»10X»E20.10) ) 

3021  FORMAT (///8X*ACTUAL  ERROR  AT  TARGET  AFTER  CORRECTION*// (10XE20. 10) 
S) 

3050  FORMAT (///8X*DEVIATioN  OF  STATE  VECTOR  FROM  ORIGINAL  NOMINAL  TRADE 
5CT0RY*// ( 15X*EST IMATED*13X*ACTUAL*/ ( 8X2E20 . 10 ) ) 

END 


o o o o o o o o n n r>  o o 


SUBROUTINE  HYELS(KS»P»N) 


THIS  subroutine  COMPUTES  AND  PRINTS  THE  HYPERELLIPSOIO 
ASSOCIATED  WITH  THE  MATRIX  P AND  SIGMA  LEVEL  KS 

IFLAG  IS  A CODE  WHICH  IS  DEFINED  AS  FOLLOWS 
IFLAG  = 0 PRINT  XY  HYPERELLIPSOID 

= 1 PRINT  XY»  XZ»  AND  YZ  HYPERELLIPSOIDS 

THIS  subroutine  REQUIRES  THE  USE  OF  THE  MATRIX  INVERSION 
ROUTINE  -MATIN- 


OIMENSION  P(3»3) »PI {3»3) »V(9) 

K2  =KS*KS 
K=0 

DO  10  J=lrN 
DO  10  1=1 »N 
K=K+1 

10  V(K)=P(I»J) 

CALL  MATlN(VfVfN) 

K=0 

DO  20  J=1»N 
DO  20  1=1 »N 
K=K+1 

20  PI(I»J)=V{K) 

P12=2.*PI(1»2) 

IF(N.EQ.2)  GO  TO  30 
P13=2.*PI(lf3) 

P23=2,*PI(2»3) 

WRITE (6 » 100)  KS 

WRITE(6f 154)PI(1»1) ,PI(2»2)»PI(3»3)f P12»P13»P23»K2 
WRITElbrSOO)  PI ( 1 » 1 ) » P12» PI (2f 2) »K2 
11  WRITE(6»501)  PI(1»1)  f P13»  PI(3»3)»  K2 
WR1TE(6»502)  PI(2»2)»  P23»  PI(3»3)»K2 
GO  TO  40 

30  WRITE(6»100)  KS 

WRITE (6 » 155)  PI(1»1) »P12»PI(2»2) »K2 

100  FORMAT (/30X=t=FOR  THE  NORMAL  DISTRIBUTION  X = N(0»Q)  AND  THE  ♦U*  SI 
$GMA  LEVEL»/3£X*THE  HYPERELLIPSOID  HAS  THE  FOLLOWING  EQUATION*//) 

154  FORMAT(10XE10.3»aH  X**2  + rEl0.3»8H  Y**2  + »E10.3»8H  Z**2  + » 
$E10.3»6H  XY  + »E10,3»6H  XZ  + .El0,3»6H  YZ  = 13//) 

155  FORMAT(33XE10.3»8H  X**2  + E10.3»6H  XY  + »El0.3»8H  Y**2  = I3//) 

500  F0RMAT(20X*XY  HYPERELLIPSOID *El0.3»8H  X**2  + »E10.3»6H 

» XY  + »E10.3»8H  Y**2  = »I3/) 

501  FORMAT (20X*XZ  HYPERELLIPSOID *El0.3*8H  X**2  + »E10.3»6H 

* XZ  + E10.3»8H  Z**2  = rI3/) 

502  FORMAT(20X*YZ  HYPERELLIPSOID.  .....  ♦El0.3»8H  Y**2  + »E10.3»6H 
$ YZ  + »E10.3»8H  Z**2  = »I3/) 

40  RETURN 
END 
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SUBROUTINE  HYPER ( S » RP » VHL  rSME » ELAT » A » E » XI » XL » XW » W » PV » Q * AZ » C3 » P » 
1 DLAfRAL) 

DIMENSION  W(3)  »PV(3)  tQ(3)  rBO)  »S(3) 

PI=3,1A15926536 
RADS57. 2957795 
C3=VHL**2 
CEL=COS( ELAT/RAD) 

A2=AZ/RAD 

SAZ=SIN(AZ) 

E=1.+RP*C3/GME 

P=6ME*(E**2-1,)/C3 

A=RP/(E-1,) 

SX=S(1) 

SY=S(2) 

SZ=S{3) 

DLA=ATAN ( SZ/SQRT ( SX**2+SY**2 ) ) ♦RAD 
IF(SX)30r31»30 

30  RAL  = ATAN(SY/SX) 

IF(SX)32»31»33 

31  RAL  = PI/2, 

IF(SY)32»33»33 

32  RAL  = RAL  + PI 

33  IF(RAL)34,35r35 

34  RAL  =2, ♦PI  + RAL 

35  IF  I ABS (DLA ) -ELAT) 10 , 10,11 

11  WZ=SGlRT(l,-SZ^^2) 

SAZ=SQRT ( < 1 .-S2^^2 ) /CEL^^2 ) 

AZ=ATAN ( S AZ/SQRT { 1 . -SAZ^^2 ) ) 

W Y=- WZ^S Y*SZ/ ( SX^^2+SY^^2 ) 

60  TO  12 

10  WZ=CEL^SAZ 

W Y=- ( WZ^SY^SZ+SX^SQRT ( 1 . -SZ^^2-WZ^^2) ) / { SX^^2+SY^*2 ) 

12  WX=-(WY^SY+WZ*S2)/SX 
W(1)=WX 

W(2)=WY 

W(3)=WZ 

WM  = SQRT(W(1)^^2  + W(2)^*2  +W(3)  ♦♦2) 

DO  40  I = 1,3 
40  W(I)  = 1.  ♦ W(I)/WM 

B(l)  = S(2)^W(3)  - S(3)*W(2) 

B(2)  = S(3)^W(1)  - S(1)^W(3) 

B(3)  = S(1)^W(2)  - S(2)^W(1) 

BM  = SQRT(B(1)  ♦♦2  + B(2)  **2  + B(3)  ♦♦2) 

DO  45  I = 1,3 
45  Bd)  = 1,  ♦ B(I)/BM 
CTAM=-1,/E 

STAM=SQRT  1 1 ,-CTAM^^2) 

DO  25  lsl,3 

PV ( I )=S( I ) ♦CTAM+B ( I ) ♦STAM 
25  Q ( I ) SS (I ) ♦STAM-B ( I ) ♦CTAM 
XI=ATAN (SORT ( 1 ,-WZ*^2) /WZ) 

IF (-WY >50,51, 50 

50  XL  = ATAN(WX/(-WY)) 

IF(-WY)52,51,53 

51  XL  = PI/2. 

IF (WX) 52, 53, 53 

52  XL  = XL  + PI 

53  IF  (XU  54,55,55 

54  XL  = 2,  ♦ PI  + XL 

55  IF(Q(3))  60,61,60 


60  XW  = ATAN(PV(3)/Q(3) ) 
1F(Q(3) )62r61»63 

61  XW  = PI/2. 

IF(PV(3) )62»63»63 

62  XW  = XW  + PI 

63  IF(XW)  64»65f65 

64  XW  = 2.  ♦ PI  + XW 

65  XI  = XI  ♦ RAD 
XL=XL*RAD 
XW=XW*RAD 
AZ=AZ*RAD 
RAL=RAL*RAD 
RETURN 

END 
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SUBROUT I NE  HYPSV ( R » P » E » C 3 » VHL » GME » RP » P V » Q » TA » XEQ » VEQ » VS » G AM » TS » 
1 XEC»VEC#ECEQ) 

DIMENSION  PV(3) rQ(3) »XEQ(3) » VEQ(3) fXEC(3) »VEC(3) » 

1 ECEQ(3»3)»EQEC(3»3) 

PI  = 3.1415926536 
RAD=57. 2957795 
CTA=<P-R)/(E*R) 

STA=SQRT(1.-CTA**2) 

IF(CTA)40»41»40 

40  TA  = ATAN(STA/CTA) 

IF(CTA)42>41»43 

41  TA  = PI  /2. 

IF(STA)  42 » 43 f 43 

42  TA  = TA  + PI 

43  IF(TA)  44 » 45 » 45 

44  TA  = 2.  * PI  + TA 

45  VS=SQRT(C3+2.*6ME/R) 

CG AM=SQRT ( P+GME ) / ( VS*R ) 

G AM=ATAN ( SORT ( 1 . -CG AM**2 ) /CG AM ) 

STAM=SIN(TA-GAM) 

CTAM=COS(TA-GAM) 

DO  20  1=1.3  ( 

XEQ ( I ) =P V ( I y*CT A*R+Q ( I ) *ST A*R 
20  VEQ ( I ) =-PV ( i ) *STAM*VS+Q ( I ) *CTAM*VS 
DO  30  1=1.3 
DO  30  J=1.3 
30  EQEC(I»J)=ECEQ<J.r) 


DO  2 I 

,r 

1.3 

VEC(I) 

0.0 

XECU) 

0.0 

DO  2 K 

1.3 

VEC(I) 

z 

VEC(I) 

+ EQECa.K)*VEQ(K) 

2 XEC(I) 

z 

XEC(I) 

+ EQEC(I.K)  *XEQ{K) 

CTS  = l./E*(P/R-l.) 

STS  = SQRT(1.-CTS**2) 

DEN  = RP/R  ♦<!.  + E) 

SF  = SQRT(E**2  -1.)  *STS/OEN 

F = ALOGtSF  + SQRT(SF**2  + 1.)) 

TS  = GME/VHL**3*(E*SF-F) 

TA=TA*RAD 

GAM=GAM*RAD 

RETURN 

END 
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o o n o o o r>  n o 


SUBROUTINE  INPUTZ (RS » NTP » IPRINT ) 


THIS  subroutine  IS  RESPONSIBLE  FOR  CONVERTING  THE  INPUT 
INFORMATION  INTO  VARIABLES  COMPATIBLE  WITH  THE  REST  OF  THE 
VIRTUAL  MASS  ROUTINES. 


DIMENSION  IP (3) 

DIMENSION  RS(6) 

COMMON  /C0M/VU6.7)  »F(44.4)  .PIrRAD 

COMMON  /COM/ITRAT»KOUNTr INCMNTf iNCPRf INC. IPR 

COMMON  /COM/  NBODYI#  NBODY. IPRTC4) 

COMMON/COM/KL» IPG»LINCT»LINPGE 

COMMON/BLK/T»PMASS(U)  rCN(80)  »ST(50)  »EMN(15)  rSMJR(18) 

COMMON  /BLK/R AD lUS ( 11 ) » RMASS { 1 1 ) » NO ( 1 1 ) » ELMNT ( 80 ) » SPHERE (11) »XP ( 6 ) 
COMMON  /PRT/M0NTH(12)  iPLANETdl) 

C INITIALIZATION  OF  VARIABLES 
5000  INERR=0 

DO  2 1=1 » 44 
DO  2 J=l»4 

2 F(IiU)=0. 

DO  3 1=1 » 4 

3 IPRT(I)=I 
INC=1 
IPR=1 

IFdPRlNT.NE.O)  GO  TO  4 
CALL  NEWPGE 
CALL  SPACE (11) 

4 V(2d)=V(lM) 

V(4d)=V(3d) 

CALL  time ( V ( 3 > 1 ) » LYR . LMOf LDA Y . LHR rLMIN . SECL. 1 ) 

D2=V(3d)+V(2f5)  - Vdd) 

CALL  TIME(D2»IYRdM0.IDAYdHRdMIN»SECI»l) 

TP  = ALOG(V(4r5)) 

V(3»6)=EXP(1.13756474179255+.509713741462307*TP+.14560181279278E-2 

**TP*TP) 


Vd 

f2) 

=RS 

d ) /V 

(1 

> 6 ) 

Vd 

i3) 

=RS 

(2)/V 

(1 

9 h) 

Vd 

=RS 

(3)/-V 

(1 

f6) 

V(3 

f2) 

=RS 

(4)/V 

(4 

fl) 

V(3 

^3) 

=RS 

(5)/V 

(4 

fl) 

V(3 

=RS 

(6)/V 

(4 

fl) 

60 

DO 

70 

fNBODYI 

IP 

= NO  (I 

) 

70 

F(4*I- 

3»4 

)=PMA5S 

(IP) 

1TRAT=3 
K0UNT=  1 
DO  80  I=2»4 

V(2.I)=Vdd) 

80  V(4d)=V(3»I) 

NB0DY=4*NB0DYI-3 

V(13»3)=V{2d)+V(3»5) 

IF(IPRINT.NE.O)  GO  TO  500 
WRITE(6.2000)  V(1.6)»Vd.5) 

2000  FORMAT(//*  UNITS  , .*E20.11*  LNGTH/A.U.*5X»E20.11*  TIME/ 

IDAY*) 

WRITE(6»2001)  NBOOYlf (NO(I) fI=l»NBODYI) 
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2001  FORMAT (13*  BODIES  , . , . ,*11I5) 

D=V(3fl) +2415020, 

WRITE(6,2002)  MONTH(LMO) rLDAY,LHRrLMINrSECtfLYR»D 

2002  FORMAT(20H  LAUNCH  DATE  . . . . Al0» 13, IH* I3»4H  HR,I3,5H  MlN,F7.3,5H 

♦ SECI5,21H.  . . .JULIAN  DATE.  .F17.8) 

0=02+2415020. 

WRITE (6,2003)  MONTH ( IMO), IDAY , IHR , IMIN, SECI , IYR,D 

2003  FORMAT(20H  ENCOUNTER  DATE,  . . AlO , 13, IH, 13, 4H  HR,I3,5H  MIN,F7.3,5H 

♦ SEC,15,21H.  . . .JULIAN  DATE.  .F17.8) 

WRITE(6,2004)  V(l,l) ,V(4,5) ,V(3,6) 

2004  FORMAT (*  INITIAL  TIME.  . . .*E20,11/ 

S*  ACCURACY.  ....  ,*E20.11,10X*TRUE  ANOMALY  INCREMENT.  . .♦ 
SE20.11) 

500  return 
END 
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o o n o o o o o o r>  o o o o o o o 


SUBROUTINE  JACOBI  (Ar W2» VrNrFOD) 

DIMENSION  A(l)»  W2U)f  V(l) 

JACOBI  method  for  EIGENVALUES  / EISENVECTORS  OF  (AHV)  s (V)(-W2-). 
THE  (A)  MATRIX  SHOULD  BE  REAL»  SYMMETRIC. 

threshold  VERSION  OF  JACOBI  METHOO.  PROGRESS  FROM  PIVOT  ELEMENT 
(IPIVOTrJPiVOT)  TO  ELEMENT  ( IPIVOT. jPIVOT+1)  AFTER  A PIVOT. 

CODED  BY  RL  WOHLEN  MAY  1966. 

SUBROUTINE  ARGUMENTS 

A = INPUT  MATRIX  TO  BE  DIAGONALIZED.  SlZE(N»N).  WILL  BE  DESTROYED. 
W2  = OUTPUT  VECTOR  OF  EIGENVALUES.  (DIAGONAL  OF  DIAGONALIZED  A). 
SIZE(N). 

V = OUTPUT  MATRIX  OF  EIGENVECTORS.  SlZE(N»N)* 

N = INPUT  SIZE  OF  A»W2»V. 

FOU=  INPUT  FINAL  OFF-DIAGONAL  ANNIHILATION  VALUE 


KR  = N 

KRPl  = KR  + 1 

C SET  initial  V MATRIX  TO  UNITY. 

II  =-KR 
DO  10  1=1. N 
II  = II  + KRPl 
IJ  = I - KR 
DO  5 J=1»N 
IJ  = IJ  + KR 
5 V(IJ)  = 0.0 

10  V(II)  = 1.0 
W2(l)  = AU) 

IF  (N  .EQ.  1)  RETURN 
C 

C FIND  largest  OFF-DIAGONAL  ELEMENT  FOR  FIRST  PIVOT. 

T1  = ABS(A(2)) 

NMl  - N-1 
II  =-KR 
DO  15  1=1. NMl 
II  = II  + KRPl 
IJ  = II 
IPl  = I+l 
DO  15  J=IP1.N 
IJ  = IJ  + KR 

15  IF  (ABS(A(IJ))  .GT.  T1)  Ti=ABS(A< IJ) ) 

IF  (T1  .LE.  FOD)  GO  TO  60 
C 

C SCAN  UPPER  OFF-DIAGONAL  ELEMENTS  OF  MATRIX  A BY  ROWS  UNTIL  A VALUE 
C GREATER  THAN  T1  IS  FOUND.  PIVOT  ON  THIS  ELEMENT  (IP.JP). 

20  IREDO  = 0 
IP IP  =-KR 
DO  41  IP=1.NM1 
IPIP  = IPIP  + KRPl 
IPJP  = IPIP 
JPIP  - IPIP 
JPJP  = IPIP 
IPPl  = IP+1 
DO  40  JP=IPP1.N 
IPJP  = IPJP  + KR 
JPIP  = JPIP  + 1 
JPJP  = JPJP  + KRPl 
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IF  {ABS(A(IPJP))  .LT,  Tl)  GO  TO  40 
I REDO  = 1 

COMPUTE  ROTATION  VALUES, 

DEL  = A(IPIP)  - A(UPJP) 

RAD  = SORT  (DEL**2  + 4,*A ( IPJP) **2) 

IF  (DEL  .GE.  0,)  GO  TO  24 

TN  = (2.  * AdPJP))  / (DEL  - RAD) 

GO  TO  26 

24  TN  = (2.  * A(IPJP))  / (DEL  + RAD) 

26  CS  = 1.  / SORT  (1.  + TN**2) 

SN  = TN  * CS 

COMPUTE  EIGENVECTORS  AND  DIAGONALIZE  MATRIX  (A), 


AIPIP 

= AdPIP) 

AJPJP 

= A(JPJP) 

AIPJP 

= AdPJP) 

IIP  = 

KR*dP-l) 

UP  =: 

KR*(JP-1) 

IPI  = 

IP  - KR 

JPI  = 

JP  - KR 

DO  35 

II=1»N 

IIP  = 

IIP  + 1 

UP  = 

UP  + 1 

IPI  = 

IPI  + KR 

JPI  5 

JPI  + KR 

VHP 

= V(IIP)*CS 

+ 

V(IJP)*SN 

VdJP) 

=-VdIP)*SN 

vdjp)*cs 

VdlP) 

= VHP 

A I IP 

= A(HP)*CS 

+ 

A(UP)*SN 

AdJP) 

=-A(HP)*SN 

AdJP)*CS 

A(JPI) 

= A (UP) 

A (IIP) 

= AHP 

35  A (IPI) 

= AHP 

A(IPIP)  = AIPIP*CS*>k2  + 2,*AIPUP*SN*CS  + AJPJP*SN**2 

A(JPJP)  = AIPIP*SN**2  - 2.*AIPJP*SN*CS  + AJPJP*CS**2 

AdPJP)  = 0.0 

A(JPIP)  = 0.0 

40  CONTINUE 

41  CONTINUE 

IF  (IREDO  .EQ.  1)  60  TO  20 

MAKE  LARGEST  OFF  DIAGONAL  ELEMENT  OF  (A)  SMALLER  THAN  FOD. 
IF  (Tl  .LE»  FOD)  GO  TO  60 

6 Tl  = Tl  * l.E-3 
60  TO  20 

PLACE  DIAGONAL  FROM  A INTO  W2  (EIGENVALUES). 

60  II  =-KR 

DO  61  I=1»N 
II  = II  + KRPl 

61  W2(I)  = A(II) 

7 CONTINUE 
RETURN 
END 
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SUBROUTINE  LAMB ( RL  * HP » PSI » TF , GM  » LOC » NT YS » A » E » P » VL » VP ) 
FPB ( AT ) =2 . *ATAN ( AT/SQRT { 1 . “AT**2 ) ) 

PI=3. 1415926536 
SNP=SIN(PSI) 

CSP=COS(PSI) 

C=SQRT ( RL**2+RP**2-2 . *RL*RP*CSP ) 

AMIN=(RL+RP+C)/4, 

CSP=COS(PSI) 

S=2.*aM1N 
211  A=1.1*AMIN 
210  PM=SQRT(AMIN»*3/GM) 

PERM=2.»PI*PM 
BETAM=FPB ( SORT ( (S-C ) /S ) ) 

TMIN=PM* ( PI-BET AM+SIN(BETAM) ) 

tpmin=perm-tmin 

Pl=SQRT(2,/GM)/3. 

TPP=P1*(S**1.5-(S-C)**1.5) 

TPPB=P1*(S**1.5+(S-C)**1.5) 

x=tmin 

GO  T0(ll»12) »NTYS 

11  IF(TF-TPP)13»13»16 
13  L0C=5 

WRITE(6»100) 

100  FORMAT ( 6H  HYPER) 

RETURN 

21  LOC=l 
23  A=AMIN 

WRITE (3 » 26) 

26  FORMAT (IX  6HA=AMIN) 

BETA=BETAM 

ALP=PI 

IT=0 

GO  TO  30 

16  IF(TF-TMIN)17»21»18 

17  LOC=l 

GO  TO  22 

18  L0C=2 

GO  TO  22 

12  X=TPMIN 
IF(TF-TPPB)13»13rl5 

15  IF(TF-TPMIN)49*21»50 

19  LOC=3 

GO  TO  22 
50  L0C=4 

22  DO  40  IT=1»12 
ALP=FPB(SQRT(S/(2.*A) ) ) 

SA=SIN(ALP) 

BET A=FPB { SORT ( ( S-C ) / ( 2 ♦ * A ) ) ) 

SB=SIN(BETA) 

AG=SQRT(A**3/GM) 

P1=(ALP-SA)*AG 

P2=(BETA-SB)*AG 

atsa 

AGM=1 . /SORT ( AT**3*GM ) 

C2=AGM*S**2/SA 
C3=AGM* ( S-C ) **2/SB 
GO  TO  (1»2»3»4) rLOC 
1 TF0=P1-P2 
C1=1.5*TF0/AT 
FPA=C1-C2+C3 


eo  TO  10 

2 TF0=2.*PI*AG-P1-P2 
C1=1,5*TF0/AT 
FPA=C1+C2+C3 

GO  TO  10 

3 TF0=P1+P2 
Clsl.5*TF0/AT 
FPA=C1-C2-C3 
GO  TO  10 

4 TF0=2.*PI*AG-P1+P2 
C1=1.5*TF0/AT 
FPA5C1+C2-C3 

10  IF(ABS(TF-TFO)-TF/100000. )30r30*20 
20  HI=TF“TFO 
XKO=HI/FPA 

IF ( ABS ( XKO ) - . 5E-7 ) 60 » 60 » 61 
61  A=A+XK0 

IF(A-AMIN)60»60r40 
60  FPA=  (X-TFO)/(AMIN"AT) 

a=at+hi/fpa 

40  CONTINUE 

WR ITE ( 3 f 10 1 ) TF » TFO  » A » AMINf  TMIN » TPM IN 

L0C=6 

RETURN 

101  FORMAT (6F15, 8) 

30  P=4 . *^/C**^* (S-RL ) ♦ ( S-RP ) 

GO  T0(51»52»52»51) »LOG 

51  P1=(ALP+BETA)/2. 

60  TO  53 

52  Pl=( ALP-BETA )/2. 

53  P=P*(SIN(P1))**2 
E=SQRT(1.-P/A) 

CVL=(P-RL)/(E*RL) 

SVL= (CVL*CSP- (P-RP) / (E*RP) ) /SNP 
IF(CVL)69»70»69 

69  VL=ATAN(SVL/CVL) 

IF(CVL)71»70»72 

70  VU=Pl/2. 

IF(SVL)71»72»72 

71  VLsVL+PI 

72  IF(VU73#74»74 

73  VL=VL+2,*PI 

74  VP=VL+PSI 
RETURN 
END 
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SUBROUTINE  MATIN(A»KrN) 

DIMENSION  A{1)»  RU)r  IX(150>»  B(150)  f 6(150)  » DETRdSO) 

C 

C MATRIX  INVERSION  (A**-l  - R)  — BORDERING  METHOD. 

C THE  DETERMINANT  RATIO  DETd  + l)  / DETd)  IS  PRINTED.  DET(I)  IS  THE 
C DETERMINANT  OF  THE  FIRST  I BY  I SUB-MATRIX  OF  A. 

C THE  INVERSION  CHECK  R*A  IS  CALCULATED  AND  PRINTED. 

C MATRICES  A AND  R MAY  SHARE  SAME  CORE  LOCATIONS. (R*A  CHECK  IS  INVALID) 
C THE  MAXIMUM  SIZES  ARE 
C N = 150 

C 

C SUBROUTINE  ARGUMENTS 

C A = INPUT  MATRIX  TO  BE  INVERTED.  SIZE(N»N). 

C R = OUTPUT  RESULT  MATRIX.  SIZE(N»N), 

C N = INPUT  SIZE  OF  MATRIX  A AND  R.  (MAX  = 150) 

C 

1001  FORMAT  (26H1N  EXCEEDS  INVl  ALLOWABLE,/  17H0PR06RAM  STOPPED.) 

1002  FORMAT  (iHl dOX» 18HMATRIX  IS  SINGULAR/11X» 17HPROGRAM  HAS  ENDED) 
1902  FORMAT  (1H1»10X»19HAMATRIX  IS  SlNGULAR/llXd7HPR0.GRAM  HAS  ENDED) 

C 

KR  = N 

IF  (N  .LE,  150)  GO  TO  150 
WRITE(6d001) 

STOP 

C 

150  DO  160  I=2»N 
IX(I)  = I 
160  CONTINUE 

C INVERT  FIRST  NON-ZERO  ELEMENT  IN  FIRST  COLUMN, 

DO  190  1=1 »N 

IF  (Ad)  .NE.  0.)  GO  TO  220 
190  CONTINUE 

WRIT£(6,1902) 

STOP 

START  INVERSION  WITH  ROW  I. 

220  DETRd)  = A (I) 

R(I)  = 1.  / A(I) 

IF  (N  .EQ,  1)  GO  TO  999 
C 

IX(I)  = 1 
IXd)  = I 

C BORDERING  LOOP. 

DO  630  L=2*N 
K = L 

LI  = L - 1 
250  S = 0. 

MIXL  = KR  ♦ (IX(L)  - 1) 

LL  = IX (L)  + MIXL 

DO  450  1=1 » LI 

MIXI  = KR  ♦ (IX(I)  - 1) 

LI  = IX (L)  + MIXI 

B(I)  = 0. 

G(I)  = 0. 

DO  440  d=l»Ll 

MIXU  = KR  ♦ (IX(J)  - 1) 

Id  = IX(I)  + MIXd 
dL  = IX (d)  + MIXL 
B(I)  = B(I)  - R(Id)*  A(dL) 

dl  = lX(d)  + MIXI 
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Lvi  = IX  (U  + MIXsJ 
G(I)  = e(I)  - A(Lvl)*  R(JI) 

440  CONTINUE 

S = S + A(LD*  B(I) 

450  CONTINUE 

AL  = A(LL)+  S 

IF  (A(LL)  .EQ.  0.)  GO  TO  480 
ALBAR  = ABS  (AL  / A(LL) ) 

GO  TO  490 

480  ALBAR  = ABS  (AL) 

490  IF  (ALBAR  .GE.  .lE-6)  GO  TO  550 

interchange  ROWS  AND  COLUMNS, 

K = K + 1 

IF  (K  ,GT,  N)  60  TO  540 

IX  L = IX (L) 

IX (L)  = IX (K) 

IX(K)  = IX  L 
GO  TO  250 

540  IF  (ALBAR  ,GE,  ,lE-8)  GO  TO  550 
545  WRITE  (6»1002) 

STOP 

550  R(LL)=  1,  / AL 
DETR(L)  = AL 
DO  570  1=1 f LI 

IL  = IX(I)  + MIXL 
LI  = IX(L)  + KR  ♦ (IX(I)  - 1) 

R(IL)=  B(I)  ♦ R(LL) 

R(LI)=  6(1)  ♦ R(LL) 

DO  570  J=1»L1 

IJ  = IX(I)  + KR  ♦ (IX(J)  - 1) 

R(IJ)=  R(IJ)+  6(0)  ♦ R(IL) 

570  CONTINUE 
630  CONTINUE 

COMPUTE  INVERSION  CHECK  R*A. 

XOFF  =0.0 
DO  720  I=l»N 
DO  710  0=1 *N 

X = 0,0 

KOA  = KR  ♦ (0-1) 

DO  703  K=1»N 
IK  = I + KR*(K-1) 

KO  = K + KOA 
X = X + R(IK)  ♦ A(KO) 

703  CONTINUE 

IF  (I  .NE.  0)  GO  TO  705 
6(1)  = X 
GO  TO  710 

705  IF  (ABS(X)  ,LT,  ABS(XOFF))  GO  TO  710 
XOFF  = X 
lOFF  = I 
OOFF  = 0 
710  CONTINUE 
720  CONTINUE 
999  RETURN 
END 
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SUBROUTINE  MENO (MMCODEf ICODE) 

C0MM0N/C0NST/0ME6A»EPSfNST»SAL(3) »SLAT(3) f SL0N<3) »DNCN(3>  »MNCN(12) 
COMMON/M ISC/ACC » IDNFf ICOOR » I TR » IMNF » FACP  r FAC  V » ISP2 » B I A (12 ) f I PGN 
COMMON/S IMCNT /DMUSB  f DMUPB » DAB  f DEb  » D IB  rTTIMl » TTIM2 » UNMAC ( 3 i 3 ) » 
$SLB(9) »AVARM(12) » IAMNF» ARES(20) *APR0(20) f AALP(20) »ABET(20) 

COMMON  /SIMl/XIl { 17 ) r XFl ( 17 ) » ADEVX ( 17 ) »EDEVX ( 17) » W ( 17) » Z ( 17) » 
$AN0IS(17) »R£S(4) »EY(4) »Ay(4) »AR(4»4) fZl(17) »ADEVXB(17) 
COMM0N/STM/P(17rl7) »PSI{17»17)»Q(17»17) »H(4»17) »R(4»4) » AK(17»4) 
SrPB(17»17) rPSIP(17»17) rHPHR(4»4) 

REAL  MNCN 

IF(ICODE.NE.O)  60  TO  80 
DO  1 1=1 » 4 
DO  1 U=l»4 
1 R(IrU)=0. 

IF(IMNF)  70»10»70 
10  IF(MMC0DE-9)  20»50»60 

20  IF(MMC0DE/2*2-MMC0DE)  30 » 40 #30 

30  R(1»1)=MNCN(MMC0DE+1) 

GO  TO  70 

40  R(l»l)=MNCN(MMCODE-l) 

R{2r2)=MNCN(MMC0DE) 

GO  TO  70 

50  R{1»1)=MNCN(9) 

R(2f2) =MNCN(10) 

R(3r3)=MNCN(ll) 

60  TO  70 

60  Rdf  1)=MNCN(12) 

.70  RETURN 

80  IF(IAMNF.EQ.O)  GO  TO  140 
DO  81  1=1 » 4 

DO  81  J=l»4 

81  AR(I»U)=0. 

IF(MMC0DE-9)  g0rl20»130 

90  IF(MMCODE/2*2-MMCODE)  100»110»100 

100  AR ( 1 » 1 ) =AVARM (MMCODE+1 ) 

60  TO  70 

110  AR ( 1 » 1 ) =A V ARM ( MMCOOE-1 ) 

AR ( 2 » 2 ) = A V ARM ( MMCODE ) 

GO  TO  70 

120  AR(1»1)=AVARM(9) 

AR(2»2)=AVARM(10) 

AR(3»3)=AVARM(11) 

GO  TO  70 

130  AR(1*1)=AVARM(12) 

GO  TO  70 

140  DO  141  I=l»4 
DO  141  J=l»4 

141  AR(I»J)=R(I»J) 

GO  TO  70 

END 
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SUBROUTINE  MUND(RI»RF»POSS) 

COMMON/BLK/T  » PMASS ( 11 ) * CN ( 80 ) » ST ( 50 ) i EMN ( 15 ) . SM JR ( 18 ) 

COMMON  /BUK/R AD lUS ( 1 1 ) » RMASS ( 1 1 ) » NO ( 1 1 ) » ELMNT ( 80 ) i SPHERE ( 1 1 ) » XP ( 6 ) 
C0MM0N/C0NST3/DELXA » DELTA » DELZA » DELXE » DELYE , DELZE » DELX I f DELY I » 
4DELZI » DELaXS  t DELECC » DELICL  »DELMUS » DELMUP 
COMMON/MlSC/ACCr IDNF» ICOORf ITR» IMNF»FACP»FACV» ISP2»BIA ( 12) » IPGN 
COMMON/STM/P  ( 17 » 17 ) » PS  I U7 » 17 ) » Q (17 » 17 ) » H ( 4 rl7 ) » R ( 4 » 4 ) » AK  ( 17 » 4 ) 
it PB(17»17) rPSIP(17»17) »HPHR(4#4) 

COMMON/ST VEC/ XI ( 17 ) » XF ( 17 ) f NDIM » I AUG » XB ( 17 ) 

COMMON/TIM  /D ATE J t TRTMl * DELTM t FNTM t UN I VT » TRTMB 

COMMON/TRA JCD/NTMC  t ISTMC » ISTMl » DTMAX  t NDACC  t ACCND 

COMMON/ VM/NBOD » NB ( 1 1 ) » NTP » ALNGTH » TM » DELTP  t INPR  t IPROB  f RC ( 6 ) » DC » 

SRSI ( 3 ) » VSI ( 3 ) » DS I » ISPH  f RVS ( 6 ) » VMU » B t BDT » BDR  t DELTH » TIMINT » INGMT » 
$IEPHEM»ICLHPRINTrRE(6)  rRTP(6)  > ICL2 
DIMENSION  THETA(6»2) rRI(6) »RF(6) »RPER(6) 

DO  1 I=lf6 
DO  1 J=l»2 
1 THETA(I»J)30, 

SAVE  = PMASS(l) 

IPRSIPRINT 

IPRINT=1 

PMASS(l)  s PMASSU)  + DELMUS*TM*TM/ ( ALNGTH*ALN6TH*ALNGTH) 

CALL  NTM(Rl»RPER»NTMCfO) 

J = 1 

DO  10  I = If  6 

10  THETAdf  J)  = (RPER(I)  - RF ( I ) ) /DELMUS 
PMASS(l)  - SAVE 

IF(P0SS.eT.6.*SPHERE(NTP)*ALNGTH)  GO  TO  50 
SAVE  s PMASS (NTP) 

PMASS ( NTP ) = PMASS ( NTP ) +DELMUP*Tm*TM/ ( ALNGTH*ALNGTH*ALNGTH ) 

CALL  NTM(RlfRPERfNTMCfO) 

J = 2 

DO  15  I = If 6 

15  THETA { If J)  = (RPER(I)  - RF( I )) /DELMUP 
PMASS (NTP)  = SAVE 
50  IF(IAUG.GT.3)  GOTO  40 

30  DO  31  1-1 t 6 
DO  31  J=lf2 

31  PSI(I»J+6)=THETA(If J) 

GO  TO  100 

40  IF(IAU6fEQf9)  GO  TO  30 
DO  41  1=1 >6 

DO  41  J=l»2 

41  PSI(I»J+9)STHETA(I»J) 

100  IPRINT=IPR 

RETURN 

END 
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SUBROUTINE  NAVM (N8 » ICODE) 

COMMON/STM/P  U7  » 17 ) f PS  I ( 17 » 17 ) » Q ( 17  r 17 ) . H ( 4 . 17  ) » R ( 4 » 4 ) » AK  ( 17 » 4 ) 
4 » PB ( 17 » 17 ) » PS IP (17  r 17 ) » HPHR ( 4 f 4 ) 

C0MM0N/STVEC/XI(17) »XF(17) »NDIM» IAUG » XB ( 17) 

C 

C INTERVAL  TO  OBTAIN  THE  NEW  COVARIANCE  MATRIX  P(K+lfK+l) 

C FIRST » P(K+1»K)  IS  FOUND  BY  THE  FORMULA 

C 

C P(K+1»K)  - PSI  * P * PSI  TRANSPOSE  + Q 

C 

C NEXT*  P(K+1»K+1)  IS  COMPUTED  BY 

C 

C P(K+1*K+1)  =P(K+1»K)  - K*H*P(K+1»K) 

C 

C INPUT  DATA  IS  AS  FOLLOWS 

C N1  — DIMENSION  OF  P 

C N2  — number  of  ROWS  IN  H 

C 

C THIS  SUBROUTINE  USES  A MATRIX  INVERSION  ROUTINE  CALLED  MATIN 

C 

C 

DIMENSION  PPHT(4> 4) *A(16) 

C CALCULATE  P PRIME 

C P PRIME  = PSI  * P ♦ PSI  transpose  + Q 

N1=ND1M 

DO  21  I = 1*N1 
DO  21  J = IrNl 
PSIP(I»0)  = O.G 
DO  20  KK  = 1»N1 
DO  20  L = 1*N1 

20  PSIP(IrJ)=PSIP(If J)+PSI{I*L)*  P(LfKK)*PSI(J*KK) 

21  PSIP(1»J)  = PSIPdfO)  + Q(I*0) 

IF(ICODE.NE.O)  GO  TO  80 

C CALCULATE  K 

C K = P PRIME  ♦ H TRANSPOSE  ♦ THE  INVERSE  OF  (H*  P PRIME  * 

C H TRANSPOSE  + R) 

DO  31  I =1»N2 
DO  31  vJ  =1*N2 
PPHT(I*0)  = 0.0 
DO  30  K =1*N1 
DO  30  L =1*N1 

30  PPHT(I*0)=  PPHT(I*J)  +H(I»L)*PSIP(L*K)*H(J*K) 

31  PPHT(I*d)  = PPHT(I*J)  + R(IfJ) 

DO  33  I=1*N2 

DO  33  0=1 *N2 

33  HPHR(I»0)=PPHT{I»0) 

IF(N2-1)41»42*41 
42  PPHT  = l./PPHT 
GO  TO  51 
41  I = 1 

DO  40  0 =1*N2 
DO  40  K =1*N2 
A(I)  = PPHT(KrJ) 

40  I = I + 1 

CALL  MATIN(A»A*N2) 

1 = 1 

DO  45  0 = 1*N2 
DO  45  K = 1»N2 
PPHT(K»0)  = A(I) 

45  I = I + 1 
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900  F0RMAT(4X.4(F10.3»5x) ) 

51  00  50  I s l»Ni 
DO  50  vl  = 1»N2 
AK(I»J)  = 0,0 
DO  50  K = 1»N2 
DO  50  L = 1»N1 

50  AK  (I»J)  = AK  (I*J)  +PSIP(I,L)*H(K»L)*PPHT(K»J) 

C CALCULATE  P P=  PP  - K*H*PP 

DO  55  I = IrNl 
DO  55  U = IrNl 
P (I»J)=0.0 
DO  60  K = 1»  N1 
DO  60  L = 1»  N2 

60  PU»U)  = P(I»U)  + AK{I»L)*H(L»K)*PSIP(K»J) 

55  P(IrvJ)  = PSIP(I»J)  - P(I»J) 

MAKE  P A SYMMETRIC  MATRIX  BY  USING  THE  MEAN  OF  THE  CORRESPONDING 
LOWER  AND  UPPER  OFF  DIAGONAL  ELEMENTS 
65  NM  = Nl-  1 

DO  70  I = 1»NM 
L = I + 1 
DO  70  J = LrNl 

P(IfU)  = 0.5*(P(I»J)+P{U»I)) 

70  P(J»I)  = P(IrU) 

GO  TO  100 

80  DO  90  I=1»NDIM 

DO  90  d=lrNDlM 
90  P(I»U)=PSlP(Ir J) 

GO  TO  65 
100  RETURN 

END 


SUBROUTINE  NDTM(RI»RF) 

C THIS  SUBROUTINE  CALCULATES  THE  STATE  TRANSITION  MATRIX  USING 
C NUMERICAL  DIFFERENCING  », 

C ''I 

CGMMON/MlSC/ACC»IDNF»ICOORf  ITR»  IMNF»FACP»FACV»ISP2»BIAU2)  rIPGN 
COMMON/STM/P (17 rl7)  rPSI(17»17)  rQ(l7»17)  »H( 4»  17)  »R(4»4) » AKU7r'n 
ifPB(17»17) »PSIP(17»17) »HPHR(4»4) 

COMMON/TIM  /DATEJfTRTMlfOELTMfFNTMrUNlVTfTRTMB 
COMMON/TRAUCO/NTMC » ISTMC » ISTMl » DTMAXf N5ACC » ACCND 
COMMON/VM/NBOD » NB ( 1 1 ) » NTP » ALN6TH » TM » DELTP » INPR » IPROB » RC ( 6 ) » DC » 
SRSK3)  »VSI(3)  »DSI  » ISPH»RVS(6)  » VMU»B»BDT^BDRrDELTH»TlMINT»INCMT» 
$IEPH£M»ICL» IPRINTrRE(6) »RTP(6) » ICL2 
D I MENS I ON  T ( 6 ) f U ( 6 ) » R I { 6 ) f RF ( 6 ) rRP ( 6 ) 

DO  1 1=1 » 6 
1 RP(I)=RF(I) 

SAVE=ACC 

IPR=IPRINT 

IPR1NT=1 

IF(NDACC.EQ.O)  GO  TO  5 
ACC=ACCND 

CALL  NTM(RIfRP»2»0) 

5 GO  TO  (10»20) t NTMC 

10  IF(NDACC.NE.O)  GO  TO  20 

CALL  NTM(RI»RP»2»0) 

20  N=1 
F1=FACP 
F2=FACV 

IFCDELTM.GE.IO,)  GO  TO  21 
FACP=10.*FACP 
FACV=10.*FACV 
GO  TO  60 

21  IF(OELTM.LE.100.)  Go  to  60 

FACP=,1*FACP 
FACV=.1*FACV 

GO  TO  60 
60  DO  30  11=1  ► 6 
30  T(II)=RI(II) 

IF(N-4)  35r40»40 
35  T(N)  =RI(N)+FACP 
60  TO  41 

40  T(N)  =RI(N)+FACV 
41  CALL  NTM(TrU»2»0) 

DO  45  M = 1»6 
IF(N  - 4)  50t55r55 
50  PSI(M»N)=(U(M)-RP(M) )/FACP 

60  TO  45 

55  PSI{M»N)=(U(M)-RP(M) )/FACV 

45  CONTINUE 
N = N + 1 
IF(N  -6)  60 » 60 » 65 
65  ACC=SAVE 

IPRINT=IPR 

FACP=F1 

FACV=F2 

RETURN 

END 
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SUBROUTINE  NEWP6E 

eOMMON  /COM/ V (16 » 7 )» F ( ........ 

COMMON/COM/ I TRAT » KOUNT » INCMNT » INCPR » INC riPR 
eOMMON/COM/NBOOy I » NBODY » IPRT ( 4 ) 

COMMON/COM/KL  t IPG » LINCT » LINP6E 

COMMON/BLK/T  » PMASS ( 11 ) rCN ( 80 ) » ST (50 ) » EMN (15 ) »SMJR ( 18) 

COMMON  /BLK/RADIUS(11)  rRMASSdl)  »NO(ll)  »ELMNT(80)  »SPHERE(11>  rXP(6) 
COMMON  /PRT/M0NTH(12)  rPLANETdl) 

IPG=IP6+1 
WRITE  (6rl) 

1 FORMAT  (120H 

*1  VIRTUAL  MASS  PRO  6 R-  A M F 0 R COMP 
»U  T I N G S ^ A C E trajectories  ) 

WRITE  (6»2)  KL»/lP6 

2 FORMAT  (90X8HPROBLEM  I5»6X5HPAGE  14///) 

LINCT=5  / 

WHEN  IPG=l»ONUY  TITLE»PR0BLEM  NUMBER»AND  PAGE  NUMBER  ARE  GIVEN*  AS 
THIS  SIGNALS  INPUT  DIAGNOSTICS  ARE  TO  BE  GIVEN*  OR  INPUT  DATA 
IS  TO  BE  LISTED. 


3 

IF(IPG.EQ.l)  GO  TO  10 
WRITE  (6*3) 

FORMAT ( 

40X80H 

X - COMP 

10 

$ Y - COMP. 

LINCT=6 
RETURN 
END 

Z - COMP. 

RESULTANT  ) 
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SUBROUT INE  N JEXN ( JC3 » U IN JT » NDD » NTT » DD JD » TTJD » HHRl » HHVl » S ) 

DIMENSION  NTDD(5) »NTTT(5) »DDN(3) »TTN(3) »DDR1(3) »DDV1(3) »TTR7(3) r 

1 TTV7(3) »CCN(3) »CCR1(3) »CCVl(3)t 

2 HHV2(3) >ECEQ(3»3) »HHVEQ(3) »HHN(3) »HHPV(3) »HHQ(3) f 

3 HHRQK3)  »HHRQ2(3)  »HHVQl{3)  »HHVQ2(3)  .HHRK3)  ,HHR2(3)  »HHV1(3) 
DIMENSION  XL(6) fSXL(6) »S(3) 

dimension  EQEC(3»3) 

COMMON  /BLK/T»PMASS(11)  »CN(80)  »ST(50)  rEMNdS)  »SMJR(18) 

COMMON  /BLK/RADIUSUl)  »RMASS(11)  »NO(ll)  »ELMNT(80)  rSPHEREdl)  »XP(6) 
CALL  CONST ( MODE » NDD » NTT » P 1 » RAD » AU » AUDAY » AUS  f CONV  f SSG  » PR » HHT A 

1 f ANOl » AN62  * T IMl » TIM2 » DDLAT » DDLON  # DDIQ » DDLQ » ROT) 

CALL  ORB(NDD»DDJD) 

NOd)=NDD 

CALL  EPHEMd»DDJDd) 

DO  5 I=l»6 

5 XL(I)=XP(I) 

DO  6 I=l»3 

6 DDVld)=XL(I+3) 

DD6=PMASS ( NDD ) * ( AUS**3/86400 . **2 ) 

DDS=SPHERE ( NDD ) *AUS 

CALL  TIME(DDJD»NTDD(1)  »NTDD(2)  »NTDD(3)  »NTDD(4)  »NTDD(5)  »SDDd) 

CALL  TIME(TTJD»NTTT(1) »NTTT(?» ,NTTT(4) tNTTT(5) *STT»1) 
CL=COS(DDLQ) 

SL=SIN(DDLQ) 

CI=COS(DDIQ) 

SI=SIN(DDIQ) 

ECEQdd)=CL 

ECEQd»2)=SL 

ECEQd*3)=0. 

ECEQ(2d)=-SL*CI 

ECEQ(2*2)=CL*CI 

ECEQ12»3)=SI 

ECEQ(3*1)=SL*SI 

ECEQ(3»2)=-CL*SI 

ECEQ(3»3)=CI 

CALL  ORB(NTT»TTJD) 

NOd)=NTT 

CALL  EPHEMddTJDd) 

RL=SQRT(XLd)*XLd)+XL(2)+XL(2)+XL<3)*XL(3) ) 
RP=SQRT(XPd)*XP(l)+XP(2)*XP(2)+XP(3)*XP(3) ) 
VL=SQRT(XL(4)*XL(4)+XL(5)*XL(5)+XL(6)*XL(6) ) 
VP=SQRT(XP(4)*XP(4)+XP(5)*XP(5)+XP(6)*XP(6) ) 

TF=TTJD-DDJD 

CALL  PLANE (XL»XP»CCPSI»CCIfCCL»CCN»NTYS) 

CALL  LAMB (RL» RPfCCPSI » TF» SSG »L0C»NTYS»CCA»CCE»CCP*CCTA1»CCTA7) 
IF(LOC-5)10dd 
10  CCW=2.*PI-CCTA1 

IF(XP(3)*(PI"CCPSD )20*20»30 
20  CCW=PI"CCTA1 
30  CONTINUE 
IVHL  = -1 
SRL  = RL 
STAl  = CCTAl 
RL  = RP 
CCTAl  = CCTA7 
DO  29  I = 1»3 
SXLd+3)  = XL(I+3) 

29  XL (1+3)  = XP(I+3) 

SJC3  = JC3 
v)C3  = 1 
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31  IVHL  s IVHL  1 

MEAN  ROUTINE 
P IS ( CC A-RL ) / ( CC A*CCE ) 

P2=CCA*SQRT  U.-CCE*CCE) 

P2=RL*SIN(CCTA1)/P2 

IF(Pl)40r4l»40 

40  CCEA1=ATAN{P2/P1) 

IF(P1)42»41»43 

41  CeEAlsPI/2. 

IF(P2)42»43*43 

42  CCEAi=CCEAl+PI 

43  lF(CCEAl)44f46r46 

44  CCEA1=CCEA1+2.*PI 
46  CCMl=CCEAl-CeE*P2 

CALL  POSVL ( CCA » CCE » CC I rCCL » CCW » CCMl » CCN » CCRl » CCRMl » CCVl » CCVMl » SSG ) 

00  50  1=1 »3 

50  HHV2 ( I )=C0NV*CCV1 ( I ) -CONV*XL( 1+3) 

VHLsSQRT (HHV2(1 ) ♦*2+HHV2(2) **2+HHV2(3) ♦♦2) 

IF(UC3)33f32»33 

32  VHLsSQRT ( VHL* VHL-2 ♦ *DD6/D0S ) 

33  CONTINUE 
IF(HHV2(1) )60»61r60 

60  HHVRA=ATAN(HHV2  {2)/HHV2a) ) 

IF(HHV2{1) )62f61f63 

61  HHVRASPI/2, 

IF(HHV2(2) )62»63r63 

62  HHVRASHHVRA+PI 

63  IF(HHVRA)64»65»65 

64  HHVRA=HHVRA+2.*PI 

65  HHVRA=HHVRA»RAD 
HHVDCSATAN (HHV2(3) /VHL) *RAO 
IFaVHL)70»70»75 

70  VHP  = VHL 
DO  72  1=1 » 3 

72  S(I)=HHV2(I) 

RAP  = HHVRA 
DPA  = HHVDC 
RL  = SRL 
CCTAl  = STAl 
DO  71  I = 1»3 

71  XL(l+3)  = SXL(I+3) 

JC3  = SUC3 

GO  TO  31 
75  CONTINUE 

HH VEQ ( 1 ) =ECEO  U r 1 ) *HHV2 ( 1 ) +ECEQ  < 1 » 2 ) *HH V2 (2 ) +ECEQ ( 1 » 3 ) ♦HHV2 ( 3 ) 

HHVEQ ( 2 > =ECEQ ( 2 » 1 ) *HHV2 ( 1 ) +ECEQ ( 2 » 2 ) ♦HHV2 (2 ) +ECEQ ( 2 » 3 ) *HHV2  < 3 ) 

HHVEQ ( 3 ) =ECEQ ( 3 » 1 )*HHV2 ( 1) +ECEQ ( 3»  2 ) ♦HHV2 ( 2 ) +ECEQ ( 3 » 3) *HHV2 ( 3 ) 

HHVEQ ( 1 ) =HH VEQ ( 1 ) /VHL 

HHVEQ (2) =HHVEQ (2) /VHL 

HHVEQ (3) =HHVEQ ( 3 ) /VHL 

ODAZ  = 90.0 

35  CALL  HYPER ( HHVEQ » PR » VHL  *DDG»DDLAT»HHA*HHEfHHl»HHL»HHW*HHN»HHPVfH 
IHQ » OD A2 » C3 » HHP » DLAQ » RALQ ) 

R J=HHP/ ( 1 . +HHE*C0S ( HHTA/RAD ) ) 

CALL  HYPSVtRU  »HHPrHHE»C3» VHL  rODG»PR»HHPV»HHQ»HHTAl#HHRQl»HHVQl» 

1 HHVM1»PTH  »HHT1*HHR1»HHVI*ECEQ) 

CALL  AUX ( HHN » ODLAT » OOLON » DD AZ » HHP V » HHQ  # HHT A » ANGI » AN62 » T IM 1 » TIM2 1 HH 
1 VEQ  * HHE » PR » DDG  * ROT » DOUO » TL » TB » PH I » THI » RAI » AZ I » TIN J » TC ) 
IF(UINUT)1»45»1 


1 CONTINUE 

CALL  0T2(XL»XP»RL»CCVMlfCCPSI»CCA»CCI»VL»RP»VP»  CCT 

lAirCCTA7fTL»TINvJfNTOD»TF»NTTT»C3.VHL  f DLAQ»RALQrRJ»HHVMl »PTH» VHP» 
2DP A » RAP  fHHE » DD AZ » TB » PHI » TH I » R A I » AZ I » TC » CCE ) 

38  DDJD  = DDJD  + TINJ/24, 

45  CONTINUE 
RETURN 
END 
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SUBROUTINE  NTM ( RI t RF » NTC f ICODE ) 


THIS  SUBROUTINE  IS  RESPONSIBLE  FOR  GENERATING  THE  NOMINAL 
TRAJECTORY  WHICH  IS  USED  IN  THE  VARIOUS  MODES  OF  OPERATION 

IN  the  steap  program. 

THE  INPUT  arguments  ARE  DESCRIBED  AS  FOLLOWS. 

RI  — INITIAL  POSITION  AND  VELOCITY  OF  VEHICLE  IN 
HELIOCENTRIC  ECLIPTIC  COORDINATES 
NTC  NOMINAL  TAJECTORY  CODE 

=1  " PATCHED  CONIC  TRAJECTORY 

=2  — VIRTUAL  MASS  TRAJECTORY 

OUTPUT 

THE  OUTPUT  ARGUMENT  IS 

RF  — THE  FINAL  POSITION  AND  VELOCITY  qF  THE  VEHICLE  IN 
heliocentric  ELIPTIC  COOROINATES 


5 

10 

1000 


20 


21 

22 

23 

24 


DIMENSION  RK6)  »RF(6) 

C0MM0N/BLK/T»PMASS(11) »CN(80) fST(50) »EMN(l5) » SMJF(18) 

COMMON  /BLK/R ADIUS ( 1 1 ) » RMASS ( 11 ) » NO ( 1 1 ) » ELMNT ( 80 ) » SPHERE ( 1 1 ) » XP ( 6 ) 
COMMON/EVENT/NE V » TEV ( 50 ) » IE VNT ( 50 ) » IHYPi » lEI G » TPT2 ( 20 ) » 

$ICDT3(20) fNPErNGE»lPOL»IIPOL»ICDQ3(20) rSlGRESfSIGPRGfSIGALPfSIGBET 


S » NEVl » NEV2 » NEV3 » NEV4 .NQE 

COMMON/MISC/ACC » IDNF » ICOOR » ITR » IMNF » FACP » FACV » ISP2  f BI A ( 12 ) » IPGN 
C0MM0N/SlMCNT/0MUSB»DMUPB»DAB»DEB»DlB»TTIMlfTTIM2»UNMAC(3f 3) » 
$SLB(9)  »AVARMU2)  flAMNF*  ARES(20)  »APRG{20)  t AALP{20)  »ABET(20) 

COMMON  /SIM2/NB1(11)»ACC1»NB0D1 
COMMON/TIM  /DATE J » TRTMl » DELTM » FNTM » UNI VT » TRTMB 
COMMON/TRA JCD/NTMC » ISTMC » ISTMl » DTMAX . NDACC#  ACCND 
C0MM0N/TRJ/IS0Il»IS0l2»ISO13»lCAl»ICA2»ICA3»RCAlt6) rRCA2(6) » 
$RCA3(6)  »RS0Il(3)  fRS0l2<3)  »RS0I3(3) » VSOmS)  »VSOI2(3) » VS0I3(3) » 
$TCAl»TCA2»TCA3»TS0IlfTS0I2»TS0l3rBSIl»BSI2*BSl3»BDTSIl»BDTSI2» 
$BDTSI3»BDRSIlrBDRSI2.BDRSI3 

COMMON/ VM/NBOD » NB ( 11 ) » NTP » ALNGTH » TM » OELTP  t INPR » IPROB » RC ( 6 ) » DC » 
SRSK3)  »VS1(3)  »DS1»ISPH»RVS(6) » VMU»B»BDT»BDRrDELTH*TIMINT»  INCMTr 
SIEPHEM»ICL»IPRINT»RE(6) »RTP(6) »ICL2 
DIMENSION  NBS(ll) 

D1=TRTMI+DATEJ 
IF(ABS(ICODE) .EQ.3)  GO  TO  60 
60  TO  (10»20)»NTC 
WRITE(6»1000) 

FORMAT (///8X*PATCHED  CONIC  TRAJECTORY  IS  NOT  AVAILABLE  IN  THIS  DEC 
$K*) 


GO  TO  50 

IF(ICODE.NE.O)  go  to  21 

ISPH=1 

ICL=1 

GO  TO  30 

IF(ICODE.LT.O)  go  to  34 

IF(IC0DE-2)  22 » 26 » 30 

IF(ISOIl.EQ.O)  GO  TO  23 

ISPH51 

GO  TO  24 

ISPH^O 

IF(ICAl.EQ.O)  GO  TO  25 

ICL=1 

GO  TO  35 
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25  ICL=U 

60  TO  35 

26  IF(ISOI2.EQ,0)  60  TO  27 
I5PH=1 

60  TO  28 

27  ISPH=0 

28  IFaCA2.EQ.O)  60  TO  29 
ICL=1 

60  TO  35 

29  ICL=0 

60  TO  35 

30  IF(ISOI3.EQ.O)  60  TO  31 
ISPH=1 

60  TO  32 

31  ISPH=0 

32  IF(ICA3,EQ.O)  60  TO  33 
ICL=1 

60  TO  35 

33  1CL=0 

60  TO  35 

34  ISPH=0 
ICL=0 

35  CALL  VMP(RIfACCrDl»TRTMlrDELTM»RF»ISP2) 

IF(ICODE.LE.O)  60  TO  50 

IF(IC0DE-2)  36»41»45 

36  IFdSPH.EQ.O)  60  TO  38 

IF(ISOIl.EQ.l)  60  TO  38 
ISO I 1=1 

DO  37  1=1 » 3 
RSOIia)=RSI(I) 

37  VS0I1(I)=VSI(I) 

TS0I1=DSI-DATEJ 

BSI1=B 

BDTSI1=BDT 

BDRSI1=BDR 

RMP=SQRT { RSO I 1 ( 1 ) *RSO 11(1) +RSO I 1 ( 2 ) *R50I1 ( 2 ) +RSOI 1 ( 3 ) *RSOI 1 (3 ) ) 
VMP=SqRT { VSOIl (1) *VS0I1 ( 1 ) +VS0I1 (2) *VS0I1 (2) +VS0I1 (3) *VSOH (3) ) 
IP6N=IP6N+1 

WR I TE ( 6 » 200  0 ) IPROB » I P6N » TSO 1 1 » RSO 1 1 » RMP » VSO 1 1 » VMP . BS 1 1 » BOTS II » 
4B0RS11 

2000  FORMAT ( 1H1//100X*PROBLEM*I10  » 5X » *PA6E*I5////////1X» 130 ( IH* ) /// 
$8X*0RI6INAL  NOMINAL  TRAJECTORY  ENCOUNTERED  SPHERE  OF  INFLUENCE  AT 
STRAJECTORY  TIME  *F10.5*  DAYS*///53X*X*19X*Y*19X*Z*15X*RESULTANT*/ 
S8X*P0SITI0N  RELATIVE  TO  TAR6ET  PLANET*4E20 f 10/ 

*8X*VEL0CITY  RELATIVE  TO  TAR6ET  PLANET*4E20. 10 

$///8X*B  = *E20.10»5X*B  DOT  T = *E20.10»5X*B  DOT  R = ♦E20.10/// 
$1X130 (IH*)) 

38  IF(ICAI.EQ.I)  60  TO  40 
DO  39  1=1 » 6 

39  RCA1(I)=RC{I) 

TCA1=DC-DATEJ 
IF(ICL.EQ.O)  60  TO  40 
ICA1=1 

RMP=SQRT (RCAl ( 1 ) *RCA1 (1) +RCA1 (2) *RCA1 (2) +RCA1 ( 3) *RCA1 ( 3) ) 

VMP=SQRT (RCAl ( 4 ) *RCA1 ( 4 ) +RCA1 (5 ) *RCA1 ( 5 ) +RCA1 ( 6 ) ♦RCAl ( 6 ) ) 
IP6N=IP6N+1 

WRITE(6»2001)  IPR0B»IPGN»TCA1» (RCAl(I) »I=1»3) »RMP» (RCAl (I ) » I=4»6) » 
SVMP 

2001  FORMAT (1H1//100X^PROBLEM*I 10 »5X*PA6E+I5////////1X130(1H^)///8X 
$^0RI6INAL  NOMINAL  TRAJECTORY  REACHED  POINT  OF  CLOSEST  APPROACH  TO 
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STARGET  PLANET  AT  *F10.5*  DAYS*  ///53X*X*19X*Y*19X*Z*15X*RESULTAN 
ST*/8X*P0SITI0N  RELATIVE  TO  TARGET  PLANET*4E20 , 10/8X*VELOClTY  RELAT 
SIVE  TO  TARGET  PLANET*4E20.10///lX130<lH*) ) 

40  IF(ITR.NE.4)  GO  TO  50 
IFiNQE.NE.O)  60  TO  50 

41  IFdSPH.EQ.O)  60  TO  43 
IF(IS0I2.EQ.1)  GO  TO  43 
15012=1 

DO  42  1=1 » 3 
RS0I2(I)=RSia) 

42  VS0I2(I)=VSI(I) 

TS0I2=DSIrDATEJ 
BSI2=B 
BDTSI2=BDT 
BORS I2“BDR 

RMP=SQRT (RS0I2 (1) *RS0I2( 1 )+RS0l2 (2) ♦RS0I2 (2)+RSOI2(3)*R50I2 (3) ) 
VMP=SQRT(VS0I2(1>*VS0I2{1)+VS0I2(2)*VS0I2{2)+VS012(3)*VS0I2(3) ) 
IPGN=IPGN+1 

WRITE (6»2002)  IPR0B» IPGN»TS0I2»RS0I2»RMP» VS0I2» VMP?BSI2»BDTSI2» 
iBDRSI2 

2002  FORMAT (1H1//100X*PRObLEM*I10»5X»*PAGE*I5////////1X» 130 (IH*)/// 
$8X*M0ST  RECENT  NOMINAL  TRAJECTORY  ENCOUNTERED  SPHERE  OF  INFLUENCE 
SAT  TRAJECTORY  TIME  *F10.5*  DAYS*///53X*X*19X*Y#19X*Z*15X*RESULTANT 
S*/8X*P0SITI0N  relative  TO  TARGET  PLANET*4E20.10/ 

$8X*VEL0CITY  RELATIVE  TO  TARGET  PLANET*4E20 . 10 

$///8X*B  = ♦E20,10.5X*B  DOT  T = *E20.10»5X*B  DOT  R = ♦E20.10/// 

$1X130 (IH*)) 

43  IF(ICA2.E0.1)  GO  TO  50 
DO  44  I=l»6 

44  RCA2(I)=RC(I) 

TCA2=DC-DATEJ 
IF(ICL.EQ.O)  GO  TO  50 
ICA2=1 

RMP=SQRT (RCA2  U ) *RCA2 (1 ) +RCA2 ( 2 ) *RCA2 (2 ) +RCA2 (3) *RCA2 (3) ) 

VMP=SQRT ( RC A2 ( 4) *RC A2 ( 4 ) +RC A2 ( 5 ) *RC A2 ( 5 ) +RC A2 ( 6 ) *RC A2 ( 6 ) ) 
IPGN=IP6N+1 

WRITE (6 >2003)  IPR0B» IPGNf TCA2» (RCA2( I) » I=l»3) ,RMP» (RCA2( l)t I=4f 6) » 
SVMP 

2003  FORMAT (lHl//100X*PROBLEM*I10r5X*PAGE*I5//////i^/lX130{lH*)///8X 
$*MOST  RECENT  NOMINAL  TRAJECTORY  REACHED  POINT  OF  CLOSEST  APPROACH 
STO  TARGET  PLANET  AT  *F10t3*  DAYS*///53X*X*19X*Y*19X*Z*15X*RESULTAN 
$T*/8X*P0SITI0N  RELATIVE  TO  TARGET  PLANET*4E20*10/8X*VEL0ClTY  RELAT 
SIVE  TO  TARGET  PLANET*4E20,10///lX130aH*) ) 

GO  TO  50 

45  IFdSPH.EQ.O)  GO  TO  47 
IFdSOIS.EQ.l)  GO  TO  47 
I SO 13=1 

DO  46  1=1 » 3 
RS0I3(1)=RSI(I) 

46  VS0I3(I)=VSI{I) 

TS0I3=DSI-DATEJ 

BSI3=B 

BDTSI3=BDT 

B0RSI3=B0R 

RMP=SQRT ( RSOI 3 ( 1 ) *RSO 13(1) +RSO I 3 ( 2 ) *RSO I 3 ( 2 ) +RSOI 3 ( 3 ) *RSO I 3 ( 3 ) ) 
VMP=SQRT(VS0I3{1)*VS0I3(1)+VS0I3(2)*VS0I3(2)+VS0I3(3)*VS0I3(3)) 
IP6N=IPGN+1 

WRITE (6»2004)  IPR0B» IPGN»TS0I3»RS0I3»RMP» VS0I3» VMP»BSI3f BDTSI3» 
SBDRSI3 

2004  FORMAT  ( 1H1//100X*PROBLEM*I10  » 5X»  *PAGE*l5/////ii(f//lX»  130  ( IH*)  /// 


a.8X*ACTUAL  TRAJECTORY  ENCOUNTERED  SPHERE  OF  INFLUENCE  AT  TRAJECTORY 
S TIME  * FXO.S*  DAYS*///53X*X*19X*Y*19X*Z*15X*RESULTANT»/ 

$8X*P0SITI0N  RELATIVE  TO  TARGET  PLANET*4E20.10/ 

S8X*VEL0CITY  RELATIVE  TO  TARGET  PLANET*4E20. 10 

$///8X*B  = ♦E20.10f5X*B  DOT  T = ♦E20,10»5X*B  DOT  R = ♦E20.10/// 

$1X130(1H*)) 

47  IF(ICA3.EQ.l)  GO  TO  50 
DO  48  1=1 » 6 

48  RCA3(1)=RC{I) 

TCA3=DC-DATEJ 
IF(ICL.EQ.O)  GO  TO  50 
ICA3=1 

RMP=SQRT (RCA3 ( 1 ) *RCA3 (1 ) +RCA3 ( 2 ) *RCA3 (2) +RCA3 (3) *RCA3 (3) ) 

VMP=SQRT ( RCA3 ( 4 ) *RCA3 ( 4 ) +RCA3 ( 5 ) *RC A3 (5 ) +RCA3 ( 6 ) ♦RCA3 ( 6 ) ) 
IPGN=IPGN+1 

WRITE(6»2005>  IPR0B» IPGN»TCA3» (RCA3( I ) » 1=1 »3) rRMP» (RCA3 ( I ) » I=4»6) # 
$VMP 

2005  FORMAT (1H1//100X*PROBLEM*I10»  5X*PAGE*I5//////;//lX130 ( 1H*)///8X 

S»ACTUAL  TRAJECTORY  REACHED  POINT  OF  CLOSEST  APPROACH  TO  TARGET  PLA 
SNET  AT  ♦ Flo. 5+  DAYS*  ///53X*X*19X*Y*1^X*Z*15X*RESULTAN 

$T*/8X*P0SITI0N  RELATIVE  TO  TARGET  PLANET*4E20.10/8X*VELOCITY  RELAT 
SIVE  TO  TARGET  PLANET*4E20 ,10///lX130 ( IH*) ) 

50  IFC  ABSdCODE)  .NE.  3)  GO  TO  100 
NBOD=NBODS 

ACC=ACCS 
DO  51  I=l»NBOD 

51  NB(I)=NBS(I) 

PMASS<1)=SAVE1 

PMASS(NTP)=SAVE2 

SMJR(K1+1)=SAVE3 

■ SMJR(K1+2)=SAVE4 
IF(NTP.GT,5)  go  to  80 
CN(K2+1)=SAVE5 
CN(K2+2)=SAVE6 
CN(K2+3)=SAVE7 
CN(K2+4)=SAVE8 
CN(K3+l)=SAVEi0 
CN(K3+2)=SAVE11 
CN(K3+3)=SAVE12 
CN(K3+4)=SAVE13 
GO  TO  100 

80  ST(K2+1)=SAVE5 

ST(K2+2) =SAVE6 
ST(K3+1)=SAVE10 
ST{K3+2)=SAVE11 
GO  TO  100 

60  DO  61  l=l.NBOD 

61  NBS(I)=NB(I) 

NBOOS=NBOD 

NBOD=NBODl 

DO  62  I=l.NBOD 

62  NB(I)=NB1(I) 

ACCS=ACC 

ACC=ACC1 

5AVE1=PMASSU) 

PMASS { I ) =PM ASS  < 1 ) +DMUSB*TM*TM/ < ALNGTH*ALNGTH*ALNGTH ) 
SAVE2=PMASS(NTP) 

PMASS ( NTP) =PMASS ( NTP) +DMUPB*TM*TM/{ ALNGTH*ALNGTH* ALNGTH ) 
Kl=2*(NTP-2) 

SAVE3=SMJR(K1+1) 
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SAVE‘+sSMJR(Kl,+2) 

SMJR(K1+1)5SMJR(K1+1)  + DAB/ALNGTH 
SMJR(Kl+2)=SMaR(Kl+2)  + DAB/ALNGTH 
IF(NTP.GT.5)  eo  TO  70 
K2=20»NTP-2a 
SAVE5=CN(K2+1) 

SAVE6=CN ( K2+2 ) 

SAVE7=CN(K2+3) 

SAVE8=CN(K2+4) 

CN(K2+i)  = CN{K2+1)  + DEB 

CN(K2+2)  = CN(K2+2)  + DEB 

CN(K2+3)  = CN(K2+3)  + DEB 

CN(K2+4)  = CN(K2+4)  + DEB 

K3=20*(NTP-2) 

SAVE10-CN(K3+1) 

SAVEll=eN(K3+2) 

SAVEl2=CN(K3+3) 

SAVEl3=CN(K3+4) 
CN(K3+1)=CN(K3+1)+DIB 
CN ( K3+2 ) =CN ( K3+2 ) +D IB 
CN(K3+3)=CN(K3+3)+DIB 
CN(K3+4)=CN(K3+4)+DIB 
GO  TO  5 

70  K2=10*NTP-14 

SAVE5=ST(K2+l) 

SAVE6=ST(K2+2) 

ST(K2+1)  = ST(K2+1)  + DEB 
ST(K2+2)  = ST(K2+2)  + DEB 
K3=10*(NTP-2) 

SAVEiO=ST(K3‘+l) 

SAVEll=ST(K3+2) 

ST (K3+ 1 ) =ST ( K3+ 1 ) +D IB 
ST (K3+2 ) =ST IK3+2 ) +DIB 
GO  TO  5 

100  RETURN 
END 
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o r>  r>  o o o o o o o n n o o o o n n o o n n o n o o o n o r>  r>  o 


SUBROUTINE  ORB<IPfD) 


THIS  SUBROUTINE  DETERMINES  THE  MEAN  ORBITAL  ELEMENTS  (A»  E»  I» 
NODE»  OMEGA)  OF  EACH  OF  THE  PLANETS  AT  A GIVEN  DATE.  THE 

ARGUMENTS  ARE  DEFINED  AS  FOLLOWS, 

IP  - NUMBER  OF  PLANET  AS  GIVEN  BY  THE  FOLLOWING  CODE 

1 - SUN 

2 - MERCURY 

3 - VENUS 

4 - EARTH 
3 - MARS 

6 - JUPITER 

7 - SATURN 

8 - URANUS 

9 “ NEPTUNE 

10  - PLUTO 

11  - EARTH-S  MOON 

D - DATE  AT  WHICH  THE  ELEMENTS  ARE  TO  BE  EVALUATED 

THE  elements  ARE  RETURNED  IN  THE  ARRAY  ELMNT  AS 

ELMNT{8*IP-15)  = I 
ELMNT (8*1P-14)  = NODE 
ELMNT (8+IP-13)  = OMEGA 
ELMNT (8* IP-12)  = E 
ELMNT <8*1P-10)  = A 
ALSO  ELMNT (8*IP-  9)  = OMEGA  - NODE 


COMMON  /BLK/T , PM ASS (1 1 ) f CN ( 80 ) r ST ( 50 ) » EMN ( 15 ) » SM JR ( 18 ) 

COMMON  /BLK/RADrUSai)  .RMASS(ll)  »NO(11)^ELMNT(80)  .SPHEREUl)  »XP(6) 
COMMON  /PRT/M0NTH{12)  f PLANETdl) 

FNl(A,B.C»DfX)i:A+B*X+C*X»X+D*X*X»X 

FN2(A»B»X)=A+8*X 

T=D/36525. 

P 12=2. ♦PI 
I=IP-1 

IF(I)180»240»180 

180  IF (1-9) 181 » 181. 220 

181  IT  = 2»(I-1) 

1L=4^IT 

ELMNT ( IL+6 ) =FN2 (SM JR ( I T+ 1 ) » SM JR ( IT+2 ) . T ) 

IF(I-4) 190. 190,200 

190  IK=IL 

DO  191  J=1.13,4 
IK  = IK  + 1 
K=20*(I-1)+J 

ELMNT(IK)  = FN1(CN(K).CN(K+1).CN(K+2),CN(K+3),T) 

191  CONTINUE 
GO  TO  210 

200  IK=IL 

DO  201J=1.7.2 

1K=IK+1 

K=10*(I-5)+J 

ELMNT(IK)  = FN2(ST(K).ST(K+1).T) 

201  CONTINUE 
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210  ELMNT  ( IU+7)=ELMNT  ( lL+3)  -ELMNT  ( Ii.+2) 

SO  TO  240 

220  ELMNT(73)=EMN(13) 

ELMNT ( 74 ) =FN1 ( EMN ( 1 ) » EMN (2 ) *36525 , » EMN ( 3 ) » EMN (4 ) » T ) 
ITEMP?ELMNT(74)/PI2 

ELMNT ( 74 ) =ELMNT ( 74 ) -FLOAT ( I TEMP ) *P 12 
ELMNT(75)=FN1<EMN(5) » EMN (6) *36525. »EMN(7) »EMN{8) »T) 
ITEMP=ELMNT(75)/PI2 

ELMNT (75) =ELMNT (75)-FL0AT ( ITEMP) *PI2 
ELMNT{76)=EMN(14) 

ELMNT  ( 78  )=EMNU5) 

240  CONTINUE 
RETURN 
END 
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SUBROUTINE  OT2(XLfXP»  DDRMl»CCVMl»CCPSI»CCA»CCI»DDVMl»TTRM7f 
ITT VM7 » CC7 A 1 » CCT A7 » TL » T IN J » NTDD f TF » NTTT » C3 » HHVM2» DLAQ » R ALQ » RU rHHVQM 
2 . PTH » VHP » DP A » R AP » HHE » DDAZ  t TB » PHI » THI » R A I » AZ I » TC  f CCE ) 

DIMENSION  NTDD(5) f NTTT(5) »XL(6) »XP{6) »DDR1(3) ,TTR7(3) 

WRITE(6r900) 

PI  = 3.1A15926536 
DO  1 I=l»3 
OORl(I)=XL(I) 

1 TTR7(I)-XP(I) 

AU  = 149.5985 

AUDAY  = AU/(24.*3600.)*1000000. 

RAD  = 57.2957795 
R = CCTA7/6. 28318531 
N = R 
X = N 

CCTA7  =:  (R-X)*6. 28318531 
IF(DLO)  30»31»30 

30  DLA  = ATAN(DDR1/DL0) 

IF(0L0)32f31f33 

31  DLA  = PI/2. 

IF(ODRl)  32 » 33 » 33 

32  DLA  = DLA  + PI 

33  IF(DLA)34,35»35 

34  DLA  = 2.  *PI  + DLA 

35  IF(TLO)  40»41f40 

40  TLA  =ATAN(TTR7/TL0) 

IF<TL0)42.41.43 

41  TLA  = PI/2. 

IF(TTR7)42.43f43 


42 

TLA  = 

TLA  + PI 

43 

IF(TLA)44.45.45 

44 

TLA  = 

2*  ♦ PI  + TLA 

45 

AZL  = 

GAL  = 

0«0 

GAP  = 

0*0 

CCVM7 

= 0,0 

HCA  = 

0*0 

AZP  = 

0*0 

RCA  = 

0*0 

APO  = 

0*0 

DDRMl 

= DDRMl* AU 

CCVMl 

= CCVMl^AUOAY 

CCPSI 

= CePSI^RAD 

CCA=CCA*AU 

CCI=CCI*RAD 

DDVMl  = DDVMl^AUDAY 

TTRM7  = TTRM7*AU 

TTVM7  = TTVM7*AUDAY 

CCTAl  = CCTA1*RAD 

CCTA7  = CCTA7*RAD 

WR ITE ( 6 » 956 ) NTDD » SDD » TF » NTTT » STT 

WRITE (6.957) 

WRITE (6.950)  DDRMl. DLA rDLO.CCVMl. GAL. AZL.CCPSI. CCA. CCE.CCI. DDVMl 
WRITE (6 » 951 ) TTRM7 » TLA » TLO » CCVM7 . GAP . AZP . CCTAl .CCTA7 . RCA . APO . TTVM7 
WRITE (6. 958) 

WR ITE ( 6 . 953 ) C3 . HH VM2 . DLAQ . RALQ . RU . HHVQM . PTH . VHP . DPA . RAP » HHE 
WRITE(6»954) 

SEC  = TL*3600. 

ITL  = TL 
XI  = ITL 
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SECH  = Xl«3600. 

MTL  = (SEC  - SECH)  /60, 

SECM  = MTL*60 

SJTL  - SEC  - SECH  - SECM 

SEC  = TINJ  ♦ 3600, 

I HOUR  = TINJ 
XI  = IHOUR 
SECH  = Xl*3600. 

MIN  = (SEC-SECH)/60, 

SECM  = MIN*60 
SECI  = SEC-SECH-SECM 

WRI TE ( 6 » 955 ) DDAZ  riTLr MTL f SJTL f T8 , PHI »THI »RAI » AZI » IHOUR » MIN rSECI » TC 

900  FORMAT(//10X»25HPOINT-TO-POINT  CONDITIONS) 

950  FORMAT (6X»2HRL»F8,2»lX»3HLAL»F6.2»lX»3HL0L»F7,2rlX»2HVL#F8.3»lX»3 
IHGAL » F7 , 2 » IX  f 3H AZL » F7 . 2 f IX  # 3HHC A » F7 . 2 » IX » 3HSMA » F7 .2 » IX » 3HECC  » F7 . 5 » 
21X»3HINC»F7,4flX»2HVl»F8.3) 

951  FORMAT (6X»2HRP»F8,2»lX»3HLAPfF6*2»lX»3HL0P»F7,2»lX»2HVPrF8.3»lX» 3 
1H6AP»F7.2»1X»3HAZP»F7,2»1X»3HTAL»F7,2»1X» 3HTAP»F7,2»1X»3HRCA»F7.2» 
21X  f 3HAP0f  F7 . 2 » IX  »2HV2 » F8 . 3 ) 

952  FORMAT ( 6X » 2HRC » F8 , 3 rl X * 2HGL » F7 . 2 » IX » 2HGP » F8 . 2 » IX » 3HZ AL » F7 . 2 » 1 X » 3H 
lZAP»F7.2»lX»3HETS»F7.2»lXr3HZAE»F7.2»lX»3HETE»F7.2»lX»3HZACfF7.2rl 
2X  f 3HETC » F7 , 2 rl X » 3HCLP » F7 . 2 ) 

953  FORMAT (6X»2HC3»F8.3flXr3HVHL»F8.3flX»3HDLA»F7,2»lX»3HRAL»F7.2>lX» 

1 3HRAD  » F7 . 1 » IX » 3HVEL » F7 , 3 » IX » 3HPTH » F6 , 2 » 1 X » 3H VHP » F7 . 3 » IX » 3HDP A » F6 , 2 
2 » IX » 3HRAP  f F7 . 2 » IX » 3HECC » F7 , 4 ) 

955  FORMAT(7X»F7,2f4X»I2rlXrI2»lXrF2.0f2XrF8,2f3X»F6,2»3XfF7.2»4XfF7,2 
1 r 5X » F7 . 2f  3X » 12 » IX » 12 » IX » F2 . Of  4X  f F7 . 1 » 3X » F8 . 2f  3X » F9,2) 

954  FORMAT {6X»118HLNCH  AZMTH  LNCH  TIME  L-I  TIME  INJ  LAT  INJ  LONG 
IINJ  RT  ASC  INJ  AZMTH  INJ  TIME  PO  CST  TIM  INJ  2 LAT  INJ  2 LONG 
2) 

956  FORMAT(  6X»llHLAUNCH  DATE»I6f4I3fF8.3»15Xf IIHFLIGHT  TIMEf F9,2f8X» 

$ 12HARRIVAL  DATEf I6»413f F8.3) 

957  FORMAT(  7Xf laHHELIOCENTRIC  C0NlC»33Xf8HDISTANCEf2X»F8,3) 

958  FORMAT (7Xf20HPLANETOCENTRIC  CONIC) 

RETURN 

END 
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SUBROUTINE  OUT 1 ( ITARG f JOPT » NITS » NB 1 1 DAT! rSl » I0AT2 » S2 » IDAT3» S3 • BDT » 
2 BDR » DINC » RC A » TOLl » T0L2 » T0L3 » ACC  f RS  rINPR  r DELTP  » NBOD » LVOPT » AC » MIDI ) 
DIMENSION  NBUl)  »IDAT1(5)  »IDAT2(5)  »IDAT3(5)  »RS<6)  »AC(5) 

7 WRITE(6r6i7)J0PT 
GO  TO  (9»10)»U0PT 

9  WRITE (6 » 629) 

GO  TO  11 

10  WR1TE(6»630) 

11  WRITE(6r610)N8(2) 

WRITE (6»611)IDATlf SI 
IF(ITAR6-2)12»12»8 

8 WRITE (6»620) 

RSM=SQRT ( RS ( 1 ) *RS ( 1 ) +RS ( 2 ) *RS ( 2 ) +RS (3 ) *RS ( 3) ) 

VSM=SQRT ( RS ( 4 ) *RS ( 4 ) +RS ( 5 ) ♦RS { 5 ) +RS ( 6 ) ♦RS ( 6 ) ) 

WRITE(6»621)  (RS(I)  a=l»3)  »RSM 
WRITE(6»622) (RS(I) a=4>6) »VSM 

12  CONTINUE 

2 WRITE(6»609)1TAR6 

GO  TO  (21»22r23»24»25»26) »ITARG 

21  WRITE{6f623) 

60  TO  27 

22  WRITE (6»624) 

60  TO  27 

23  WRITE (6f625) 

60  TO  27 

24  WRITE (6 r 626) 

GO  TO  27 

25  WRITE (6» 627) 

GO  TO  27 

26  WRITE (6 » 628) 

27  CONTINUE 
WRITE(6»610)NB(3) 

WRITE(6»611)IDAT3»S3 

GO  TO  (12f6»6f6»3»3) » ITARG 

3 WRITE(6»6l2)DINC»RCArIDAT3»S3 
IF(ITARG-5)5»5»4 

4 WRITE (6» 613) TOLl *T0L2»T0L3 
T0L1=25, 

T0L2=25. 

TOL3=.005 

5 WRITE (6. 614) 

6 WRITE(6r615)BDT»BDRrIDAT2rS2 
WR I TE ( 6 » 6 16 ) T OLl » T0L2 » T0L3 
WRITE(6»631)LV0PT 
IF(LVOPT-1)30»30»31 

30  WRITE{6»632) 

WR I TE ( 6 # 633 ) ACC rNITS 
GO  TO  40 

31  WRITEt6»634)LVGPT 
18=8 

WRITE(6»633)AC(1)»I8 

LV1=LV0PT-1 

DO  32  I=2»UV1 

32  WRlTE(6f635)I»AC{I) rMiDI 
WRITE ( 6 » 635 ) LVOPT » ACC  f NITS 

40  CONTINUE 

WRITE(6»600) 

600  FORMATUHl) 

603  FORMAT (//  10X»18HPR06RAM  PARAMETERS) 

604  FORMAT (20X»9HACCURACY=»E10, 2) 
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605  FORMAT ( 20X » 7HB0D IES= » 1 1 13 ) 

606  FORMAT (20X»aiHMAX  NO  OF  ITERATIONS=f 13) 

607  FORMAT(20X»17HPRINT  INCREMENTS=» 16) 

608  FORMAT(20X»20HPRINT  TIME  INTERVAL=»F10,3) 

609  FORMAT(//10X»27HTARGET  CONDITIONS  (OPTION^ I2» IH) ) 

610  F0RMAT(20X»7HPLANET=»I3) 

6 1 1 FORM AT ( 2 0 X » 5HD ATE= » 1 5 » 1 3 fl 3 » 1 3 » 1 3 »F7 , 3 ) 

612  FORMAT (20X»4HlNC=rF10. 4f5Xf4HRCA=»F10.1»5X»4HTCA=rI5fI3»I3»I3» 13* 

1 F7.3) 

613  FORMAT ( 20X * 4HT0L=  * FIO . 4 * 5X * 4HT0L=  * FIO . 1 * 5X * 4HT0L=  * F9 .5 ) 

614  FORMAT(15X*20HAUXILIARY  CONDITIONS) 

615  FORMAT(20X*4HB.T=*F10,l*5X*4HB.R=*Fi0.1*5X*4HTSI=*I5*I3*I3*I3f 13* 

1 F7.3) 

616  FORMAT(20X*4HTOL=*F10.1*5X*4HTOL=*F10.l*5X*4HTOL=*F9,5) 

617  FORMAT(//10X*30HINJECTION  CONDITIONS  (OPTION* 12* IH) ) 

618  FORMAT (20X*39HZER0  ITERATE  INJECTION  CONDITIONS  INPUT) 

619  FORMAT (20X*72H2ERO  ITERATE  INJECTION  CONDITIONS  COMPUTED  FROM  PATG 
IHED  CONIC  TRAJECTORY) 

620  FORMAT (20X*33HHEkI0CENTRIC  ECLIPTIC  COORDINATES) 

621  FORMAT ( 20X  * 9HP0S ITION=  * 3 ( 5X  * £17 . 10 ) * 5X  * 4HMAe=  * EIT , 10 ) 

622  FORMAT ( 20X  * 9HVEL0CIT Y=  * 3 ( 5X . F13 . 9 * 4X ) * 5X  * 4HMAGS  * F14 , 10 ) 

623  FORMAT (20X*38HOPTION  1 ...  POINT-TO-POINT  CONDITIONS) 

624  FORMAT(20X*46HOPTION  2 ...  TARGETED  PATCHED  CONIC  CONDITIONS) 

625  FORMAT (20X*36H0PTI0N  3 ...  B.T*B.R* APPROXIMATE  TSI) 

626  FORMAT (20X*24H0PT ION  4 ...  B.T*B.R*TSI) 

627  FORMAT(20X*36HOPTION  5 ...  APPROXIMATE  INC*RCA*TCA) 

628  FORMAT(20X*24HOPTION  6 ...  INC*RCA*TCA) 

629  FORMAT (20X*59HOPTION  1 ...  COMPUTE  R*V*TINJ  FROM  PATCHED  CONIC  TRA 
IJECTORY) 

630  FORMAT(20X*27HOPTION  2 ...  INPUT  R*V*TINJ) 

631  FORMAT(//10X*28HTARGETING  SCHEDULE  (OPTION* I2* IH) ) 

632  FORMAT(20X*7H1  LEVEL) 

633  FORMAT (20X*23HLEVEL  1 ACCURACYs*  E10.2* 5X* llHITERATlONSs* 13* 

1 5X*12HSTM  COMPUTED) 

634  FORMAT (20X* II *7H  LEVELS) 

635  FORMAT(20X*5HLEVEL*I2*16H  .....  ACCURACY=*E10.2*5X*11HITERATIONS=* 
1 I3*5X*11HSTM  ASSUMED) 

RETURN 

END 


SUBROUTINE  PARTL ( R » V » B ► BDT » BOR » PBT » PBR ) 

DIMENSION  R(3) »V(3) »PBT(6) »PBR(6) 

U2=V(1)*V(1)+V(2)*V(2) 

U=SQRT(U2) 

V2=U2+V(3)*V(3) 

S=SQRT(V2) 

H3=R(1)*V(2)-V(1)*R(2) 

RU=Ra)*V(l)+R(2)*V{2) 

U2PV2=U2+V2 

UV=U*S 

UV3=UV*UV*UV 

BDT=H3/U 

BDR=(RU*V(3)-U2»R(3) )/UV 
8=SQRT ( BDT*BDT+BDR*BDR ) 

PBT(i)=V(2)/U 

PBT(2)=-VU)/U 

PBT(3)=0. 

PBT ( 4 ) =-V ( 2 ) *RU/ ( U*U*U ) 

PBT ( 5 ) =V ( 1 ) *RU/ ( U*U*U ) 

PBT{6)=0. 

P8Ra)=V(l)*V(3)/UV 

PBR(2)=V(2)*V(3)/UV 

PBR(3)=-U/S 

PBR ( 4 ) = V ( 3 ) * ( U2* ( V2*R ( 1 ) -V ( I ) *R ( 3 ) *V ( 3 ) ) -V ( 1 ) *U2PV2*RU ) /UV3 
PBR ( 5 ) =V ( 3 ) * ( U2* ( V2*R (2 ) -V ( 2 ) *R ( 3 ) *V ( 3 ) ) - V ( 2 ) *U2PV2*RU ) /UV3 
PBR (6)  =U* (R a ) *VU ) +R (2)  *V (2)  +R ( 3) *V (3) ) / (S*S*S) 

RETURN 

END 
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SUBROUTINE  PCTM(RI) 

COMMON/BLK/T  » PMASS ( 11 ) » CN ( 80 ) » ST ( 50 ) . EMN  <15 ) » SMUR (18 ) 

COMMON  /BLK/R AOIUS  < 1 1 ) » RMASS (1 1 ) » NO ( 1 1 ) » ELMNT ( 80 ) » SPHERE ( 1 1 ) » XP ( 6 ) 
COMMON/MISC/ACC » IDNF » ICOOR » ITR » IMNF » FACP  f FACV » ISP2 » BI A (12 ) » IPGN 
COMMON/STM/P ( 17 » 17 ) » PSI ( 17 » 17 ) t Q ( 17 » 17 ) » H ( 4 » 17 ) » R ( 4 » 4 ) » AK ( 17r  4 ) 
S»PB(17»17)fPSIP(17»17) »HPHR(4»4) 

COMMON/TIM  /DATEJfTRTMlfDELTM»FNTM»UNlVT»TRTMB 

COMMON/ VM/NBOD » NB ( 1 1 ) » NTP » ALNSTH  # TM » DELTP» INPR » IPROB » RC ( 6 ) » DC » 

SRSI ( 3 ) » VSI ( 3 ) » DSl » ISPH » RVS ( 6) » VMU » B »BDT  »BDR » DELTHt  TIMINT» INCMT» 
$IEPH£M»ICL»IPRINT»RE(6) »RTP(6) »ICL2 
DIMENSION  RI(6) »RS(3) »VS(3) »DUM(6»6) 

D=TRTM1+OATEvJ 
DO  10  I=l»NBOD 
IP=NB(I) 

NO(l)=IP 
CALL  0RB(IP*D) 

CALL  EPHEM(l»D»r) 

DO  50  K=l»3 

R5(K)=RI(K)-XP(K)*ALNGTH 
50  VS ( K ) =RI ( K+3 ) ~XP ( K+3 ) *ALNGTH/TM 

RM=SQRT ( RS ( 1 ) *RS ( 1 ) +RS ( 2 ) *RS ( 2 ) +RS ( 3 ) *RS ( 3 ) ) 

IF ( SPHERE ( IP )*ALNGTH*1.1.GE,RM)  GO  TO  20 
10  CONTINUE 

IP=1 

DO  60  1=1 r3 
RS(I)=RI(I) 

60  VS{I)=RKl+3) 

20  GMS=PMASS ( IP ) *ALNGTH»ALN6TH*ALNGTH/ ( TM*TM ) 

D£LT=DELTM*TM 

CALL  C0NC2 ( RS » VS  f DELT  f GMS » DUM ) 

DO  40  1=1 »6 
DO  40  U=l»6 

40  PSI (I»J)=DUM(I» J) 

RETURN 

END 


SUBROUTINE  PECEQ ( NP » D r ECEQ ) 

DIMENSION  ECEQ(3r3) rEC0P(3»3) »OPEQ(3f 3) 

D6TR=. 0174532924 
DO=D/10000. 

T=D/36525, 

XLQ=0, 

XIQ=0, 

60  TO  ( 50 f 2 » 3 f 4 > 5 » 6» 7 » 0 » 9 » 10 ) » NP 

2 XI=0 . 1222233228+3, 24776685E-05*T-3. 199770295e-07*T*T 
XL=0, 8228518595+2, 068578774E-02*T+3.034933644E-06*T*T 
GO  TO  20 

3 X 1= , 0592300268+1 , 755510339E-05*T>1 , 696a47884E-08*T*T 
XL=l ,32260435+1 , 570534527E-02*T+7 , 155849933E-06*T*T 
GO  TO  20 

4 XI=0, 

XL=0, 

XIQ=23,445*D6TR 
XLQ=0 , 

GO  TO  20 

5 XI=,0322944089-1,178097245E-05*T+2,201054112E-07*T*T 
XL=, 8514840375+1, 345634309E“02*T-2,424068406E-08*T*T 

% -9,308422677E“08»T*T*T 
XIQ=23,99*D6TR 
XLQ=140.881*D6TR 
GO  TO  20 

6 XI=0 , 0228410270-9 .696273622E-05+T 
XL=1 , 7355180770+1 , 764479392E-02+T 
GO  TO  20 

7 XI=0, 0435037861-7, 757018898E-08»T 
XL=1 .9684445802+1 , 523977870E-02*T 
60  TO  20 

8 X 1=0 , 0134865470+9 , 696273622E-06*T 
XL=1 , 2826407707-1 . 599885148E-04*T 
GO  TO  20 

9 XI=0. 0310537707-1, 599885148E-04+T 
XL=2. 2810642235+1. 923032859E-02*T 
GO  TO  20 

10  XI=0. 2996712672 
XL=1. 917865870 

20  CALL  EULMX(XLf3rXIrl,0,»0,ECOP) 

CALL  EULMX ( XLQ  f -3 » X IQ , -1 » 0 . » 0 » OPEQ ) 

DO  60  I = 1»3 
DO  60  J = 1»3 
ECEQ(I»J)  = 0.0 
DO  60  K = lr3 

60  ECEQM»U)  = ECEQd+J)  + OPEQ(I»K)»ECOP(K»J) 

50  CONTINUE 
RETURN 
END 
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SUBROUTINE  PLANE ( XL t XP » HC A » HC I » HCW » HCN rNTYS ) 
DIMENSION  XL(6)»XP(6)»HCN(3) 

PI=3. 1415926536 

RL=SQRT ( XL ( 1 ) »XL ( 1 ) +XL ( 2 ) *XL ( 2 ) +XL (3) *XL ( 3 ) ) 

RP=SQRT ( XP ( 1 ) »XP ( 1 ) +XP ( 2 ) ♦XP ( 2 ) +XP ( 3 ) ♦XP ( 3 ) ) 
HCN(1)SXL(2)*XP<3)-XL(3)*XP{2) 
HCN(2)=XU3)*XP(1)-XL(1)*XP(3) 
HCN(3)=XL(1)*XP(2)-XL(2)*XP(1) 

HNM=SQRT ( HCN ( 1 ) ♦HCN ( 1 ) +HCN ( 2 ) ♦HCN ( 2 ) +HCN ( 3 ) ♦HCN ( 3 ) ) 
SGN=1. 

IF(HCN<3) )4»4»5 

4 SGNS-1. 

5 HCN(1)=SGN^HCN(1)/HNM 
HCN { 2 ) =SGN^HCN ( 2 ) /HNM 
HCN ( 3 ) =SGN^HCN ( 3 ) /HNM 

RLP=XLU)^XP(1)+XL(2)^XP(2)+XL(3)^XP(3) 

CHCA=RLP/(RL^RP) 

SHC A=S6N^SQRT ( 1 . -CHC A*CHC A ) 

IF(A8S(SHCA)-.0001)6»6f7 

6 L0C=8 
WRITE(3»17) 

RETURN 

7 CI=HCN(3) 

SI=SQRT(1.-CI^CI) 

CW=XL(1)/RL 

SW=XL(2)/RL 

S=SHCA 

C=CHCA 

J=0 

8 U=J+1 
IF(C)9»10*9 

9 ANG=ATAN(S/C) 

IF(C)ll»l0fl2 

10  ANe=PI/2. 

IF(S)11*12»12 

11  ANG=AN6+PI 

12  IF(ANG)13»14»14 

13  ANG=AN6+2.^PI 

14  60  TO  (15»16)rJ 

15  HCA=AN6 
S=SW  _ 

c=cw 

GO  TO  8 

16  HCW=ANG 
NTYS=1 

IF(HCA-PI)19»19»18 

18  NTYS=2 

19  IF(XP(3)^(PI-HCA))20f20»21 

20  HCWSHCW+PI 

21  HCIsATAN(SI/CI) 

17  FORMAT ( IX. 22HHCA  IS  LESS  THAN  .0001) 

RETURN 

END 


372 


subroutine  PLND(RI»RF) 

COMMON/BLK/TrPMASSUl)  » CN ( 80 ) »ST ( 50 ) »EMN(15)  rSMJRdS) 

COMMON  /8LK/R AD I US ( 1 1 ) » RM ASS ( 1 1 ) » NO (11) » ELMNT ( 80 ) » SPHERE ( 1 1 ) » XP ( 6 ) 
C0MM0N/C0NST3/DELXAf delta rDELZA »DELXE» DELYE fDELZE»DEUXI» DELYI » 
4DELZ I f DELAXS » DELECC » DEL I CL » DELMUS » OELMUP 
COMMON/MlSC/ACC»IDNFf IC00RflTR»lMNFfFACP»FACV»ISP2»BIA(12)»IPGN 
C0MM0N/STM/P(17»17)  ^PSKlTd?)  fQ(17rl7)  »H(4»17)  »R(4»4)  »AK(17r4) 

S » PB ( 17 » 1 7 ) » PS I P ( 1 7 » 17 ) » HPHR (4  f 4 ) 

C0MM0N/STVEC/XI{17) »XF(17) »NDIM» IAUG»XB(17) 

COMMON/TIM  /DATED » TRTMl » DELTM > FNTM » UNI VT , TRTMB 
COMMON/TRADCD/NTMC  » ISTMC  t ISTMl » DTMAX  f NDACC  f ACCND 
COMMON/VM/NBOD » NB ( 1 1 ) » NTP » ALNGTHf  TM » DELTP , INPR » IPROB » RC ( 6 ) » DC » 

SRSI ( 3 ) f VS I ( 3 ) f DS I » ISPH » RVS ( 6 ) » VMU . 8 » BDT*  BDR  f DELTH  » TIMINT » INCMT » 
JIEPHEM»ICL»IPRINT»RE(6) »RTP(6) »ICL2 
DIMENSION  THTWG(6r3) »RPER(6) 

DIMENSION  RI(6) »RF(6) 

K=2*(NTP-2) 

IPR=IPRINT 

IPRINT=1 

SAVEl=SMJR(K+l) 

SAVE2=SMJR(K+2) 

SMJR (K+1 ) =SAVE1+0ELAXS/ALNGTH 
SM JR ( K+2 ) =SAVE2+DEL AXS/ ALNGTH 
CALL  NTM(RI»RPERrNTMC»0) 

DELXA=RPER(1)-RF(1) 

DEL YA=RPER ( 2 ) -RF ( 2 ) 

0ELZA=RPER(3)-RF(3) 

DO  10  I=l»6 

10  THTWG ( I d ) = ( RPER ( I ) -RF ( I ) ) /DELAXS 
SMJR (K+1 )=SAVE1 
SMJR ( K+2 )=SAVE2 
IF(NTP.GT,5)  go  to  40 
K=20*NTP-28 
SAVE1=CN(K+1) 

SAVE2=CN(K+2) 

SAVE3=CN(K+3) 

SAVE4=CN(K+4) 

CN (K+1 ) =SaVE1+DELECC 
CN ( K+2 ) =SA VE2+DELECC 
CN ( K+3 ) =SAVE3+DELECC 
CN ( K+4 ) =SAVE4+DELECC 
CALL  NTM(RI»RPER^NTMCrO) 

OELXE=RPER(l)-RF(l) 

DELYE=RPER(2)-RF(2) 

DELZE=RPER(3)-RF(3) 

DO  20  I=l»6 

20  THTWG ( I » 2 ) = ( RPER ( I ) -RF ( I ) ) /DELECC 

CN(K+1)=SAVE1 
CN(K+2)=SAVE2 
CN(K+3)=SAVE3 
CN(K+4)=SAVE4 
K=20*(NTP-2) 

SAVE1=CN(K+1) 

SAVE2=CN(K+2) 

SAVE3=CN(K+3) 

SAVE4=CN(K+4) 

CN(K+1)=SAVE1+DELICL 
CN (K+2 ) =SAVE2+DELICL 
CN{K+3)=SAVE3+DELICL 
CN ( K+4 ) =SAVE4+DEL I CL 
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CALL  NTM(RIrRPER»NTMCrO) 
DELXI=RPERU)-RF(1) 
0ELYI=RP£R(2)-RF(2) 
DELZI=RPER(3)-RF(3) 

DO  30  i=l»6 

30  THTW6 ( I » 3 ) = ( RPER (I ) -RF (I ) ) /DELICL 

CN(K+1)=SAVE1 
CN(K+2)=SAVE2 
CN(K+3)=SAVE3 
CN(K+4)=SAVEH 
GO  TO  70 

40  K=10*NTP-14 

SAVE1=ST(K+1) 

SAVE2=ST(K+2) 

ST (K+1)=SAVE1+DELECC 
ST ( K+2 ) =SAVE2+DELECC 
CALL  NTM{RI»RPER»NTMC»0) 
DELXE-RPERU)-RF(l) 
DELYE=RPER(2)-RF{2) 
DELZESRPERC3)-RF(3) 

DO  50  1=1 » 6 

50  THTW6 ( I » 2 ) = ( RPER ( I ) -RF (1 ) ) /DELECC 

ST(K+1)=SAVE1 
ST(K+2)=SAVE2 
K=10*(NTP-2) 

SAVElsST(K+l) 

SAVE2=ST(K+2) 

ST ( K+1 ) =SA VE 1+DEL 1 CL 
ST ( K+2 ) =SAVE2+0ELICL 
CALL  NTM(RI»RPER»NTMC» 0) 
DELXI=RP£RU.)-RFa) 
DELYI=RPERC2)“RF(2) 
DELZI=RPER(3)-RF(3) 

DO  60  1=1 f 6 

60  THTWG U+3 ) s (RPER  ( I > -RF  ( I ) ) /DELICL 
ST(K+1)=SAVE1 
ST(K+2)=SAVE2 

70  IF(IAU6-9)  80 f 90 *100 

80  K=6 

GO  TO  110 

90  K=8 

GO  TO  110 

100  K=12 

110  DO  111  1=1*6 
DO  111  J=l*3 
KJ=K+U 

111  PSI(1*KJ)=THTW6(I*J) 

IPRINT=IPR 

150  RETURN 
END 


374 


SUBROUTINE  PQSVL(A»ErXI»WC»W»AM»WP»RP»R»VP»V»GMS) 
DIMENSION  RP(3)»VP(3)»WP(3)rWRP(3) 

P=A*U.“E*E) 

SNI=SIN(XI) 

CSI=COS(Xl) 

SNWC=SIN(WC) 

eswc=cos(wc) 

12  IF(AMUQfll»ll 

10  AM=AM+6, 2831853072 
GO  TO  12 

11  R=AM/6. 283 18531 
N=R 

X=N 

AM=(R“X) *6. 28318531 
EA=AM+E*SIN(AM)+.5*E**2*SIN(2.*AM) 

DO  20  1=1 » 10 
SEA=SIN<EA) 

CEA=COS(EA) 

AM1=EA-E*SEA 

DLE= ( AM-AMl ) / ( 1 .-E*CEA ) 

IF(ABS(DLE)-.5E-7)2f20»20 
20  EA=EA+DLE 

WRITE(3r4)DUE 

4 FORMAT <13hONO  CONV  DLE=E15,8) 

2 SGN=SEA/AbS{SEA) 

R=A*(1.-E*CEA) 

CTA=(P-R)/(E*R) 

STA=SQRT ( 1 . -CT A**2 ) *SGN 
PI  = 3.1415926536 
IF(CTA)30. 31.30 

30  TA  = ATAN(STA/CTA) 

IF (CT A) 32. 31 .33 

31  TA  = PI/2. 

IF(STA)32.33.33 

32  TA  = TA  + PI 

33  IF(TA)34.35.35 

34  TA  = 2. ♦PI  + TA 

35  CSWV=COS(W+TA) 

SNWV=SIN(W+TA) 

RP  { 1 ) =R^CSWV+eSWC--R^SNWV*SNWC^CSl 
RP (2) =R^CSWV+SNWC+R^SNWV^CSWC^CSI 
RP(3)=R^SNWV^SNI 
V=SQRT (2 . ♦GMS/R-GMS/A ) 

CSG=SQRT (GMS^P ) / (R*V) 

SNG=SGN*SQRT ( 1 . -CSG^^2 ) 

WRP (1 ) =WP (2 ) ♦RP ( 3 ) -WP ( 3 ) ♦RP { 2 ) 

WRP ( 2 )=WP ( 3 ) ♦RP ( 1 ) -WP ( 1 ) ♦RP ( 3 ) 
WRP(3)=WP(1)^RP(2)-WP(2)^RP(1) 

VP { 1 ) =V/R^ ( WRP ( 1 ) ♦CSG+RP ( 1 ) ♦SNG ) 

VP ( 2) =V/R^ (WRP ( 2 ) ♦eSG+RP ( 2 ) ♦SNG) 

VP ( 3 ) =V/R^ ( WRP ( 3 ) ♦CSG+RP ( 3 ) ♦SNG ) 

RETURN 

END 
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SUBROUTINE  PRED(RI»TEVN) 


THIS  subroutine  IS  RESPONSIBLE  FOR  THE  LOGIC  USED  IN  A PREDICTION 
EVENT. 

PRED  USES  THE  FOLLOWING  SUBROUTINES 
NTM 
PSIM 
DYNO 
NAVM 
JACOBI 
HYELS 


C0MM0N/C0NST2/U1 / U2 . U3 » VI » V2 . V3 » W1 » W2  * W3 » FOP » FOV 
COMMON/EVENT/NEV  f TEV ( 50 ) » lEVNT ( 50 ) r IHYPl » lEIG . TPT2 ( 20 ) » 

$ IC0T3 ( 20 ) f NPE  f NGE » IPOL » I IPOL » ICDQ3 ( 20 ) » SIGRES. SIGPRO » SIGALP » SIGBET 
* * NEV 1 » NE V2 » NE V3  f NEV4 . NQE 
COMMON/GU I /PG ( 17  rl7 ) , XG ( 6 ) f TG » EM ( 2 » 6 ) 

COMMON/MISC/ACC»  IDNF.  ICOOR»  ITR»  IMNF»FACP»FACV.  ISP2»BIAa2)  f IPGN 
COMMON  /NAME/MDNM(4f2)  »EVNM(4)  »MNNAMEU2f 3)  ^CMPNMdlr  17) 
COMMON/STM/P (17 » 17)  .PSI(17»  17)  »Q<17»l7)  fH(4»17)  »R(4»4)  »AKU7»4) 
$»PB(17«17) »PSIP(17fl7)fHPHR(4»4) 

C0MM0N/STVEC/XIU7)  .XF(17)  »NOIMMAUG»XB(17) 

COMMON/TIM  /DATEJ»TRTM1»DELTM»FNTM»UNIVT»TRTMB 
COMMON/TRAJCD/NTMC# ISTMC» ISTM1»0TMAX»NDACC»ACCND 
COMMON/TR J/ ISO 1 1 f ISO 12 » ISO 13 » IC A1 » IC A2  » IC A3  t RC Al ( 6 ) f RC A2 ( 6 ) » 
$RCA3(6) »RS0I1(3) »RS0I2(3) »RS0I3(3) fVSOIl(3) t VS0I2(3r » VS0I3(3) » 
$TCAl»TCA2.TCA3fTS0Il»TS0I2»TS0l3.BSIl»BSI2»BSI3»BDTSIl»BDTSI2» 
SBDTS 1 3 » BDRS 1 1 » BDRS 12 . BDRS 1 3 

COMMON/ VM/NBOD » NB ( 1 1 ) » NTP . ALNGTH . TM » DELTP . I NPR » I PROB  f RC ( 6 ) » DC » 
SRSK3)  »VSK3)  rDSI»ISPH»RVS(6) . VMUrB»BDT»BOR»DELTHfTIMINT»  INCMT» 

S lEPHEM » ICL  dPR  INT  f RE  ( 6 ) » RTF  ( 6 ) t ICL2 
DIMENSION  RK6)  »RF(6)  .P1(17»17)  »PEIG(3f3)  .EGVL(3)  »EGVCT(3»3) 
DIMENSION  VEIG(9) .RH0(17rl7) fDUM(2»2) »DUM2{2»2) 

DIMENSION  DUM3(2) 

C CALCULATE  P(TEVN»TRTMl) 

MAX=60 

NPE=NPE+1 

TPT=TPT2(NPE) 

DELTM=TEVN-TRTM1 
CALL  NTM(RI»RF»NTMC.1) 

301  DO  4 I=l»6 
4 XF(I)=RF(D 

IPGN=IPGN+1 

WRITE  (6 r3000 ) ( MDNM ( ITR » I ) » 1=1 » 2 ) » TEVN t TPT » IPROB » IPGN 
WRITE(6»3007)  TEVN 

WRITE(6»3001)  (CMPNMdAUGfl)  »XF(I)  »I=1»NDIM) 

LINES=NOIM+10 

CALL  PSIM(RI»RF»ISTMC) 

WRITE  (6f3002)  TEVN.TRTMl 

LINES=LINES+5 

DO  1 I=1»NDIM 

IF (LINES.lt. MAX-4)  GO  TO  7 

IPGN=IP6N+1 

WRITE  (6r3000)  (MDNM( ITR» I ) » I=l»2) fTEVN»TPT» IpROB# IPGN 
LINES=9 

7 IF  (NDIM.EQ.e)  GO  TO  8 
WRITE  {6»3013)  I 
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LINES=LINES+1 

a WRITE  (6»30I4)  (PSI ( I » J) » J=I »NDIM) 

1 LINES=LINES+(NDlM-l)/6+l 
CALL  DYNO(O) 

IF  (LINES.LE. MAX-8  ) GO  TO  12 
IPGN=IP6N+1 

WRITE  (6*3000)  (MDNM(ITR*I) *1=1*2) *TEVN* TPT* IpROB* IPGN 
LINE5-9 

12  WRITE  (6*3003) 

WRITE  (6*3014)  (Q ( I * I ) * 1=1 *NDIM) 

LINES=LINES+a 
CALL  NAVM(1*1) 

IF (LINES.lt. MAX-9)  GO  TO  13 
IPGN=IPGN+1 

WRITE  (6*3000)  (MDNM( ITR* I) * 1=1*2) *TEVN*TPT* IpROB* IPGN 
LINES=9 

13  WRITE  (6*3004)  TEVN*TRTM1 

LINES=LlNES+5 

DO  2 I=1*N0IM 
IF(HNES.LT.MAX-4)  GO  TO  9 
IPGN=IPGN+1 

WRITE  (6*3000)  (MDNM( ITR* I) * 1=1*2) *TEVN*TPT* IPROB* IPGN 
LINES=9 

9 IF  (NDIM.EQ.6)  GO  TO  23 

WRITE  (6*3013)  I 
LINES=L1NES+1 

23  WRITE  (6*3014)  (P( I* J) * J=1*NDIM) 

2 LINE5=LINES+(NDlM-l)/6+l 
DO  5 1=1*6 

5 RI(I)=RF(I) 

DO  10  I=1*NDIM 
DO  10  J=l*NOIM 

10  PKI*J)=P(I*J) 

trtmi=tevn 

DELTM=TPT-TEVN 

GO  TO  (200*200*201*200*201*200*201*200*201*201*201)*  lAUG 

200  IF(ISTMC.NE.3)  GO  TO  15 

201  IPR=IPRINT 
IPRINT=1 

C CALCULATE  P(TPT*TEVN) 

CALL  NTM(RI*RF*NTMC*0) 

IPRINT=IPR 

15  CALL  PSIM(RI*RF*ISTMC) 

IF(LINES.LT. MAX-9)  GO  TO  16 
IPGN=IP6N+1 

WRITE  (6*3000)  (MDNM( ITR* I )* 1=1*2) *TEVN*TPT* IPROB* IPGN 
LINES=9 

16  WRITE  (6*3002)  TPT*TEVN 
LINES=LINES+5 

DO  3 I=1*NDIM 

IF(LINES.LT. MAX-4)  GO  TO  24 
IPGN=IP6N+1 

WRITE  (6*3000)  (MDNM( ITR* I )* 1=1*2) *TEVN*TPT* IPROB* IPGN 
LINES='’ 

24  IF  (NDIM.EQ.6)  GO  TO  25 
WRITE  (6*3013)  I 
LINES=LINES+1 

25  WRITE  (6*3014)  (PSI ( I * J) * J=1 *NDlM) 

3 LINES=LINES+(NDIM-l)/6+l 
CALL  DYNO(O) 
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IF  (LINES. LE. MAX-8)  GO  TO  17 
IPGN=IPeN+l 

WRITE  (6»3000)  (MDNM ( ITRf I ) » I=l»2) »TEVN»TPT. IpROB* IPGN 
LINES=9 

17  WRITE  (6 » 3003) 

WRITE  (6»3014) (Q ( I » I ) » I=1»NDIM) 

LINES=LINES+8 
CALL  NAVM(lfl) 

IF (LINES.lt, MAX-9)  GO  TO  18 
IPGN=IPGN+1 

WR I TE  ( 6 » 3 0 0 0 ) ( MDNM  ( ITR » I ) » 1= 1 » 2 ) » TE VN » TPT » I pROB » I PGN 
LINES=9 

18  WRITE  (6f3006)  TPT»TEVN 

LINES=LINES+5 

DO  6 I=1»NDIM 

IF(LINES.LT, MAX-4)  GO  TO  26 
IPGN=IPGN+1 

WRITE  (6f3000)  (MDNM( ITR» I ) » 1=1 »2) »TEVN# TPTf IPROB» IPGN 
LINES-9 

26  IF  (NDIM,EQ.6)  GO  TO  27 

WRITE(6»3013)  I 
LINES=LINES+1 

27  WRITE  (6»3014)  (P(I» J) » J=1»NDIM) 

6 LINES=LINES+(NDlM-l)/6+l 

50  ICODE=0 

DO  60  1=1,3 
DO  60  d=l,3 
60  PEIG(I»J)=P(If J) 

K=0 

DO  98  J=l,3 
DO  98  1=1,3 
K=K+1 

98  VEI6(K)=P(I»J) 

CALL  JACOBI ( VEIG , EGVL t EGVCT , 3 , FOP ) 

IF  ( LINES, LE, MAX-16)  GO  TO  21 
IPGN=IPGN+1 

WRITE  (6»3000)  (MDNM( ITRr I) , 1=1 »2) ,TEVN,TPT, IpROB, IPGN 
LINES=9 

21  WRITE  (6,1000)  (I,EGVL(D ,1=1,3) 

WRITE  (6»1001)  (I,(E6VCT(I»J),J=1»3),I=1,3) 
LINES=LINES+16 
65  IF(IHYPl-2)  70,80,70 

70  IF(LINES,LT, MAX-16)  GO  TO  71 

IPGN=IPGN+1 

WRITE  (6,3000)  (MDNM(ITR»D »I=1»2) »TEVN»TPT,IPR0B»IPGN 
LINES=9 

71  CALL  HYELS(1»PEIG»3) 

LINES=LINES+16 

80  IF(IHYPl-l)  100»100,90 

90  IF(L1NES.LT,MAX-16)  GO  TO  91 

IPGN=IPGN+1 

WRITE  (6,3000)  (MDNM(ITR»D »I=1»2) ,TEVN»TPT,IpROB»IPGN 
LINES=9 

91  CALL  HYELS(3,PEIG,3) 

LINES=LINES+16 

100  IF(ICOOE)105,105»130 

105  IF(IEIG)  130,130»110 

110  DO  120  I=l»3 

DO  120  J=l,3 

120  PEIG(I»J)=P(I+3,J+3) 
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99 


K=0 

DO  99  J=4»6 
DO  99  I=4»6 
K=K+1 

VEie(K)=P(I»D) 

CALL  JACOBI (VEIG»E6VL»E6VCTr3»F0V) 

IF  (LINES. LE, max-16)  GO  TO  22 
IPGN=IP6N+1 

WRITE  (6»3000)  (MDNM ( ITR» I ) » I=l»2) f TEVN» TPTr IPROB» IPGN 
LINES=9 

22  WRITE (6^2000)  ( I rEGVL ( I) » 1=1 » 3) 

WRITE(6»2001)  (I»  {EGVCTdfJ) » J=l»3)  » 1=1  r3) 

LINES=LINES+16 
ICODE=l 
GO  TO  65 

130  DO  500  I=l»NOIM 
DO  500  J=I»NDIM 

RHO(I»J)=P(I»J)/SQRT(P{Id)*P(J»J) ) 

500  RHO(J»I)=RHO(I»J) 

IF (LINES.lt, MAX-9)  GOTO  501 
IPGN=IPGN+1 

WRITE  (6f3000)  (MDNM( ITR»1) r I=l»2) »TEVN,TPT» IPROBt IPGN 
LINES=9 

501  WRITE(6»3020)  TEVN 
LINES=LINES+5 

DO  504  I=1»NDIM 
IF(LINES.LT,MAX-4)  go  to  502 
IPGN=IPGN+1 

WRITE  ( 6 » 3000 ) (MDNM ( ITR » I ) » 1=1 » 2 ) » TEVN » TPT t IPROB » IPGN 
LINES=9 

502  IF(NDIM.EQ.6)  GO  TO  503 
WRITE (6r3013)  I 

lines=lines+i 

503  WRITE(6»3014)  (RHO ( I » J) f J=1 »NDIM) 

504  LINES=LINES+(NDIM-l)/6+l 
IF(NGE.EQ.O)  GO  TO  139 
IF(ABS(TS0I1  -TPD.GT.l.)  GO  TO  139 
DO  135  I=l»2 

DO  135  J=l»2 
DUM(I»J)=0. 

DO  135  K=l»6 
DO  135  L=l»6 

135  DUM ( 1 1 J ) =DUM ( I » J ) +EM ( I ► K ) *P ( K rL ) *EM ( J » L ) 

IFILINES.LT. MAX-24)  GO  TO  136 
IP6N=IP6N+1 

WRITE  (6 » 3000)  (MDNM(ITRrl) d=l»2) » TEVN » TPT f IpROB# IPGN 
LINES=9 

136  WRITE(6»3015)  ( (DUM(I» J) » J=l»2) »I=1»2) 

3015  F0RMAT(///8X*C0VARIANCE  OF  UNCERTAINTIES  IN  B DOT  T AND  B DOT  R AT 
S SPHERE  OF  INFLUENCE*//2(10X2E25,13/) ) 

CALL  JACOBI ( DUM » DUM3 1 DUM2 » 2 , FO V ) 

WRITE(6»3016)  (I»DUM3(I) »I=1^2) » ( I » (DUM2( I » J) » J=l»2) » I=lr2) 

3016  FORMAT (///20X*EIGENVALUES  OF  ABOVE  MATRIX*//2(22XvI2.E20.10/)/// 
$20X*EIGENVECTORS  OF  ABOVE  MATRIX*//2(22X» I2»2E20, 10/) ) 

139  DO  140  I=1»NDIM 
XI(1)=XF(D 

DO  140  J=1»NDIM 

140  P(I»J)=P1(I»J) 

1000  FORMAT(///20X*POSITION  EIGENVALUES  ♦/3(22X»I2,  £20.10/)) 

1001  FORMAT (///20X*P0SITI0N  EIGENVECT0RS*/3(22X» I2,3E20.10/) ) 
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2000  FORMAT (///20X*V£U0CITY  EIGENVALUES  */3(22X»I2»E20.10/) ) 

2001  FORMAT(///20X»VELOCITY  EIGENVECT0RS*/3(22X» I2»3E20.10/) ) 

3000  FORMAT (1H1//5X2A10*—  PREDICTION  EVENT  AT  TRAJECTORY  TIME*F12.3 

S*  DAYS»  PREDICTING  TO  TRAJECTORY  TIME*F12.3*  0AYS*/90X*PR0BLEM,  .♦ 
$110 » 5X*PAGE.  . *I8///1X » 130 ( IH* ) // ) 

3001  FORMAT(10X»A10fE20.13) 

3002  FORMAT (///8X*STATE  TRANSITION  MATRIX  — PSI (*F12,3*»*F12.3*)*/) 

3003  FORMAT (///8X*DIAG0NAL  OF  DYNAMIC  NOISE  MATRIX*/) 

3004  FORMAT (///8X*C0VARIANCE  MATRIX  AT  TIME  OF  PREDICTION  EVENT  — P( 
$*F12.3*r*F12.3*)*/) 

3006  FORMAT (///8X*C0VARIANCE  MATRIX  AT  PREDICTION  TIME  — P(*F12.3*»* 

$F12.3*)*/) 

3007  FORMAT (8X*STATE  VECTOR  AT  TIME  ♦F12.3*  DAYS*/) 

3013  FORMAT  tlOX*ROW*I3) 

3014  FORMAT(16X»6E17.a) 

3020  FORMAT (///8X+C0RRELATI0N  COEFFICIENT  MATRIX  AT  PREDICTION  TIME—  ’ 
$F8,3*  DAYS*/) 

RETURN 

END 
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SUBROUTINE  PRESIM  (Rl  f TEVNrRH  ) 

C0MM0N/C0NST/0M£6A*£PS»NST»SAL(3) ,SLAT(3) »SL0N(3) »DNCN(3) »MNCN(12) 
COMMON  /C0NST2/U1 » U2  r U3 » VI f V2 » V3 , W 1 » W2»  W3 » FOP » FOV 
COMMON/EVENT/NEV  r TEV ( 50 ) » lEVNT ( 50 ) »1HYP1 . IEI6 » TPT2 (20 ) » 

SICDT3(20) »NPEfNeErIPOLrIIPOL»ICDQ3(20) »SieRESrSlGPROfSIGALPfSIGBET 
$ »NEV1 f NEV2 r NEV3 » NEV4 » NQE 
C0MM0N/GUI/PG(17»17) ,XG(6) »TG»EM(2»6) 

COMMON/MISC/ACC » IDNF  f ICOOR » ITR » IMNF » FACP » FAC V » ISP2 » BI A ( 12 ) » IPGN 
COMMON  /NAME/MDNM ( 4 » 2 ) » E VNM ( 4 ) » MNN AME ( 12 » 3 ) » CMPNM ( 11 » 17 ) 

COMMON  /S1M1/X11U7)  fXFl(17)  »ADEVX(17)  »EDEVX(17)  »W(17)  rZ(17)  t 
SAN0IS(17) rRES(4) »EY(4) f AY(4) »AR(4»4) » ZI < 17) » ADEVXB ( 17) 
C0MM0N/SIM2/NB1 ( 11 ) » ACCl » NBODl 

C0MM0N/STM/P(17»17) rPSI(17»l7) »Q(l7.17) »H(4»17) »R(4»4) »AK(17.4) 
$fPB(17f  17)  »PSIPU7»17)  »HPHR(4f4) 

COMMON/STVEC/XI (17) »XF(17) »NDIM» IAUG»XB(17) 

COMMON/TIM/DATEU » TRTMl » DELTM  » FNTM » UNI VT » TRTMB 
COMMON/TRAUCD/NTMC  f ISTMC » ISTMl » DTMAX  t NDACC » ACCND 
COMMON/TRJ/ISOIl»ISOl2»ISOI3»ICAlrICA2»ICA3»RCAl(6) rRCA2(6) » 
$RCA3(6) »RS0I1(3) »RS0I2(3) »RS0I3(3) » VSOIl (3) » VS0I2(3) »VSOI3(3) » 
$TCAlrTCA2YTCA3»TS0IlfTS0I2»TS0l3iBSIl»BSI2»BSl3»BDTSIl»BDTSI2» 
$BDTSI3»BDRSIlfBDRSl2»BDRSI3 

COMMON/VM/NBOD»NB(ll) »NTP»ALNGTH»TM»DELTPf lNPR» IPR0B»RC(6) »DC» 
4RSI(3) fVSI(3) »DSI»ISPH»RVS(6) »VMU»BrBDT»BDR»DELTH»TIMINT»INCMT» 
$IEPHEMfICL»IPRlNTfRE(6) »RTP(6)f ICL2 
DIMENSION  RI(6)rRF(6) rRIl (6 ) rRFl (6) »RI2(6) »RF2(6) rDUM(17) »DM2(2»2) 
DIMENSION  PEIG(3»3) »EGVL(3) »EGVCT(3»3) » V£IG(9) »RH0(17» 17) »DM(2t2) 
DIMENSION  Pl(17fl7) »DM3(2) 

MAX=60 

NPE=NPE+1 

TPT=TPT2(NPE) 

DELTM=TEVN“TRTM1 
CALL  NTM(RI»RF>NTMC»1) 

DO  10  1=1 »6 

10  XF(I)=RF(I) 

IF  (NQE.NE.O)  GO  TO  20 
DO  11  I=1*NDIM 

11  XF1(I)=XF(I) 

DO  12  1=1 » 6 

12  RF1(I)=RF(.I) 

GO  TO  30 

20  CALL  NTM(RI1»RF1»NTMC*2) 

DO  21  I=lf6 

21  XF1(I)=RF1('I) 

30  CALL  PSIM(RIl»RFlr ISTMC) 

CALL  DYNO(O) 

CALL  NAVM(ia) 

DO  50  I=1.NDIM 
DO  50  U=I»NDIM 

RHO(IfvJ)=P(I»U)/SQRT(P(I*I)  *P(J»U) ) 

,50  RH0(U>I)=RH0(I*J) 

DO  39  1=1 » 6 

39  RI2( I)=XI1( I)+ADEVX(I) 

CALL  NTM(RI2»RF2»NTMC»3) 

DO  40  1=1 » 6 

40  Z(1)=RF2(I) 

IPGN=IPGN+1 

WRITE(6»3000)  (MDNM(ITR»K) »K=lf2) »TEVN»TPT»IPROB»IPGN 

LINES=9 

WRITE  (6»3006) 

LINES=LINES+3 
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WRITE(6»3001)  (CMPNM(IAUecI) »XF(1) »XF1(I)»Z(I)»1=1»NDIM) 

LINES=LINES+NDIM 

WRITE(6»3002)  TEVN»TRTM1 

LINES=LINES+5 

DO  33  Isl»NDIM 

IF  (LINES. LT. MAX-4)  GO  TO  31 

IPGN=IP6N+l 

WRITE(6.3GOO)  (MDNM(ITR»K) rK=l»2) .TEVN»TPTrIPR0B»IP6N 
LINES=9 

31  IF  (NDIM.EQ.6)  GO  TO  32 
WRITE(6r3013)  I 
LINES=LINES+i 

32  WRITE(6»3014)  (PSI (I. J) »a=l»NDlM) 

33  LINES=LIN£S+ (NDIM-1 ) /6+1 
IF{LINES.LT,MAX-8)  go  to  34 
IPGN=IP6N+1 

WR I TE { 6 » 300  0 ) ( MONM ( I TR » K ) » K= 1 » 2 ) f TEVN » TPT » I PROB 1 1 PSN 
LINESi9 

34  WRITE (6f 3003) 

WRITE(6r3014)  (Q ( I » 1 ) » 1=1 »NDIM) 

LINES=LINES+8 

IF  (UINES.LT, MAX-9)  GO  TO  35 
IPGN-IP6N+1 

WRITE(6»3000)  (MONM( ITRfK) »K=lf2) .TEVNfTPTrlPROBf IPGN 
LINES=9 

35  WRITEI6.3004)  TEVN*TRTM1 
LINES=LINES+5 

DO  38  ISl.NDIM 

IF  ( LINES. LT. MAX-4)  GO  TO  36 
1PGN=IPGN+1 

WR ITE ( 6 f 3000 ) ( MDNM ( ITR » K ) » K=1 » 2 ) . TEVN . TPT » IPROB » IPGN 
LINES=9 

36  IF  (NDIM.EQ.6)  GO  TO  37 
WRITE(6»3013)  I 
LINES=LINES+1 

37  WRITE(6»3014)  (P( If J) rU=l»NDlM) 

38  LINES=LINES+(NDIM-1)/6+1 
CALL  DYNO(I) 

DO  43  1=1 f 6 

43  ADEVX ( I ) =Z ( I ) +W ( I ) -XF 1 ( I ) 

DO  45  I=lfNDlM 
DUM(I)S0. 

DO  45  U=l»NOIM 

45  DUM(I)=DUM(I)+PSI(I.J)*EDEVX(J) 

DO  46  I=1»ND1M 

46  EDEVX(I)=DUM(I) 

I CODE 1=1 

48  1COD£=0 

K=0 

DO  60  J=lf3 
DO  60  1=1 f 3 
K=K+1 

PEIG(IfJ)=P(IfJ) 

60  VEI6(K)=P(lf J) 

CALL  JACOBI ( VEI6 f EGVLf EGVCT # 3 .FOP) 

IF  (LINES.LT. MAX-16)  GO  TO  62 
IP6N=iP6N+l 

WRITE ( 6 f 3000 ) ( MDNM ( iTRf K ) f K=1 f 2 ) . TEVN f TPT f IPROB . IPGN 
LINES=9 

62  WRlTE(6f 1000)  ( I f EGVL ( I ) f I=lf 3) 
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WRITE (6» 1001)  (If (EGVCT(I»J) » J=1 » 3) » 1=1 » 3) 
LINES=LINES+16 
65  IF  (IHYPl-3)  70»80t70 

70  IF  (LINES.lt. MAX-15)  GO  TO  71 
IPGN=IPGN+1 

WRITE(6»3000)  (MDNM ( iTRrK ) »K=1 »2) r TEVN»TPT» IPROBf IPGN 
LINES=9 

71  CALL  HYELS(1»PEIG.3) 

HNES=LINES+m 

60  IF(IHYPl-l)  lOOrlOOrSO 

90  IF(LINES.LT. MAX-15)  GO  TO  91 
IPGN=IPGN+1 

WRlTE(6f3000)  (MDNM(ITR»K) »K=1»2) » TEVN » TPT » IPROB » IPGN 
LINES=9 

91  CALL  HYELS{3»PEIGf3) 

LINES=LINES+14 

100  IF(ICODE)  105»105fl30 

105  IF(IEIG)  I30»130rll0 

110  K=0 

DO  120  J=l»3 
DO  120  1=1 » 3 
K=K+1 

PEIG(I»J)=P(I+3»J+3) 

120  VEIG(K)=PEIG(I»J) 

CALL  JACOBI (VEI6»EGVL*EGVCT»3fF0V) 

IF  (LINES.lt. MAX-16)  GO  TO  121 
IPGN=IP6N+1 

WR I TE ( 6 » 3 0 0 0 ) ( MDNM ( I TR » K ) » K= 1 » 2 ) ♦ TE VN  f TPT » I PRGB  » I PGN 
LINES=9 

121  WRITE(6»2000)  ( I »EGVL ( I ) ► 1=1 » 3) 

WRITE(6f2001)  (I» (EGVCT(I»J) » J=1 » 3 ) » 1=1 r3) 
LINES=LINES+16 

IC0DE=1 
GO  TO  65 

130  GO  TO  (131»230) fICODEl 

131  IF  (LINES.lt. MAX-9)  GO  TO  51 
IPGN=IPGN+1 

WRITE(6»3000)  (MDNM(ITR»K) »K=1 »2) » TEVN» TPT » IPROB » IPGN 
LJN£S=9 

51  WRITE(6»3010)  TEVN 
LINES=LINeS+5 

DO  54  I=1,NDIM 

IF  (LINES.lt. MAX-4)  GO  TO  52 

IPGN=IPGN+1 

WRITE ( 6 » 3000)  ( MONM ( ITR  »K ) » K=1 » 2 ) , TEVN » TPT  f IPROB . IPGN 
LINES=9 

52  IF(NDIM.EQ.6)  GO  TO  53 

WRITE(6.3013)  I 
LINES=LINES+1 

53  WRITE(6.3014)  (RHO(I.J) » J=1»NDIM) 

54  L I NES=L I NES+ ( NDIM- 1 ) /6+ 1 

IF  (LINES. LT.MAX-NDIM-5)  GO  TO  42 
IPGN=IPGN+1 

WRITE (6 .3000)  (MDNM(ITR.K) »K=1.2) .TEVN»TPT» IPROB. IPGN 
LINES=9 

42  WRITE(6.3007)  (W(I) . I=1.NDIM) 

LINES=LINES+NDIM+5 

IF  (LINES. LT.MAX-NDIM-7)  GO  TO  47 

IP6N=IP6N+1 

WRITE(6.3000)  (MDNM(ITR.K) .K=1.2) .TEVN. TPT. IPROB. IPGN 
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LINES=9 

47  WRITE(6»3O09>  (EDEVX(I)  MDEVXd)  »I=l»NDlM) 

LINES=LINES+NDIM+7 
DO  132  1=1 »6 
RKI)=RF(I) 

132  RIKI)=RF1(I) 

DO  150  I=1»NDIM 
DO  150  a=l»NOIM 
150  P1(I»J)=P(1»J) 

7RTM1=TEVN 

DELTM=TPT-TEVN 

60  TO  ( 160 » 160 » 161 » 160 1 161 » 160  »161 » 160 » 161 » 161 ♦ 161 ) r I AU6 

160  IF(ISTMC.NE.3)  60  TO  170 

161  IPR=1PRINT 
IPRINT=1 

CAUL  NTM(Rll»RFl»NTMCrO) 

IPRINT=IPR 

170  CALL  PSIM(RI1»RF1»1STMC) 

IF(LINES.LT.MAX-9)  60  TO  171 
IP6N=IP6N+1 

WRITE(6f3000)  (MDNM(ITR»K) »K=1»2) »TEVN»TPT»IPR0B»IP6N 
LINES=9 

171  WRITE{6»3002)  TPT»TEVN 
LINES=LINES+5 

DO  182  I=1»NDIM 

IF  (LINES,LT.MAX-4)  60  TO  180 

IP6N=IP6N+1 

WRITE(6»3000)  (MDNM(lTRrK) »K=lf2) fTEVN»TPT» IPROB» IP6N 
LiNES=9 

180  IF(ND1M.EQ.6)  60  TO  181 
WRITE(6»3013)  I 
UINES=LINES+1 

181  WRITE(6»3014)  (PSl ( I» J) rJ=l»NDl«) 

182  UINES=HNES+  (NDIM-1 ) /6+1 
CAUL  DYNO(O) 

IF (LINES.lt. MAX-8)  60  TO  190 
IP6N=IP6N+1 

WRITE ( 6 r3000 ) ( MDNM ( ITR » K ) » K=1 » 2 ) » TEVNf  TPT » IPROB  rIP6N 
LINES=9 

190  WRITE(6»3003) 

WRITE (6* 3014)  (Q(I»I) fI=l#NDIM) 

HNES=LINES+8 
CAUL  NAVM(1»1) 

IF(LINES.LT. MAX-9)  60  TO  200 
IP6N=IP6N+1 

WR ITE ( 6 » 3000 ) ( MDNM ( ITR » K ) » K=1 » 2 ) » TEVN » TPT » IPROB  f IP6N 
HNES=9 

200  WRITE (6 » 3012)  TPT » TEVN 
HNES=LINES+5 

DO  203  I=1»NDIM 

IF  (LINES.LT. MAX-4)  60  TO  201 

IPeN=IP6N+l 

WRITE (6 » 3000 ) ( MDNM ( ITR » K ) r K=1 r2) » TEVN » TPT  * IPROB » IP6N 
LINESS9 

201  IF  (NDIM.EQ»6)  60  TO  202 
WRITE(6»3013)  I 
LINES=LINES+1 

202  WRITE(6»3014)  (P(I» J) » J=l»NOIM) 

203  LINES=LINES+ (NDIM-l ) /6+1 
DO  210  I=l»NOIM 
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DO  210  J=I»NDIM 

RHO(l»J)=PU»vJ)/SQRT(P(I»I)*P(J»  J) ) 

RHO(JrI)=RHO(IfJ) 

I CODE 1=2 
GO  TO  48 

230  IF  (LINES.lt. MAX-9)  GO  TO  220 
IPGN=IPGN+1 

WRITE ( 6 rSOOO ) ( MDNM ( ITR » K ) rK=l f 2 ) . TEVN » TPT » IPROB » IPGN 
LINE5=9 

220  WRITE (6.3010)  TPT 
DO  223  I=1.NDIM 

IF  (LINES.lt. MAX-4)  GO  TO  221 
IPGN=IP6N+1 

WR I TE ( 6 . 30  0 0 ) ( MDNM ( I TR » K ) . K= 1.2), TEVN . TPT . I PROB . I PGN 
LINES=9 

221  IF  (NDIM.EQ.6)  GO  TO  222 
WRITE  (6.3013)  I 
LINES=LINES+1 

222  WRITE(6.3014)  (RHO ( 1 . J) . J=1 .NOIM) 

223  LINES=LINES+(NDIM-l)/6+l 
LINES=9 

IF  (LINES. LT. MAX-24)  GO  TO  241 

IF  (NGE.EQ.O)  GO  TO  250 

IF  (ABS(TS0I1  -TPT).GT.1.)  go  TO  250 

DO  240  1=1.2 

DO  240  J=i»2 

DM( I» J)=0. 

DO  240  K=l»6 
DO  240  L=l»6 

240  DM(I»J)=DM(I.J)+EM(1.K)*P(K»L)*EM(J.L) 

IF (LINES.lt. MAX-24)  GO  TO  241 
IPGN=IPGN+1 

WRITE ( 6 . 3000 ) ( MDNM ( ITR . K ) . K=1 » 2 ) . TEVN .TPT . IPROB . IPGN 
LINES=9 

241  WRITE(6.3015)  ( (DM ( I . J) . J=1 .2) . 1=1 .2) 

CALL  JACOBI (DM. DM3  .DM2.2»F0V) 

WRITE(6.3016)  (I.  DM3 (I ) . 1=1 .2) * ( I . (DM2 ( I . J) . J=1 .2) . 1=1 . 2) 

250  DO  251  I=1.NDIM 
XI(I)=XF(I) 

XI1(I)=XF1(I) 

DO  251  J=1»NDIM 

251  P(I.J)=P1(I.J) 

RETURN 

1000  FORMAT(///20X*POSITION  EIGENVALUES*/3(22X.I2.e20.10/) ) 

1001  FORMAT (///20X*P0SIT10N  EIGENVECT0RS*/3(22X» I2.3E20.10/) ) 

2000  FORMAT(///20X*VEL0CITY  EIGENVALUES»/3(22X. I2.E20.10/) ) 

2001  FORMAT(///20X*VELOCITY  EI6ENVECT0RS*/3{22X. I2.3E20. 10/) ) 

3000  FORMAT (1H1//8X2A10*—  PREDICTION  EVENT  aT  TRAJECTORY  TIME  ♦F12.3. 
i*  DAYS*  PREDICTING  TO  TRAJECTORY  TIME  *Fa.3#  0AYS*//9QX»PR0BLEM.  . 
S*I10»5X.*PAGE.  .*I8///1X»130(1H*)/) 

3001  FORMAT(8XA10E20,10.5X.E20.10.5X*E20.10) 

3002  FORMAT(///8X*STATE  TRANSITION  MATRIX  “ PSi (*F8.3*.*F8.3*)*/) 

3003  FORMAT (///8X*DIAG0NAL  OF  DYNAMIC  NOISE  MATRIX*/) 

3004  FORMAT (///aX*COVARlANCE  MATRIX  AT  TIME  OF  PREDICTION  EVENT  — P( 
$*F8.3*.*F8.3*)*/) 

3006  FORMAT (8X*STATE  VECT0R*//22X*0RIGINAL  N0MINAL*7X*M0ST  RECENT  NOMIN 
$AL*13X*ACTUAL*) 

3007  F0RMAT(///8X*ACTUAL  DYNAMIC  NOlSE*//(8XE20.1O) ) 

3009  FORMAT (///8X*DEVI at ION  IN  THE  STATE  VECTOR  FROM  THE  MOST  RECENT  NO 
SMINAL  TRAJECTORY*//15X*ESTIMATED*13X*ACTUAL*/(8X2E20.10) ) 


3010  FORMAT (///8X*C0RRELAT ION  COEFFICEINT  MATRIX  AT  TIME  OF  PREDICTION 
SEVENT  ♦F8,3»  DAYS*/) 

3013  FORMAT UOX*ROW  *13) 

3014  F0RMATU6X6E17.8) 

3012  FORMAT (///8X*C0VARIANCE  MATRIX  AT  PREDICTION  TIME  — Pt*F8.3*»* 

SF8.3*)*/) 

3015  FORMAT (///8X*C0VAR1ANCE  OF  UNCERTAINTIES  IN  B DOT  T AND  B DOT  R AT 
4 SPHERE  OF  INFLUENCE*//  2(10X2E25. 13/)) 

3016  FORMAT(///20X*EieENVALUES  OF  ABOVE  MATRIX*//2(22XI2»E20.10/)///20X 
S*EI6ENVECT0RS  OF  ABOVE  MATRIX*//2(22X» I2»2E20,10/) ) 

END 
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subroutine  print 


THIS  subroutine  IS  RESPONSIBLE  FOR  THE  PRINTOUT  THROUGHOUT  THE 
TRAJECTORY. 


COMMON  /C0M/V(16»7) .F(44»4) »PI»RAD 
COMMON  /COM/ITRAT»KOUNT»INCMNT»lNCPRrINC.lPR 
COMMON/COM/NBODYIfNBODYf IPRT(4) 

common/com/kl»ipg»linct»linpge 

COMMON/BLK/T » PM ASS ( 1 1 > rCN  < 80 ) . ST ( 50 ) . EMN ( 15 ) , SMJR ( 18 ) 

COMMON  /BLK/RADIUSdl)  .RMASS(ll)  »NO(ll)  »ELMNT(80)  iSPHEREdl)  »XP(6) 
COMMON  /PRT/M0NTH(12)  .PLANETdl) 

DIMENSION  IDATE(6)  dMPdlf4) 

CALL  NEWPGE 
N2=NBODY+2 
DO  1 I=lfN2»2 
DO  1 J=lr3 
F(I»J)=Fd»J)*Vdr6) 

I Fd  + lfJ)=Fd+l»J)*V(4»7) 

DO  10  J=1.4 

V(15f  J)=Vd6#J)*V(5.5) 

DO  10  I=lfll»2 
10  Vd»J)=Vd  + l»J) 

DO  11  J=2»4 

DO  11  I=lf9f4 

V(  I#  J)=Vd»J)*Vdr6) 

II  V(I+2r  J)=Vd+2»J)*V(4.7) 

V(5.1)=V(6»1)*V(6»5) 

V(7d)=V(8rl)*V(6.6) 

V(9rl)=V(9»l)*Vd»6) 

RV=SQRT(V(5.2)*V(5»2)+V(5#3)*V(5.3)+V(5»4)*V(5»4) ) 
VV=SQRT(V{7.2)*V(7»2)+V(7r3)*V(7.3)+V(7»4)*V(7»4) ) 

RS=SQRT { V (1 f 2 ) *V  d » 2 ) +V (1 » 3 ) * V ( 1 » 3 ) +V  d f 4 ) *V ( 1 f 4 ) ) 
VS=SQRT{V(3f2)*V{3*2)+V(3»3)*V(3.31+V{3r4)*V(3»4) ) 

CALL  SPACE (9) 

WRITE(6»1000)  V(2d)  .INCMNT.  (Vdd)  rl=2»4)  rRS.  ( V(3d  ) »I=2f  4)  ,VS 
1000  FORMAT (////*  TRAJECTORY  TIME  = *E20 . 11 . 10X*TOTAL  TIME  INCREMENTS  = 
i*>J8//  1X*SPACECRAFT  INERTIAL  TRAJECTORY*  / 


* 5X*P0SITI0N  

S 5X*VEL0CITY  *4E20.11) 


IF  (IPRT(2) .EQ.O)  GO  TO  30 

CALL  TIME  (V(4d)»IYR.MO»IDAYfIHR.MlNrSEC»l) 

D=V(4d)+2415020. 

MO  = MONTH (MO) 

CALL  SPACE(3*NB0DYI+9) 

WRITE  (6d001)MO»IDAYrIHR»MlNrSEC  , lYR.D 
1001  FORMAT(//1X130(1H*)///*  CALENDAR  DATE  =*A10»I3*»*I3*  HR»*I3*  MIN»* 

$F7,3*  SEC»*I5/  * JULIAN  DATE  = *F17.8//  * EPHEMERIS  DATA*) 

K=0 

DO  20  I=lrNB0DY»4 

K=K+1 

IP=NO(K) 

RP=SQRT(F(I  d)*Fd  d)+Fd  »2)*F(I  »2)+F(I  »3)*F(I  »3)) 

VP=SQRT(F(I  + lfl)*Fd  + lfl)+Fd+l»2)*F(I  + l»2)+F(I  + l»3)*Fd  + l»3) ) 
WRITE(6d002)  PLANET(IP)  » (F(I  r J)  » J=1 » 3)  .RPtPLANET  ( IP)  » (F  ( I +lrJ)» 
$J=1»3) »VP 
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*4E20.11/5X*VELOCm  OF  ♦ 


1002  FORMAT  (5X*P0SITi0N  OF  *A10* 

$A10«  «4E20*11/) 

20  CONTINUE 

30  IF{IPRT(3).EQ.O)  GO  TO  50 

CALL  SPACE (3*NBODY 1+6) 

WRITE(6»1003) 

1003  FORMAT ( //IX » 130 (IH*)///*  SPACECRAFT  RELATIVE  TRAJECTORIES*) 

K=0 

DO  40  I=lfNB0DY»4 

K=K+1 

IP=NO(K) 

F(I+2»4)=F(I+2»4)*V(1»6) 

VSP=SQRT ( F < 1+3  f 1 ) *F ( 1+3 » 1 ) +F ( 1+3 » 2) *F ( 1+3 » 2) +F ( 1+3 » 3) *F (1+3 » 3 ) ) 
WRITE  (6»1004)  PLANET(IP) » (F(I+2»J) »J=1»4) »PLANET(IP) » (F(I  +3fJ)» 
$J=l»3)rVSP 

1004  FORMAT  (5X*P0SITI0N  REL.  TO  *A10  * . . ,*4E20.11/ 

S 5X*VEL0CITY  REL.  TO  *A10  * . . .*4E20.11/) 

40  CONTINUE 

50  IF(IPRT(4) .EQ.O)  GO  TO  60 

VMR=SQRT(V(llf2)*V(ll»2)+V(llr3)*V(ll+3)+V(llr4)*V(ll»4)) 

CALL  SPACE (14) 

WRITE  (6.1005)  (V(5.i) »I=2,4) »RV» ( V(7. I) » I=2»4) f VV» ( V(9» I) . 1=2.4) » 
$V(9»1) » (V(H.I)  »I=2»4)  fVMR»  (V  ( l5»  I ) . 1=2.4)  .V(15. 1)  . (V(14. 1) . 1=2.4) 
$.V(14.1) .V(5.1) .V(7.1) 

1005  F0RMAT(//1X.130(  IH*)///*  virtual  MASS  DATA  * / 


$ 

40H 

VIRTUAL  MASS  POSITION 

4(  E20. 

$)/ 

40H 

VIRTUAL  MASS  VELOCITY 

4E20.11/ 

$ 

40H 

SPACECRAFT  POS.  REL.  TO  V.M. 

4E20.11/ 

% 

4 OH 

spacecraft  VEL.  REL.  TO  V.M. 

4E20,11/ 

$ 

40H 

KEPLER  (ANG.  MOM.)  VECTOR 

4E20.11/ 

s 

4 OH 

eccentricity  vector 

4E20.11/ 

$ 

24H 

V.M.  MAGN.  = E20.ll/ 

s 

24H 

V.M.  MAGN.  RATE  = E20.il) 

CALL  SPACE (NBODYI+6) 

WRITE(6»1007) 

1007  FORMAT(//1X.130(1H*)///*  V.M.  RELATIVE  POSITIONS*) 
DO  52  I=1.NB0DYI 

K=NO(I) 

TMP(I.1)=0. 

DO  51  J=2.4 

TMP ( I . J ) =V ( 5 . J ) -F ( 4*1-3 . J-1) 

51  TMP ( I . 1 ) =TMP ( I . 1 ) +TMP ( I . J ) *TMP ( I . J ) 

TMP ( I » 1 ) =SQRT ( TMP ( I . 1 ) ) 

52  WRITE(6.100a)  PLANET(K)  . (TMP(I»  J) . J 3:2.4)  .TMPd .1) 

1008  FORMAT  (5X*P0SITI0N  REL.  TO  *A10  * . . .*4E20.11) 

60  CALL  SPACE (1) 

RETURN 

END 
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n o n n o o 


SUBROUTINE  PRINTKRF) 


THIS  subroutine  IS  RESPONSIBLE  FOR  PRINTING  A SUMMARY  OF  THE 
TRAJECTORY  GENERATED  IN  THE  TRAJECTORY  MODE. 


COMMON/BLK/T»PMASS(ll) »CN(80) *ST(50) »EMN(15) »SMJR(18) 

COMMON  /BLK/RADIUS(11>  »RMASSai)  *NO(ll)  rELMNKSO)  rSPHEREUl)  »XP(6) 
COMMON/MISC/ACC » IDNF » ICOOR » ITR  # IMNF » FACP i FACV » ISP2 » BI A (12) 

COMMON  /PRT/MONTH ( 12 ) » PLANET ( 1 1 ) 

C0MM0N/STVEC/XK17)  »XFU7)  #NDIM»IAUG 
COMMON/TIM  /DATE J t TRTMl » DELTM » FNTM » UNI VT » TRTMB 
COMMON/TRA JCD/NTMCf ISTMC » ISTMl » DTMAX . NDACCt  ACCND 
COMMON/ VM/NBOD  » NB ( 1 1 ) . NTP  f ALNGTH » TM » DELTP » I NPR » I PROB » RC ( 6 ) » DC  » 
$RSI(3) rVSI(3) rDSI. ISPHf RVS (6 ) f VMU » B »BDTrBDR»DELTH» TIMINT. INCMTf 
SIEPHEM> ICL» IPRINT»RE(6) f RTP(6) » ICL2 
DIMENSION  RK6)  rRF(6)  rVE(6).VT(6) 

F ( A » B rC ) =SQRT ( A* A+B*B+C*C ) 

MAX=60 
IPGN=IPGN+1 

WRITE(6»1000)  IPROBfIPGN 

1000  FORMAT (1H1///5X*S  U M M A R Y OF  TRAJECTORY  MOD 
SE*/90X*PR08LEM.  .*I10»5X*PAGE.  .*18////) 

DO  1 1=1 »6 
1 RI(I)=XI(I) 

TRTM1=TRTMB 
GO  TO  (10.20) fNTMC 
10  WRITE(6.1001)  IPROB 

1001  FORMAT (8X*PATCHE0  CONIC  TRAJECTORY*10X*PROBLEM*i5///) 

GO  TO  100 

20  WRITE (6. 2001)  IPROB 

2001  F0RMAT(8X*VIRTUAL  MASS  TRAJECT0RY*10X*PR0BLEM*I5///) 

WRITE(6.2010)  ACC.DELTH 

2010  FORMAT (10X*ACCURACY  FIGURE*  £13.6.*  INDICATES  TRUE  ANOMALY  INCREME 

$NT  IS*  E20.13*  RADIANS*//) 

D1=TRTM1+DATEJ 

trtm2=trtmi+deltm 

D2  = TRTM2+DATEJ 
D3=D1+2415020. 

D4=D2+2415020, 

CALL  TIME ( D1 . L YR . LMO . LD A Y . LHR . LM IN » SECL . 1 ) 

CALL  TIME(D2.IYR.IM0.IDAY.IHR.IMIN.SECI»1) 

WRITE (6. 2002)  TRTMl »D3. LMO .LDAY. LHR. LMIN. SECL. LYR.TRTM2. 04. IMO. 

$10 AY. I HR. IM IN. SEC I . lYR 

2002  FORMAT(10X*INITIAL  TRAJECTORY  TIME*F12.5*  DAYS.  JULIAN  DATE*F20.10 
$ . 5X*C ALEND AR  D ATE*4 1 3 . F7 , 3 . * . * 1 5 

$/  10X*FINAL  TRAJECTORY  TIME  *F12.5*  DAYS.  JULIAN  DATE*F20.10 
$ . 5X*CALENDAR  DATE*413 . F7. 3 . * . *15 ) 

RM1=F(RI(1) .RI(2).RI(3)) 

VMI=F(RI(4) .RI(5) .RI(6) ) 

RMF=F(RF(1) .RF(2) .RF(3) ) 

VMF=F ( RF ( 4 ) . RF ( 5 ) . RF ( 6 ) ) 

WRITE(6.2003) 

2003  FORMAT (//57X*X-C0MP.*13X*Y-C0MP.*13X*Z-C0MP.*12X*RESULTANT*) 

WRITE (6. 2004)  (RI ( I) . 1=1.3) .RMI * (RI ( I ) . 1=4.6) . VMI . (RF( I ) . 1=1 .3) . 

$RMF . ( RF ( I ) . 1=4 . 6 ) . VMF 

2004  FORMAT(/lOX*HELIOCENTRIC  ECLIPTIC  COORDINATES*// 


$ 10X*INITIAL  POSITION  OF  VEHICLE  ....  .*4E20.8/ 

$ 10X*INITIAL  velocity  of  VEHICLE  ....  .*4E20.8/ 
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$ lOX+FINAL  POSITION  OF  VEHICLE  .....  .*4E20.8/ 

$ 10X*FINAL  velocity  OF  VEHICLE  ....  . .♦4E20.8) 


DO  30  1=1 » 6 
VT(I)=RF(I)-RTP(I) 

30  VE(I)=RF<I)-RE(I) 

RMI=F(VT(1) fVT(2) .VT(3) ) 

VMI=F(VT(4) »VT(5) rVT(6) ) 

RMF=F ( VE  U ) . VE ( 2 ) . VE ( 3 ) ) 

VMF=F(VE(4) »VE(5) fVE(6) ) 

WR I TE ( 6 . 2005 ) ( VE ( I ) . I = 1 . 3 ) » RMF » ( VE ( I ) * I =4 » 6 ) , VMF . ( VT ( I ) » I = I » 3 ) » 
$RMI» (VT(I) »I=4»6) fVMI 

2005  FORMAT (//10X*AT  FINAL  TIME*// 

SIOX^POSITION  OF  VEHICLE  RELATIVE  TO  EARTH*4E20.8/ 

$10X*VEL0C1TY  OF  VEHICLE  RELATIVE  TO  EARTH*4E20.a/ 

SIOX^POSITION  relative  TO  TARGET  PLANET.  .♦4E2Q.8/ 

»10X*VELOCITY  RELATIVE  TO  TARGET  PLANET.  .♦4E20.8) 

RM I=F ( RC ( 1 ) f RC ( 2 ) f RC (3 ) ) 

VMI=F(RC(4) »RC(5) »RC(6) ) 

04=00+2415020. 

CALL  TIME(DC»IYR.IM0.IDAY»IHR»IMIN»SECI»1) 

WR I T£ { 6 f 2006 ) I MO » 1 0 A Y » 1 HR . I M I N » SEC I » I YR . 04  * 

* (RC(I) f 1=1.3) »RMI»(RC(I) »I=4»6) .VMI 

2006  FORMAT(//10X+AT  CLOSEST  APPROACH.  , . . CALENDAR  DATE*4I3»F7.3.*.* 
$15.*.  . .JULIAN  DATE  *F20.10// 

$10X*POSITION  RELATIVE  TO  TARGET  PLANET.  .*4E20.8/ 

$10X*VELOC1TY  relative  TO  TARGET  PLANET.  .*4E20.8) 

IF(ISPH)  40.45.40 

40  RMI=F(RSI(1) .RSI(2) .RSI(3) ) 

VMI=F(VSI(1).VSI(2).VSK3)) 

D4=OSI+24150?0. 

CALL  time<dsi.iyr.imo»iday.ihr.imin.seci.i) 

WRITE <6. 2007)  IM0.IDAY.IHR.IMIN.SECI.IYR.d4  .RSI.RMI.VSI.VMI 

2007  FORMAT {//10X*AT  SPHERE  OF  INFLUENCE.  . . . CALENDAR  DATE+4I3.F7.3. 
$♦.♦15.*.  . .JULIAN  DATE  *£20. 10// 

$10X*POSITION  relative  TO  TARGET  PLANET.  ,*4E20.8/ 

$10X*VEL0CITY  RELATIVE  TO  TARGET  PLANET.  .*4E20.8) 

IF(MAX.GT,51)  60  TO  41 
IPGN=IPGN+1 

WRITE (6. 1000)  IPR0B.IP6N 

41  WR1TE(6»2008)  B.BDT.BDR 

2008  FORMAT (//10X*B  =*E20.8*  B DOT  T =*E20.e*  B DOT  R =*E20.8) 
IFIMAX.GT.Si)  60  TO  50 

IP6N=IP6N+l 

WR1TE(6.1000)  IPROB.IPGN 
60  TO  50 

45  WRITE (6. 20 09) 

2009  FORMAT (//10X*VEHICLE  DID  NOT  PIERCE  SPHERE  OF  INFLUENCE  OF  TARGET 
$PLANET*) 

50  WRITE (6. 2012)  INCMT 

2012  FORMAT {//10X*TOTAL  NUMBER  OF  TIME  INCREMENTS  FOR  THIS  PROBLEM  IS* 
$16) 

WRITE(6.2011)  TIMINT 

2011  FORMAT (//10X*T0TAL  CP  TIME  FOR  THIS  PROBLEM  IS*  F10.3*  SEC*) 

100  RETURN 

END 
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SUBROUT INE  PRINT3  < MMCODE » NR ) 

COMMON/BLK/T » PM ASS ( 1 1 ) » CN ( 80 ) » ST ( 50 ) » EMN ( 15 ) rSM JR ( 18 ) 

COMMON  /BLK/RAD lUS ( 11 ) » RM ASS ( 1 1 ) » NO { 1 1 ) » ELMNT ( 80 ) » SPHERE (11) » XP (6 ) 
COMMON  /MEAS/TMN(1000) »MCODE( 1000) »NMNf MCNTR 

COMMON/MISC/ACC » IDNF , ICOOR » ITR ► IMNF • FACP » FAC V , ISP2 » BI A ( 12 ) » IPGN 
COMMON  /NAME/MDNM ( 4 » 2 ) » EVNM (4) » MNNAME ( 12 » 3 ) » CMPNM ( 11 » 17 ) 

COMMON  /STM/P(17»17) »PSI(17»17) »Q(17»17) »H(4»17)»R(4»4)»AK(17f4) 

S » PB ( 17 » 17 ) » PS IP ( 17  * 17 ) » HPHR ( 4 » 4 ) 

COMMON  /ST VEC/ X I ( 17 ) , XF ( 17 ) » ND I M » I AUG » XB ( 17 ) 

COMMON  /T IM/DATE J » TRTMl f DELTM » FNTM » UNI VT  t TRTMB 
COMMON/VM/NBOD»NB(11) f NTP» ALNGTH»TM»DELTP» INPR» IPROB »RC (6) »DC» 
$RSI(3) »VSI(3) »DSI»ISPHrRVS(6) * VMU»B»BDT»BDR»DELTH»TiMINTrINCMT» 

$ lEPHEM » ICL » IPRINT fRE ( 6 ) »RTP ( 6 ) » ICL2 
DATA  CMPNM/11*10HRX  »11*10HRY  *11*10HRZ  »11* 

SIOHVX  »11*10hVY  »H*10HV2  aOH  »10HR 

SADIUS  1 rlOHMU  OF  SUN  tlOHRANGE  BlASrlOHA  BIAS  »3*10HRADIUS  1 
S »10HMU  OF  SUN  »10HRANGE  BIAS» lOHRAOIUS  1 »10H  rlOHLATIT 

SUDE  1»10HMU-TARG  PL»10HR-RAT  BIAS»10HECC  BIAS  » 3*10HLATITUDE  IflO 
iHMU-TARG  PL»10HR-RAT  BIAS» lOHLATlTUOE  IrlOH  rlOHLONG  1 

4 »10H  rlOHSTAR  ANG  1/lOHINC  BIAS  »3*10Hl,ONG  1 »10HA  B 

SIAS  flOHSTAR  ANG  IrlOHLONG  1 »3=t=10H  rlOHSTAR  ANG  2» 

IlOH  flOHRADIUS  2 »10HMU  OF  SUN  »10HRANGE  BIASrlOHECC  BIA 

$S  rlOHSTAR  ANG  2flOHMU  OF  SUN  »3*10H  »10HSTAR  ANG  3»10H 

$ »10HLATITUDE  2»10HMU-TARG  PL»10HR-RAT  BIASrlOHINC  BIAS  r 

SIOHSTAR  ANG  3»10HMU-TARG  PL»3*10H  rlOHAPP  DIAM  »10H 

5 »10HL0NG  2 flOH  flOHSTAR  ANG  1»10H  rlOHA 

SPP  DIAM  rlOHRANGE  BIAS»5*10H  flOHRADlUS  3 » lOH 

3>  flOHSTAR  ANG  2flOH  flOHA  BIAS  tlOHR“RAT  BlAS»5*10H 

4 flOHLATITUDE  3»10H  flOHSTAR  ANG  3flOH  »10 

4HECC  BIAS  flOHSTAR  ANG  If 5*1 OH  flOHLONG  3 flOH 

$ flOHAPP  DIAM  flOH  flOHiNC  BIAS  flOHSTAR  ANG  2fl0*10H 

4 flOHSTAR  ANG  3 f 10*1 OH  flOHAPP  DIAM  / 

MAX=b0 

ITEMP=(NDIM-l)/6+l 

TRTM2=TRTM1+DELTM 

IPGN=IP6N+1 

WRITE  (6f3000)  TRTM2f IPROBf IPGN 

3000  FORMAT (1H1///5X*ERR0R  ANALYSIS  MODE  AT  TRAJECTORY  TIME  *F12.3 
4*  DAYS*/90X*PROBLEM.  .*I10f 5X*PAGE.  .*18////) 

D1=TRTM1+DATEJ 

D2=TRTM2+DATEJ 

D3=D1+2415020, 

04=02+2415020. 

CALL  TIME(Dl*LYRfLMOfLDAYfLHRfLMINfSECL»l) 

CALL  TIME(D2fIYRflM0f IDAYflHRflMlNfSECIfl) 

WRITE  {6f300D  TRTMlf LMOf LDAYf LHRf LMiNf SECLf LYRf D3 

3001  FORMAT {/8X*INITIAL  TRAJECTORY  TIME*F12.5*  DAYSf  CALENDAR  DATE*4I3f 
4F7.3f*»*I5f*f  JULIAN  DATE*F20.10) 

WRITE  (6f3002)  TRTM2f IMOf IDAYt IHRf IMINf SECI f lYRf D4 

3002  FORMAT (/8X*FINAL  TRAJECTORY  TIME  *F12.5*  DAYS#  CALENDAR  DATE*4I3f 
4F7,3f*f*I5f*f  JULIAN  DATE*F20.10) 

WRITE  (6f3003) 

3003  FORMAT (///8X*STATE  VECT0R*/27X*INITI AL*22X*F INAL* ) 

WRITE  (6f3004)  (CMPNMdAUGf  I)  fXKI)  fXF(I)  fI=lfNDIM) 

3004  FORMATdOXf  A10fE18.8Vl0XfEia.8) 

LINES  = 18  + NDIM 
IF(LINES.LT. MAX-14)  GO  TO  6 
IPGN=IPGN+1 

WRITE ( 6 f 30 0 0 ) TRTM2  f I PROB  f IPGN 
LINES=10 
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6 

2 


3 


7 

4 


5 


3040 

3041 

3042 
1 

3005 


d=trtmi+datej 

N0(1)=4 
CALL  0RB(4f0) 

CALL  EPHEMUrOrl) 

DO  2 1=1 r 3 

RE ( I ) =XI ( I ) -XP ( I ) ♦ALNeTH 

RE(I+3)=XI{I+3)'-XP(I+3)*ALNGTH/TM 

RME=SQRT ( RE ( 1 ) *RE ( 1 ) +RE ( 2 ) *RE ( 2 ) +RE ( 3 ) *RE ( 3 ) ) 

VMESSQRT ( RE ( 4 ) ♦RE ( 4 ) +RE ( 5 ) +RE ( 5 ) +RE (6 ) ♦RE ( 6 ) ) 

N0(1)=NTP 
CALL  ORB(NTP»D) 

CALL  EPHEM(l»Dfl) 

00  3 1=1 f 3 

RTP ( I ) =XI ( I ) -XP ( I ) ♦ ALN6TH 

RTP(I+3)=XI{I  + 3)-XPa+3)^ALNGTH/TM 

RMP=SQRT (RTP ( 1 )^RTP ( 1 ) +RTP ( 2 ) ♦RTp ( 2) +RTP ( 3 ) ♦RTP ( 3 ) ) 

VMP=SQRT (RTP ( 4 ) ♦RTP ( 4 ) +RTP ( 5 ) ♦RTp ( 5 ) +RTP ( 6 >^RTP ( 6 ) ) 

WRITE(6r3040)  TRTMl 

WRITE (6» 3041)  (RE (I ) » 1=1 » 3) »RME* (RE ( I ) » I=4»6) , VME» (RTP( I ) » I=l»3) 
S RMP » (RTP ( I ) » 1=4  r6 ) » VMP 
LINES=L1NES+14 
IF (LINES.lt. MAX-14)  GO  TO  7 
IPGN=1PGN+1 

WRITE(6»3000)  TRTM2. IPROB. IPGN 

LINES=10 

DSTRTM2+DATEJ 

N0(l)=4 

CALL  0RB(4»D) 

CALL  EPHEM(1»D»1) 

DO.  4 1=1.3 

RE ( I ) =XF ( I ) -XP ( I ) ♦ ALNGTH 

RE ( 1+3 ) =XF ( 1+3 ) -XP ( 1+3 ) ♦ALNGTH/TM 

RME=SQRT ( RE ( 1 ) ♦RE ( 1 ) +RE ( 2 ) ♦RE ( 2 ) +RE ( 3 ) *RE ( 3 ) ) 

VMESSQRT ( RE ( 4 ) ♦re ( 4 ) +RE ( 5 ) ♦RE ( 5 ) +RE ( 6 ) ♦RE ( 6 ) ) 

NO(l)=NTP 
CALL  ORB(NTP.D) 

CALL  EPHEMd.D.l) 

DO  5 1=1.3 

RTP ( I ) =XF ( I ) -XP (1 ) ♦ALNGTH 

RTP ( 1+3 ) =XF ( 1+3 ) -XP ( 1+3 ) ♦ALNGTH/TM 

RMP=SQRT ( RTP (1 ) ♦RTP ( 1 ) +RTP ( 2 ) ♦RTP ( 2 ) +RTP ( 3 ) ♦RTP ( 3 ) ) 

VMP=SQRT ( RTP ( 4 ) ♦RTP ( 4 ) +RTP ( 5 ) ♦RTP ( 5 ) +RTP (6 ) ♦RTP ( 6 ) ) 

WRITE(6.3042)  TRTM2 

WR I TE ( 6 . 3 0 4 1 ) ( RE ( I ) . I = 1 » 3 ) . RME . ( RE ( I ) . I =4 . 6 ) » VME . ( RTP ( I ) » I = 1 » 3 ) 
*RMP. (RTP(I) . 1=4.6) .VMP 
LINES=LINES+14 

F0RMAT(///8X^AT  INITIAL  TRAJECTORY  TIME  ♦Fl2.3^  DAYS^//) 

F0RMAT(  57X^X-C0MP.^13X^Y-C0MP.^13X^Z-C0MP.^12X^RESULTANT^// 
SIOX^POSITION  OF  VEHICLE  RELATIVE  TO  EARTH^4E20.8/ 

$10X^VELOCITY  OF  VEHICLE  RELATIVE  TO  EARTH^4E20.8/ 

SIOX^POSITION  RELATIVE  TO  TARGET  PLANET.  .♦4E20.8/ 

SIOX^VELOCITY  RELATIVE  TO  TARGET  PLANET,  .♦4E20.8) 

F0RMAT(///8X  ♦AT  FINAL  TRAJECTORY  TIME  ♦Fl2,3^  DAYS^//) 

IF (LINES.lt. MAX-6)  60  TO  1 
IP6NSIP6N+1 

WRITE  (6.3000)  TRTM2.IPR0B.IPGN 

LINES59 

M=MCNTR-1 

WRITE  (6.3005)  M 

FORMAT  (//8X^STATISTICAL  DATA  AFTER  MEASUREMENT^IS) 


LINES=LINES+3 

GO  TO  (10»20»30»40»50»60*70»80»90»100)»MMCOD£ 

10  WRITE  (6»3006)  TRTM2 

3006  FORMAT (//10X*RANGE-RATE  WAS  MEASURED  FROM  THE  IDEALIZED  STATION  AT 
i TRAvlECTORY  TIME*F12.5*  DAYS*) 

GO  TO  110 

20  WRITE  (6»3007)  TRTM2 

3007  FORMAT (//10X*RAN6E  AND  RANGE-RATE  WERE  MEASURED  FROM  THE  IDEALIZED 
i STATION  AT  TRAUECTORY  TIME*F12.5*  DAYS*) 

GO  TO  110 

30  IA=1 

31  WRITE  (6r300a)  IA»TRTM2 

3008  FORMAT  (//10X*RAN6E-RATE  WAS  MEASURED  FROM  5TATI0N*I2*  AT  TRAJECTO 
4RY  TIME*F12.5*  DAYS*) 

GO  TO  110 

40  IA=1 

41  WRITE  (6»3009)  IA»TRTM2 

3009  FORMAT (//10X*RANGE  AND  RANGE-RATE  WERE  MEASURED  FROM  STATI0N*I2  * 
SAT  TRAJECTORY  TIME*F12.5*  DAYS*) 

GO  TO  110 

50  IA=2 

60  TO  31 

60  IA=2 

GO  TO  41 

70  IA=3 

GO  TO  31 

80  IA=3 

60  TO  41 

90  WRITE  (6»3010)  TRTM2 

3010  FORMAT (//10X*THREE  STAR  PLANET  ANGLES  WERE  MEASURED  AT  TRAJECTORY 
$TIME*F12,5*  DAYS*) 

GO  TO  110 

100  WRITE(6»3011)  TRTM2 

3011  FORMAT (//10X*THE  APPARENT  PLANET  DIAMETER  WAS  MEASURED  AT  TRAJECTO 
SRY  TIME*F12.5*  DAYS*) 

110  LINES=LINES+3 
IF(L1NES.LT, MAX-11)  GO  TO  115 
IPGN=IPGN+1 

WRITE  (6»3000)  TRTM2» IPROB» IPGN 
LINES=9 

115  WRITE  (6»3012)  TRTM2»TRTM1 

3012  FORMAT  (//✓10X*STAT£  TRANSITION  MATRIX  — PSI(*F8.3*»*F8»3*)*/) 

LINES=LlNES+5 

DO  112  I=1»NDIM 
IF(LINES.LT, MAX-4)  GO  TO  114 
IPGN=IPGN+1 

WRITE  (6*3000)  TRTM2. IPR0B*1P6N 
LlNES=9 

114  IF(NDIM.EQ.6)  GO  TO  111 
WRITE(6*3013)  I 

3013  FORMAT (12X*R0W  *13) 

LINES=LINES+1 

111  WRITE  (6*3014)  (PSI ( I * J) * J=1 *NDIM) 

3014  F0RMAT(18X*6E17.8) 

112  LINES=LINES+ITEMP 

IF ( LINES, LT. MAX-8)  60  TO  113 
1P6N=IP6N+1 

WRITE  (6*3000)  TRTM2* IPROB* IPGN 
LINES=9 

113  WRITE  (6*3015) 
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3015  FORMAT (///lOX+DIAGONAL  OF  DYNAMIC  NOISE  MATRIX*/) 

120  WRlTECOfSOl^t)  {Q(J» J)  »J=1»NDIM) 

LINES=LINES+8 

IF(UINES,LT.MAX“9)  GO  TO  122 
IPGN=IP6N+1 

WRITE  (6»3000)  TRTM2»IPR08»IPGN 
LINES=9 

122  WRITE  (6 » 3016) 

3016  FORMAT (///10X*OBSERVATION  MATRIX*/) 

LINES=LINES+5 

DO  131  1=1 » NR 

IFTLINES.LT. MAX-4)  GO  TO  130 
IP6N=IPGN+1 

WRITE  (6»3000)  TRTM2 » IPROB » IPGN 
LINES=9 

130  IF(NDIM.EQ.6)  GO  TO  123 
WRIT£(6»3013)  I 
LINES=LINES+1 

123  WRITE(6»3014)  (H ( I » J) » d=l .NDIM) 

131  LINES=LINES+ITEMP 
IF(LINES.LT. MAX-9)  GO  TO  132 
IPGN=IP6N+1 

WRITE  (6f3000)  TRTM2» IPROB» IP6N 
LINES=9 

132  WRITE  (6*3017) 

3017  FORMAT (///10X*MEASUREMENT  NOISE  MATRIX*/) 

DO  140  1=1* NR 

140  WRITE(6*3018)  (R( I*d) * J=1*NR) 

3018  FORMAT (18X*4E17. 8) 

LINES=LINES+NR+5 

IF(LINES.LT,MAX-NDIM-5)  GO  TO  141 
IPGN=IP6N+1 

WRITE  (6*3000)  TRTM2*IPR0B* IPGN 
LINES=9 

141  WRITE  (6*3019) 

3019  F0RMAT(///10X*K  MATRIX*/) 

DO  150  I=1*ND1M 

150  WRITE  (6*3018)  ( AK ( I * d) * J=1 *NR) 

LlNES=LINES+NDIM+5 
IF(LINES.LT. MAX-9  ) 60  TO  151 
IPGN=IPGN+1 

WRITE  (6*3000)  TRTM2* IPROB* IPGN 
LINES=9 

151  WRITE  (6*3020)  TRTM2 

3020  FORMAT (///lOX  *COVARlANCE  MATRIX  AT  TIME*F12.5*  DAYS*  d 

JUST  BEFORE  THE  MEASUREMENT*/) 

LINES=LINES+5 

165  DO  167  I=1*NDIM 
IF(LINES.LT. MAX-4  ) GO  TO  161 
IPGN=IPGN+1 

WRITE  (6*3000)  TRTM2* IPROB* IPGN 
LINES=9 

161  IF(NDIM.EQ.6)  60  TO  166 
WRITE(6*3013)  I 
LINES=LINES+1 

166  WRITE(6*3014)  (PSIP ( I *d) * d=l *NDIM) 

167  LINES  = LINES+ITEMP 
IF(LINES-.LT. MAX-9  ) 60  TO  162 
IP6N=IPGN+1 

WRITE  (6*3000)  TRTM2* IPROB* IPGN 
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LINES=9 

162  WRITE  (6 » 3021)  TRTM2 

3021  FORMAT(///i0X  ♦COVARIANCE  MATRIX  AT  TIME*F12. 5*  DAYS»  A 

SFTER  CONSIDERING  THE  MEASUREMENT^/) 

LINES=LINES+5 

172  DO  174  I=1»NDIM 
IF(LINES.LT. MAX-4)  GO  TO  171 
IPGN=IPGN+1 

WRITE  (6»3000)  TRTM2»IPR0B»IPGN 
UINES=9 

171  IF(N0IM.EQ.6)  GO  TO  173 
WRITE(6r3013)  I 
LINES=LINES+1 

173  WRITE{6»3014)  (Pdf  J) » J=1»NDIM) 

174  LINES  = LINES+ITEMP 
RETURN 

END 
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subroutine  PRINT4(MMC0D£fNR) 

COMMON/BLK/T»PMASS<11) »CN(80) »ST(50) »EMN(15) »SMJR{18) 

COMMON  /BLK/RADIUSdl)  »RMASSCU)  »NOtll)  »ELMNT{80)  »SPHERE(ll)  »XP(6) 
COMMON  /MEAS/TMNdOOO)  »MCODEaOOO)  »NMNrMCNTR 

COMMON/MISC/ACC » IDNF » ICOOR » ITR » IMNF » FACP » FACV » ISP2 » BI A (12 ) » IPGN 
COMMON  /NAME/MDNM(4»2)  »EVNM(4)  »MNNAMEd2»3)  »CMPNMdl»17) 
COMMON/SIMCNT/DMUSB » DMUPB » DAB , DEB  »D1B  t TTiMl » TTIM2  »UNMAC (3»3) » 
SSLB(9)  »AVARMd2)  »IAMNF 

C0MMt)N/SlMl/XIld7)  rXFld7)  .ADEVXd7)  »EDEVXd7)  »Wd7)  rZd7)  » 
4AN0ISd7)  »RES(4)  »EY(4)  » AY(4)  » AR(4»4)  »ZI  (17)  »ADEVXBd7) 

COMMON/S IM2/NB1  ( ID  t ACCl » NBODl 

COMMON  /STM/Pd7»17) fPSI(l7»17)  »Q(17»17)  t H(4»17)  »R(4»4)  »AK(17»4) 
S»PBd7»17)  »PSIP(17»17)  »HPHR(4»4) 

COMMON  /STVEC/XI ( 17 ) , XF ( 17 ) » NDIM » I AU6  > XB ( 17) 

COMMON  /TlM/DATEJ»TRTMl»DELTM»FNTM»UNlVTf TRIMS 

COMMON/ VM/NBOD»  NB ( 11 ) » NTP » ALNGTH » TM»  DELTP » iNPRr IPROB » RC ( 6) » DC» 

SRSI ( 3 ) » VSI ( 3 ) » DSI f ISPH » RVS ( 6 ) » VMUf  B»  BDT , BDR  » DELTH » TIMINT » INCMTt 
$IEPHEM» ICL/IPRINTrRE(6) »RTP (6) f ICL2 
DIMENSION  AODI (17) » ADON(17) »EDON(l7) 

OIMENSION  XE(6)»XVE1(6) »XVP1(6) rXVE2(6) »XVP2(6) f XyE3(6) »XVP3(6) 

F ( A rB » C )=SQRT ( A* A+B*B+C*C ) 

MAX=60 

ITEMP=(NDIM-l)/6+l 

TRTM2=TRTM1+DELTM 

IPGN=IPGN+1 

WRITE (6 • 3000 ) TRTM2 » IPROB » IPGN 

3000  FORMAT (1H1///5X*SIMULATI0N  MODE  AT  TRAJECTORY  TlME*F12.3*  DAYS*/ 
$90X*PROBLEM.  .*I10»5X*PAGE.  .*18////) 

D1=TRTM1+0ATEJ 

D2=TRTM2+DATEJ 

03=01+2415020. 

04=02+2415020. 

CALL  TIME (D1 » LYR » LMO » LDAY  »LHR  »LMIN  rSECL » 1 ) 

CALL  TIME(D2»  IYR»  IMO»  IDAYdHRdMINrSECI  d) 

WRITE  (6»3001)  TRTMlrLM0»LDAYfLHR»LMIN»SECL»LYRfD3 

3001  F0RMAT(/8X«INITIAL  TRAJECTORY  TlME*F12.5*  DAYSf  CALENDAR  DATE*4I3f 
SF7.3»*»*I5»*»  JULIAN  DATE*F20.10) 

WRITE  (6r3002)  TRTM2dM0» IDAYf IHRdMIN*SECl /IYR»D4 

3002  FORMAT (/8X*FINAL  TRAJECTORY  TIME  *F12,5*  DAYS#  CALENDAR  DATE*4I3p 
SF7.3»*»*I5f*»  JULIAN  DATE*F20.10) 

WRITE  (6»3003)  TRTMl 

3003  FORMAT (///8X*STATE  VECTOR  AT  TIME+F8.3*  DAYS*//22X*0RI6INAL  NOMINA 
$L*  8X*M0ST  RECENT  N0MINAL*12X*ACTUAL*) 

WRITE(6»3004)  (CMPNM(IAUG»I)  rXKl)  »X1KI)  rZKDf  I=1»NDIM) 
LINES=24+NDIM 

IF(LINES.LT.MAX-IO-NDIM)  GO  TO  15 
IP6N=IPGN+1 

WR I TE ( 6 » 30  0 0 ) TRTM2 » I PROB » I PGN 
LINES=9 

15  WRITE (6 » 3003)  TRTM2 

WRITE (6f  3004)  (CMPNM ( IAUG» I ) » XF (I ) » XFl ( I ) » Z ( I ) » 1=1 » NDIM) 

3004  FORMATdOX»A10r3(E20,13r5X)) 

LINES=LINES+NDIM+10 

0=DATEJ+TRTM1 

ICODE=0 

2 IF (LINES.lt, MAX-25)  GO  TO  3 

IPGN=IPGN+1 

WRITE(6d000)  TRTM2»  IPROBf  IPGN 
LINES=9 

3 N0d)=4 
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CALL  ORB (4*0) 

CALL  EPH£M(l»Dfl) 

DO  4 I=l»3 
XE(I)=XP{I)*ALN6TH 

4 XE(I+3)=XP(I+3)*ALNGTH/TM 
N0(1)=NTP 

CALL  ORB(NTPfD) 

CALL  EPHEM(1»D»1) 

DO  5 I=l»3 
XP(I)=XP(I)*ALNeTH 

5 XP{I+3)=XPU+3)*ALNGTH/TM 
IF(ICODE.GT.O)  GO  TO  7 

DO  6 1=1 » 6 
XVE1(1)=XI(I)-XE(I) 

XVP1{I)=XI(I)"XP(I) 

XVE2(I)=XIia)-XE(I) 

XVP2(I)=XI1(I)-XP{I) 

XVE3U)=ZI(I)-XE(I) 

6 XVP3(I)=2l(l)-XPm 
GO  TO  9 

7 DO  8 1=1 » 6 
XVEin)=XF{X)-XE(I) 

XVP1(I)=XF(I)“XP(I) 

XVE2(I)=XF1(I)-XE{I) 

XVP2(I)=XF1(I)-XPM) 

XVE3(I)=Z  (I)-XE(I) 

XVP3(I)=Z  LI)“XP(I) 

RME1=F ( XVEl ( 1 ) f XVEl (2 ) f X VEl ( 3 ) ) 

VME1=F(XVE1(4)  rXVEKB)  »XVE1<6)  ) 

RMP1=F{XVP1(1) »XVP1(2) »XVP1(3) ) 

VMP1=F  (XVP1(4)  »XVP1(5)  »XVPK6) ) 

RME2=F(XVE2{1) »XVE2(2) »XVE2(3) ) 

VME2=F ( XVE2 (4 ) » XVE2 ( 5 ) » XVE2 ( 6 ) ) 

RMP2=F(XVP2(1) »XVP2(2) »XVP2(3) ) 

VMP2=F(XVP2(4)f XVP2(5) »XVP2(6) ) 

RME3=F(XVE3U)  rXVE3(2)  »XVE3(3) ) 

VME3=F ( X VE3 ( 4 ) » XVE3 ( 5 ) » X VE3 ( 6 ) ) 

RMP3=F(XVP3(1) »XVP3(2) »XVP3(3) ) 

VMP3=F ( XVP3 ( 4 ) f X VP3 ( 5 ) f XVP3 ( 6 ) ) 

IF(ICODE.GT.O)  GO  TO  11 
WRlTE(6r3026)  TRTMl 

3026  FORMAT (///ax^AT  INITIAL  TIME»*F8.3*  DAYS*//59X*X-C0MP'.*13X*Y-C0MP. 
$*13X*Z-C0MP . *12X*RESULTANT*/ ) 

60  TO  12 

11  WRITE(6»3027)  TRTM2 

3027  FORMAT (///aX*AT  FINAL  TIME  *F8.3*  DAYS^//59X*X-C0MP.*13X*Y-C0MPf * 
$13X»  *Z-COMP . *12X*RESULTANT*/ ) 

12  WRITE(6r302a)  (XVEKD  » I=l»3)  »RMEl»  (XVEl (I > rl=4»6)  »VME1» 

$(XVPKI)  »I  = 1»3)  »RMP1»  (XVPKI)  ,I=4»6)  f VMPl»  (XVE2(I)  »I=1»3)  »RME2» 
${XVE2(1) »I=4»6) »VME2t (XVP2(I) » 1=1.3) iRMP2. (XVP2( D . 1=4.6) .VMP2. 
${XVE3(I)» 1=1.3) .RME3. {XVE3(I) . 1=4.6) »VME3. (XVP3( I) . 1=1.3) .RMP3. 
S(XVP3(I) .1=4.6) .VMP3 

LINES=LINES+25 
IFdCODE.GT.O)  60  TO  13 
IF {LINES.lt. MAX-25)  60  TO  14 
IP6N=IP6N+1 

WRITE(6.3000)  TRTM2.IPR0B.IP6N 
LINES=9 
14  IC0DE=1 

D=DATEJ+TRTM2 
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GO  T 0 3 

3028  FORMAT (10X*ORIGINAL  NOMINAL  TRAJECTORY*/ 

$12X*P05ITI0N  OF  VEHICLE  RELATIVE  TO  EARTH*4E20.8/ 

S12X*VEL0CITY  OF  VEHICLE  RELATIVE  TO  EARTH*4E20 .8/ 

412X*P0SIT10N  RELATIVE  TO  TARGET  PLANET.  .♦4E20.8/ 
il2X*VEL0CITY  RELATIVE  TO  TARGET  PLANET.  .*4E20.8// 

$10X*MOST  RECENT  NOMINAL  TRAJECTORY*/ 

$12X*P0SITI0N  OF  vehicle  RELATIVE  TO  EARTH*4E20.8/ 

$12X*VEL0CITY  OF  VEHICLE  RELATIVE  TO  EARTH*4E20.8/ 

S12X*P0SITI0N  RELATIVE  TO  TARGET  PLANET.  .*4E20.8/ 

$12X*VEL0CITY  RELATIVE  TO  TARGET  PLANET.  .*4E20.8// 

S10X*ACTUAL  TRAJECTORY*/ 

S12X*P0SITI0N  OF  VEHICLE  RELATIVE  TO  EARTH*4E20 .8/ 

$12X*VEL0CITY  OF  VEHICLE  RELATIVE  TO  EARTH*4E20.8/ 

S12X*P0SITI0N  relative  TO  TARGET  PLANET.  .*4E20.8/ 

S12X*VEL0CITY  RELATIVE  TO  TARGET  PLANET.  .*4E20.8) 

13  IF (LINES.lt. MAX-6)  GO  TO  1 

IPGN=IPGN+1 

WRITE(6»3000)  TRTM2»IPR0B»IPGN 
HNES=9 

1 M=MCNTR-1 

WRITE  (6r3005)  M 

3005  FORMAT  (//8X*STATISTICAL  DATA  AFTER  MEASUREMENT*I5) 

LINES=LINES+3 

GO  TO  U0f20/30»40»50»60»70r80»90»100) »MMCODE 
10  WRITE  (6f3006)  TRTM2 

3006  FORMAT (//10X*RANGE-RATE  WAS  MEASURED  FROM  THE  IDEALIZED  STATION  AT 
4 TRAJECTORY  TIME*F12.5*  DAYS*) 

GO  TO  110 

20  WRITE  (6»3007)  TRTM2 

3007  FORMAT(//10X*RANGE  AND  RANGE-RATE  WERE  MEASURED  FROM  THE  IDEALIZED 
$ station  at  trajectory  TIME*F12.5*  DAYS*) 

GO  TO  110 

30  IA=1 

31  WRITE  (6r3008)  IA»TRTM2 

3008  FORMAT  ( //10X*RANGE-RATE  WAS  MEASURED  FROM  STaTI0N*I2*  AT  TRAJECTO 
$RY  T1ME*F12.5*  DAYS*) 

GO  TO  110 

40  IA=1 

41  WRITE  (6 » 3009)  IA»TRTM2 

3009  FORMAT (//10X*RANGE  AND  RANGE-RATE  WERE  MEASURED  FROM  STATI0N*I2  * 
$AT  TRAJECTORY  TIME*F12.5*  DAYS*) 

Go  TO  110 
50  IA=2 

GO  TO  31 
60  IA=2 

GO  TO  41 
70  IA=3 

GO  TO  31 
80  IA=3 

GO  TO  41 

90  WRITE  (6»3010)  TRTM2 

3010  FORMAT (//10X*THREE  STAR  PLANET  ANGLES  WERE  MEASURED  AT  TRAJECTORY 
$TIME*F12.5*  days*) 

GO  TO  110 

100  WRITE(6.3011)  TRTM2 

3011  FORMAT (//10X*THE  APPARENT  PLANET  DIAMETER  WAS  MEASURED  AT  TRAJECTO 
$RY  TIME*F12.5*  DAYS*) 

110  LINES=LINES+3 

IF(LINES.LT. MAX-11)  GO  TO  115 


WR I T£ ( 6 » 3000 ) TRT«2 » I PROS » IP6N 
LINES=9 

115  WRITE  (6f3012)  TRTM2»TRTM1 

3012  FORMAT  (///10X*STaTE  TRANSITION  MATRIX  — P5I (♦F8.3*»*F8*3»)*/) 
LINES=LINES+5 

DO  112  I=1»NDIM 

IF (LINES.lt. MAX-4)  60  TO  114 

IP6N=IP6N+1 

WRITE(6r3000)  TRTM2. IPROB. IP6N 
LINES=9 

114  IF(NDIM.EQ.6)  60  TO  111 
WRITE(6»3013)  I 

3013  FORMAT (12X*R0W  *13) 

LINES=LINES+1 

111  WRITE  (6.3014)  (PSKI.  J)  .J=1.NDIM) 

3014  F0RM^T(18X.6E17.8) 

112  LINES=LINES+ITEMP 
IF(LINES.LT. MAX-8)  60  TO  113 
IP6N=IPGN+1 

WRITE(6.3000)  TRTm2.IPR0B.IP6N 
LINES=9 

113  WRITE  (6.3015) 

3015  FORMAT(///10X*DIA60NAL  OF  DYNAMIC  NOISE  MATRIX*/) 

120  WRITE(6.3014)  (Q( J. J) . J=1.NDIM) 

HNES=LINES+8 

IF(LINES.LT. MAX-9)  60  TO  122 
1P6N=IPGN+1 

WRITE(6.3000)  TRTm2.IPR0B.IP6N 
L1NES=9 

122  WRITE  (6.3016) 

3016  FORMAT (///10X*OBSERVATION  MATRIX*/) 

LINES=LINES+5 

DO  131  1=1. NR 

IF(LINES.LT. MAX-4)  60  TO  130 
IP6N=IPeN+l 

WRITE(6.3000)  TRTM2.IPR0B.IP6N 
LINES=9 

130  IF(NDIM.EQ.6)  60  TO  123 
WRITE(6.3013)  I 
LINES=LINES+1 

123  WRITE(6.3014)  (H( I . J) . J=1.NDIM) 

131  L1NES=LINES+ITEMP 
IF(LINES.LT. MAX-9)  60  TO  132 
IP6N=IPGN+i 

WRITE(6.3000)  TRTm2.IPR0B.IPGN 
LINES=9 

132  WRITE  (6.3017) 

3017  format(///iox*measurement  noise  matrix*/) 

DO  140  1=1. NR 

140  WRITE(6.3018)  (R(I.J) .J=1.NR) 

3018  F0RMAT(16X.4E17.8) 

LINES=LINES+NR+5 

IF(LINES.LT.MAX-NDIM-5)  60  TO  141 
IP6N=IPGN+1 

WRITE(6.3000)  TRTM2.IPR0B.IP6N 
LINES=9 

141  WRITE  (6.3019) 

3019  FORMAT (///10X*K  MATRIX*/) 

DO  150  ISI.NDIM 

150  WRITE  (6.3018)  (AK(I. J) . J=1.NRJ 
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LINES=LINES+NDIM+5 

IF ( LINES. LT. max-9  ) GO  TO  151 

IPGN=IPGN+1 

WRITE(6»3000)  TRTM2»IPR0B»IPGN 
HNES=9 

151  WRITE  (6 » 3020)  TRTM2 

3020  FORMAT(///10X  *C0VARIANCE  MATRIX  AT  TIME*F12,5*  DAYS»  J 

SUST  BEFORE  THE  MEASUREMENT*/) 

LINES=LINES+5 

165  DO  167  I=1»NDIM 
IF(LINES,LT. MAX-4  ) GO  TO  161 
IPGN=IPGN+1 

WRITE (6 f 3000)  TRTM2 . IPROB» IPGN 
LINES=9 

161  IF(NDIM,EQ.6)  GO  TO  166 
WRITE(6»3013)  I 
LINES=LINES+1 

166  WRITE(6»3014)  (PSIP { I » J) rJ=l »NDlM) 

167  LINES  = LINES+ITEMP 

IF (LINES.lt. MAX-9  ) GO  TO  162 
IPGN=IPGN+1 

WRITE(6»3000)  TRTM2 » IPROB» IPGN 
LINES=9 

162  WRITE  (6»3021)  TRTM2 

3021  FORMAT {///lOX  *COVARlANCE  MATRIX  AT  TIME+F12.5*  DAYS*  A 

iFTER  CONSIDERING  THE  MEASUREMENT*/) 

LINES=LINES+5 

172  DO  174  I=1*NDIM 
IF(LINES.LT. MAX-4)  GO  TO  171 
IPGN=IPGN+1 

WRITE ( 6 f 3000 ) TRTM2 * IPROB * IPGN 
LINES=9 

171  IF(NDIM,EQ.6)  GO  TO  173 
WR1TE(6.3013)  I 
LINES=LINES+1 

173  WRITE(6»3014)  (P ( I * J) * J=1 * NDIM) 

174  LINES  = LINES+ITEMP 
IF(LINES.LT.MAX-NDlM-5)  GO  TO  180 
IPGN=IPGN+1 

WRITE(6*3000)  TRTM2 * IPROB * IPGN 
LINES=9 

180  WRITE(6*3022) 

3022  FORMAT (///10X*ACTUAL  DYNAMIC  NOISE*/. 

WRITE(6*3023)  ( W ( I ) * I=1»NDIM) 

3023  F0RMAT(18XE17.8) 

LINES=LINES+NDIM+5 
IF(LINES.LT. MAX-9)  60  TO  191 
IPGN=IPGN+1 

WRITE(6*3000)  TRTM2* IPROB* IPGN 
LINES=9 

191  WRITE(6*3034) 

3034  FORMAT (///10X*MATRIX  OF  VARIANCES  OF  ACTUAL  MEASUREMENT  NOISE*/) 

DO  192  I=1*NR 

192  WRITE(6*3018)  ( AR ( I * 0) * J=1 *NR) 

LINES=LINES+9 

IFCLINES.LT. MAX-9)  GO  TO  200 
IP6N=IPGN+1 

WRITE(6.3000)  TRTM2* IPROB* IPGN 
LINES=9 

200  WRITE(6*3025) 
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3025  FORMAT {///10X*ACTUAL  MEASUREMENT  NOISE*/) 

WRIT£(6»3023)  (ANOIS(I)  rI=l»NR> 

HNES=LINES+9 

IF(LINES.LT, MAX-9)  GO  TO  210 
IP6N=IPGN+1 

WRITE(6f3000)  TRTM2» IPROB» IPGN 
LINES=9 

210  WRITE(6r3040) 

3040  FORMAT {///10X*MEASUREMENT*//23X*ESTIMATED*20X*ACTUAL*20X*RESIDUAL* 
$) 

WRITE(6f3035)  (EY ( I ) » AY ( I ) »RES ( I ) » 1=1 »NR) 

3035  F0RMAT(18XE17.8»10X»El7,8fl0X»El7.8) 

LINES=LlNES+9 

IF(L1NES.LT, MAX-9)  GO  TO  240 
IPGN=IP6N+1 

WRITE{6»3000)  TRTM2. IPROBf IPGN 
LINES=9 

240  WRITE(6^3030) 

3030  FORMAT(///10X*RES1DUAL  UNCERTAINTIES*/) 

DO  241  1=1 » NR 

241  WRITE (6 » 3018)  (HPHR ( I » J ) » J=1 » NR ) 

LINES=LINES+9 

DO  250  I=1»NDIM 

AODI ( I ) =ADEVX (I) -EDEVX ( I ) 

ADON ( I ) =XF1 ( I ) -XF ( I ) +ADEVX ( I ) 

250  EDON { I ) =XF1 ( I ) -XF { I ) +EDEVX ( I ) 

IF(LINES.LT.MAX-NDIM-6)  GO  TO  190 
IPGN=IP6N+1 

WRITE(6»3000)  TRTM2f IPROBiIPGN 
LINES=9 

190  WRITE (6»3024) 

3024  FORMAT(///10X*DEVIATION  OF  THE  STATE  VECTOR  FROM  MOST  RECENT  NOMIN 
$AL*  //23X*ESTIMATED*20X*ACTUAL*) 

WRITE ( 6 » 3029 ) ( EDEVX (I ) , AOEVX ( I ) » 1=1 » NO IM ) 

3029  F0RMAT(18XE17,8»10XE17.8) 

LINES=LINES+NDIM+6 
IF(LINES,LT,MAX-NDIM-5)  go  to  270 
IPGN=IP6N+1 

WRITE(6»3000)  TRTM2» IPROBf IPGN 
LINES=9 

270  WRITE(6f3032) 

3032  F0RMAT(///10X*DEVIATI0N  FROM  ORIGINAL  NOMINAL*//23X*EST1MATED*20X 
S*ACTUAL*) 

WRITE (6 » 3029)  (EDON (1) » ADON( I ) f 1=1 »NDIM) 

LINES=LINES+NDIM+5 
IF(LlNES.LTfMAX-NDlM-5)  GO  TO  260 
IP6N=1PGN+1 

WRIT£(6»3000)  TRTM2» IPROBf IPGN 
LINES=9 

260  WRITE (6 f 3031) 

3031  FORMAT (///10X*ACTUAL  ORBIT  DETERMINATION  INACCURACY*/) 

WRITE  (6  f 3023)  (AODKDflslfNDIM) 

LINES=LINES+NDIM+5 

RETURN 

END 
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SUBROUTINE  PRNTS3(RF) 


THIS  subroutine  IS  RESPONSIBLE  FOR  PRINTlNe  A SUMMARY  OF  THE 
DATA  GENERATED  IN  THE  ERROR  ANALYSIS  MODE 


COMMON/CONST/OMEG A * EPS  r NST  r SAL ( 3 ) » SLAT ( 3 ) » SLON ( 3 ) » DNCN ( 3 ) f MNCN ( 12) 
C0MM0N/C0NST2/U1 » U2  r U3  » VI » V2 » V3 » W1 » W2 » W3 , FOP » FOV 
C0MM0N/C0NST3/DELXA » DEL Y A » DEL2A » DELXE » DELYE » DELZE » DELX I » DELYI » 

» DELZI rDELAXS  f DELECC » DELICL » DELMUS  » DELMUP 
COMMON/EVENT/NEV » TEV ( 50 ) » IEVNT 1 50 ) » IHYPi » IEI6 » TPT2 ( 20 ) » 

$ ICDT3 ( 20 ) f NPE » NGE » IPOL » I IPOL » ICDQ3 ( 20 ) f S IGRES » SI GPRO » S I6ALP » SIGBET 
S , NEVI » NEV2 » NEV3 » NEV4 » NQE 
C0MM0N/GUI/PG(17f 17) »XG(6) »TG»EM(2»6) 

COMMON  /MEAS/  TMN(IOOO) rMCODE(lOOO) »NMN»MCNTR 

COMMON/MISC/ACC»IDNFf ICOORf ITR»lMNF»FACP»FACVrISP2rBIA(12) »IPGN 
COMMON  /NAME/MDNM{4»2) » EVNM ( 4) fMNNAME ( 12t 3 ) rCMPNM(ll» 17) 
COMMON/STM/P ( 17 » 17 ) » PSI ( 17  r 17 ) » Q(l7 » 17 ) » H < 4 » 17 ) f R ( 4 f 4 ) t AK ( 17 » 4 ) 
S/PBU7»17)»PSIPa7»17)  »HPHR<4»4) 

COMMON/STVEC/XI(17)  »XF(17)  »NDIM*  IAUGfXBU7) 

COMMON/TIM  /DATED » TRTMl » DELTM# FNTM » UNIVT r TRTMB 
COMMON/TRADCD/NTMC » ISTMC » ISTMl » OTMAX ► NDACC » ACCND 
COMMON/VM/NBOD»NB(ll) »NTPrALNGTHfTM»DELTPf lNPR» IPROBt RC(6) »DC» 

$RS I ( 3 ) > VS I ( 3 ) » DS I » I SPH » R VS ( 6 ) » VMU » B » BDT » BDR » DELTH » T IMINT » I NCMT » 
5IEPHEM»lCLrIPRINT»RE(6) »RTP(6) »ICL2 
DIMENSION  RI (6) »RF(6) f VE(6) » VT(6) 

F ( A f B » C ) =SQRT ( A*A+B*B+C*C ) 

MAX=60 
IPGN=IPGN+1 

WRITE<6»1000)  IPROBrIPGN 

1000  FORMAT {1H1///5X*S  U M M A R Y OF  ERROR  ANALYSIS 
i M 0 D E*//90x*PROBLEM,  .♦I10»5X*PAGE.  .*18////) 

DO  1 I=l»6 
1 RI(I)=XB(I) 

TRTM1=TRTMB 
GO  TO  a0f20)»NTMC 
10  WRITE (6. 1001) 

1001  FORMAT (8X*PATCHED  CONIC  TRAJECTORY*///) 

GO  TO  55 

20  WRITE(6»2001) 

2001  FORMAT (8X+VIRTUAL  MASS  TRAJECTORY*///) 

WRITE (6. 2010)  ACCrDELTH 

2010  FORMAT(10X*ACCURACY  FIGURE*  E13.6»*  INDICATES  TRUE  ANOMALY  INCREME 
$NT  IS*  E20.13*  RADIANS*//) 

WRITE (6.2013)  ALNGTH.TM 

2013  FORMAT (10X*LENGTH  UnITS*E20.10*/A.U.*/10X*TIME  UNITS*E22. 10*/DAY* 
$//) 

I=IEPHEM+1 
GO  TO  (21.22).  I 

21  WRITE(6.2014) 

2014  FORMAT (10X*0RBITAL  ELEMENTS  FOR  EPHEMERIS  CALCULATED  INITIALLY  AT 
SGIVEN  DATE*//) 

GO  TO  23 

22  WRITE(6.2015) 

2015  FORMAT (10X*ORBITAL  ELEMENTS  FOR  EPHEMERIS  CALCULATED  AT  EVERY  TIME 

* interval*//) 

23  CONTINUE 
D1=TRTMB+DATEJ 
TRTM2=FNTM 
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D2  = TRTM2+DATEJ 
D3=D1+2415020, 

D4=D2+2415020. 

CALL  T I ME ( D 1 » L YR  f LMO  f LD A Y f LHR » LM I N » SECL » 1 ) 

CALL  TIME(D2»IYR»IM0rIDAYrIHR»IMINfSECI»l) 

WRITE (6f2002)  TRTMB»D3rLM0»LDAYf LHR »LMINf SECL »LYR,TRTM2»D4»IM0» 

S I D A Y » I HR » IMI N » SEC I » I YR 

2002  FORMAT(10X*INITIAL  TRAJECTORY  TIME*F12.5*  DAYS#  JULIAN  DATE*F20.10 
S » 5X*C ALENDAR  D ATE*4 1 3 » F7 . 3 » * # ♦ 1 5 

$/  lOX  *FINAL  TRAJECTORY  TIME  *F12,5*  DAYS#  JULIAN  DATE*F20.10 
$ # 5X*CALENDAR  D ATE*41 3 # F7 , 3 # * # ♦ 1 5 ) 

RMI=F(RI(1) #RI(2) #RI(3) ) 

VMI=F(RI(4) #RI(5) »RI(6) ) 

RMF=F(RFU)  #RF(2)  #RF(3) ) 

VMF=F(RF(4) »RF(5) »RF(6) ) 

WRITE(6#2003) 

2003  FORMAT  (//57X*X-C0MP.*13X*Y-C0MP.*13X=*=2-C0MP.*12X*RESULTANT*) 

WRITE (6 #2004)  (RK  I ) # 1 = 1 #3)  #RMI # (Rl  ( I ) # I=4#6)  »VMI#  (RFd)  #I=1#3)  # 

5RMF  # ( RF ( I ) # 1=4  # 6 ) » VMF 

2004  FORMAT (/10X*HELIOCENTRIC  ECLIPTIC  COORDINATES*// 

a.  10X*INITIAL  position  of  vehicle  ....  .♦4E20.8/ 

i 10X*INITIAL  velocity  of  vehicle  ....  .*4E20.8/ 

4 iox*FiNAL  Position  of  vehicle  .....  .*4E20.8/ 

a 10X*FINAL  VELOCITY  OF  VEHICLE *4E20.8) 

DO  30  1=1 #6 
VT(I)=RF(I)-RTPM) 

30  VE(I)=RF(I)-RE(I) 

RMI=F(VT<1) #VT(2) #VT(3) ) 

VMI=F(VT(4) #VT{5) #VT(6) ) 

RMF=F ( VE ( 1 ) # VE ( 2 ) # VE  ( 3 ) ) 

VMF=F(VE(4) #VE(5) #VE(6) ) 

WRITE (6#2005)  ( VE ( I ) # 1=1 #3) #RMF# (VE( I ) # 1=4#6) ,VMF# ( VT M ) #1=1 # 3) # 
4RMI# (VT(1) »I=4#6) »VMI 

2005  FORMAT (//10X*AT  FINAL  TIME*// 

$10X*POSITION  OF  VEHICLE  RELATIVE  TO  EARTH+4E20.8/ 

S10X*VELOCITY  OF  VEHICLE  RELATIVE  TO  EARTH*4E20.8/ 

$10X*POSITION  relative  TO  TARGET  PLANET.  ,*4E20.8/ 

$10X*VELOCITY  RELATIVE  TO  TARGET  PLANET.  .♦4E20.8) 

RM I =F ( RC ( 1 ) # RC ( 2 ) # RC { 3 ) ) 

VMI=F(RC{4) #RC(5) #RC(6) ) 

D4=DC+2415020. 

CALL  T IME (DC # I YR » IMO # IDAY # IHR # IMIN # SECI # 1 ) 

WRITE { 6# 2006 ) IMO # IDAY # IHR# IMIN # SECI # I YR # D4 » 

$ ( RC ( I ) # 1 = 1 # 3 ) # RMI # (RC ( I ) # 1=4 » 6 ) , VMI 

2006  FORMAT (//10X*AT  CLOSEST  APPROACH.  . . . CALENDAR  DATE*‘(I3#F7.3»*#* 
$15#*.  . .JULIAN  DATE  *F20.10// 

$10X*POSITION  RELATIVE  TO  TARGET  PLANET.  .*4E20.8/ 

$10X*VELGCITY  RELATIVE  TO  TARGET  PLANET.  .*4E20.8) 

IPGN=IPSN+1 
IF(ISPH)  40#45#40 
40  RMI=F(RSI(1)#RSI(2) #RSI(3)) 

VMI=F{VSI(1)#VSI(2) #VSI(3)) 

D4=DSI+2415020. 

CALL  TIME (DSI # I YR#1MG#IDAY#IHR# IMIN# SECI #1) 

WRITE(6»2007)  IMO# IDAY# IHR# IMIN#SECI# IYR.D4  #RSI #RMI # VSI # VMI 

2007  FORMAT(//10X*AT  SPHERE  OF  INFLUENCE.  ...  CALENDAR  DATE*4I3#F7.3# 
$*#*I5»*.  . .JULIAN  DATE  *F20.10// 

$10X*POSITION  RELATIVE  TO  TARGET  PLANET.  .*4E20.8/ 

$10X*VELOCITY  RELATIVE  TO  TARGET  PLANET.  ,*4E20.8) 

IF(MAX.GT.51)  GO  TO  41 
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WRITE(6»1000)  IPROB»IPGN 
41  WRITE (6 » 2008)  B»BDT»BDR 

2008  FORMAT (//10X*B  =*E20.8*  B DOT  T =*E20,8*  B DOT  R =*£20. 8) 
IF(MAX.LT,60)  GO  TO  50 

WRIT£(6»1000)  IPR0B»1PGN 
GO  TO  50 

45  WRITE (6 » 2009) 

2009  FORMAT (//10X*VEHICLE  DID  NOT  PIERCE  SPHERE  OF  INFLUENCE  OF  TARGET 
SPLANET*) 

WRITE(6» 1000)  IPROBf IPGN 
50  CONTINUE 

55  WRITE (6 » 3000) 

3000  FORMAT (//1X130(1H*)///8X*MISCELLANEOUS  DATA  FOR  ERROR  ANALYSIS  MOD 
SE*///) 

GO  TO  (60f70»80)»  ISTMC 

60  WRIT£(6»3001)  DTMAX 

3001  FORMATUOX*THE  STATE  TRANSITION  MATRIX  WAS  COMPUTED  ANALYTICALLY  F 
*ROM  THE  PATCHED-CONIC  TECHNIQUE  EXCEPT  FOR  THE  FOLLOWING  CONDITION 
$*//l5X»IF  THE  TIME  INTERVAL  OVER  WHICH  THE  STATE  TRANSITION  MATRIX 
$ WAS  computed  was  greater  THAN*F8,3*  DAYS*) 

IF(ISTMl)  62 » 61 » 62 

61  WRITE(6»3002) 

3002  FORMAT  (15X*THE  GOVERNING  BODY  WAS  ASSUMED  TO  BE  THE  SUN  IN  THE  AN 

salytical  calculation*) 

GO  TO  90 

62  WRITE (6* 3003) 

3003  FORMAT (15X*THE  STATE  TRANSITION  MATRIX  CODE  WAS  IGNORED  AND  THE  NU 
SMERICAL  DIFFERENCING  TECHNIQUE  WAS  USED*) 

GO  TO  90 

70  WRITE (6 » 3004)  DTMAX 

3004  FORMAT (10X*THE  STATE  TRANSITION  MATRIX  WAS  COMPUTED  ANALYTICALLY  F 
$ROM  THE  VIRTUAL  MASS  TECHNIQUE  EXCEPT  FOR  THE  FOLLOWING  CONDITION 
$*//15X*IF  THE  TIME  INTERVAL  OVER  WHICH  THE  STATE  TRANSITION  MATRIX 
$ WAS  COMPUTED  WAS  GREATER  THAN*F8.3*  DAYS*) 

IF  (ISTMl)  72 r 71 » 72 

71  WRITE (6» 3002) 

GO  TO  90 

72  WRITE (6 » 3003) 

GO  TO  90 

80  WRITE<6f30C5) 

3005  FORMAT {10X*THE  STATE  TRANSITION  MATRIX  WAS  COMPUTED  FROM  THE  NUMER 

SICAL  DIFFERENCING  TECHNIQUE*) 

WRITE (6 f 3006)  FACP»FACV 

3006  FORMAT a5X*P0SITI0N  FACTOR  =*El8. 10/15X*VELOCITY  FACTOR  =*E18.10) 
IF(NDACC)  81 » 90 f 81 

81  WRITE(6»3007)  ACCND 

3007  FORMAT (15X*ACCURACY  USED  = *E18.10) 

90  GO  TO  (100»100f 100»100»91»100»100»100»91*91»100) » lAUG 

91  WRITE(6»3008)  DELAXSfDELECCrDELICL 

3008  FORMAT (/10X*WHEN  THE  THREE  EPHEMERIS  BIASES  OF  THE  TARGET  PLANET  A 
$RE  AUGMENTED  TO  ThE  STATE*  THE  FOLLOWING  FACTORS  WERE  USED  IN  THE* 
*/10X*NUMERlCAL  DIFFERENCING  TECHNIQUE  TO  GENERATE  THAT  AUGMENTED  P 
SORTION  OF  The  state  TRANSITION  MATRIX*/15X*SEMI-MAJ0R  AXIS*E20,10/ 
$15X*ECCENTRICITY  *£20  » 10/15X*1NCLINATION  *E20. 10 ) 

100  WRITE (6* 3009)  NMN 

3009  FORMAT (//10X*NUMBER  OF  MEASUREMENTS  TAKEN  . . • .*15) 

WRITE (6 *3010)  NEV*NEV1*NEV2*NEV3 

3010  FORMAT (//10X*TOTAL  NUMBER  OF  EVENTS  ......  .*I5/15X*EIGENVECT 

$OR  EVENTS,  .....  .*I5/15X*PREDICTI0N  EVENTS  . . . . . . .*15/1 

S5X*GUIDANCE  EVENTS *15) 
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IP6N=IP6N+1 

WRITE(6»1000)  IPROBrIPGN 
IF(NEV3)110»110»101 

101  WRITE<6»3011)  SI6RES»SIGPR0»SIGALP»SIGBET 

3011  FORMAT (lOX+FOR  GUIDANCE  EVENTS*/15X*VARIANCE  OF  RESOLUTION  ERROR* 
$6XE20.10/15X*VARIANCE  OF  PROPORTIONALITY  ERROR  *E20.10/15X*VARIANC 
*E  OF  POINTING  ANGLE  1*6XE20.10/15X*VARIANCE  OF  POINTING  ANGLE  2*6X 
4E20.10) 

110  IF(NST)  120flllfl20 

111  WRITE(6»3012)  ( If SAL ( I ) » SLAT ( I) »SLON ( I ) » 1=1 »NST) 

3012  FORMAT (//10X*STATION  LOCATION  CONSTANTS*/30X*aLTITUDE*12X*LATITUDE 
$*12X*L0N6lTU0E*/3 ( 15X*STATI0N*I2»  3E20 . 10/) ) 

120  IF(IDNF)  122»121fl22 

121  WRITE(6f3013) 

3013  F0RMAT(//10X*DYNAMIC  NOISE  IS  ZERO*) 

GO  TO  130 

122  WRITE(6f3014)  ONCN 

3014  FORMAT (//10X*THE  DYNAMIC  NOISE  MATRIX  IS  A DIAGONAL  MATRIX  WHERE  T 
4HE  ELEMENTS  ON  THE  DIAGONAL  ARE  COMPUTED  FROM  THE  FOLLOWING  CONSTA 
SNTS*/10X6E20.10) 

130  IF(IMNF)132f 131»132 

131  WRITE(6f30l5)  ( (MNNAMEdf  J)  f J=lf3)  fMNCNd)  f I=l»12) 

3015  FORMAT (//10X*MEASUREMENT  NOISE  WAS  CONSTANT  AS  SHOWN  BY  THE  FOLLOW 
SING  NUMBERS*/12(15X3A10E20.10/) ) 

GO  TO  140 

132  WRITE(6»3016) 

3016  FORMAT (//10X*MEASUREMENT  NOISE  WAS  COMPUTED  INTERNALLY*) 

140  1=1 

J=2 

K=3 

WRITE{6f3017)  I fUl f VI » W1 » J» U2f V2. W2f K f U3 r V3» W3 

3017  FORMAT(//10X*DIRECTioN  COSINES  FOR  THREE  STAR  PLANET  ANGLES*/ 
$3(15XI1»3e20.10/) ) 

WRITE(6»3018) 

IPGN=IPGN+1 

WRITE(6f 1000)  IPROBflPGN 
WRITE(6f3019) 

3018  FORMAT(//1X130(1H*) ) 

3019  F0RMAT(8X*STATISTICAL  DATA  FOR  ERROR  ANALYSIS  MODE*///) 
WRITE(6»3020)  (CMPNMdAUGr  I)  fXB(I)  rXFd)  f I=lfNDIM) 

3020  FORMAT (10X*STATE  VECT0R*/38X*INlTIAL*24X*FlNAL*/17(15XfAl0f 5XE20.1 
$0»10XfE20fl0/) ) 

IF(N0IM.NE.6)  GO  TO  160 
WRITE{6»3021) 

3021  FORMAT(//10X*INITIAL  COVARIANCE  MATRIX*/) 

DO  150  I=l»6 

150  WRITE(6»3022)  (PB( IfO) » J=l»6) 

3022  FORMAT (10X6E20, 10) 

WRITE(6»3023) 

3023  FORMAT(//10X*FINAL  COVARIANCE  MATRIX*/) 

DO  151  I=l»6 

151  WRITE(6f3022)  (Pd»J) » J=l»6) 

GO  TO  200 

160  LINES  = 16  + NDIM 
WRITE(6»3021) 

DO  162  I=1»NDIM 
IF(LINES.LT. MAX-4)  GO  TO  161 
IPGN=IPGN+1 

WRITE{6flOOO)  IPROBflPGN 
LINES=10 
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161  WRITE (6 » 3024)  I 
3024  FORMAT (10X*R0W* 13) 

WRITE ( 6 » 3022 ) ( PB ( I rU ) » J=1 » NO IM ) 

162  LINES  = LINES+NDIM/6+2 

IF (LINES. LT. MAX-12)  GO  TO  170 
IP6N=IPGN+1 

WRITE{6»1000)  IPROB.IPGN 
LINES=10 

170  WRITE (6. 3023) 

DO  172  I=1»NDIM 
1F(LINES.LT,MAX-4)  go  to  171 
IPGN=IPSN+1 

WR I TE (6 » 1000 ) IPROB  t IPGN 
L1NES=10 

171  WRITE (6.3024)  I 

WRITE (6. 3022)  ( P ( I »J) . J=1 . NDIM) 

172  LINES=LINES+NDIM/6+2 

200  return 

END 
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SUBROUTINE  PRNTS4(RF»RF1) 

COMMON/CONST/OMEGA »EPS»NST»5AU 3) , SLAT (3) »SL0N(3) »DNCN(3) fMNCN(12) 
C0MM0N/C0NST2/U1 r U2 1 U3 » VI » V2  f V3 » W 1 1 W2 1 W3 » FOP » FOV 
C0MM0N/C0NST3/DELX A » DEL Y A rDELZA  t DELXE  r OELYE , OELZE  f DELX I » DELY 1 1 
SDELZI » DELAXS  t DELECC » DELICL  r DELMUS » DELMUP 
COMMON/EVENT/NEV  f TEV ( 50 ) rIEVNT(50 ) ► IHYPl » lElGi TPT2(20 ) f 
$ICOT3(20) »NPE»N6E»IP0Lr IIPOL» 10003(20) »SIGRES»SI6PR0»SIGALP»SIGBET 
S » NEVl t NEV2 » NE V3 » NE V4 » NOE 
C0MM0N/6UI/PG{17»17) »XG(6) fTGrEM(2»6) 

COMMON  /MEAS/  TMNdOOO)  »MCODE(1000)  »NMN»MCNTR 

COMMON/MISC/ACC  r IDNF  r ICOOR  t ITR » IMNF  »FACP  rFACV » ISP2  »BIA ( 12 ) rlPGN 
COMMON  /NAME/MDNM(4»2)  »EVNM(4)  rMNNAME(12r3)  »CMPNMU1»17) 
C0MM0N/SlMCNT/DMUSBrDMUPB»DAB»DEB»DIB»TTlMl»TTIM2tUNMAC(3»3) t 
$SLB ( 9 ) f A V ARM (12 ) » I AMNF  r ARES ( 20 ) » APRO ( 20 ) t AALP (20 ) , ABET ( 20 ) 

COMMON  /SIMI/XIK17)  ,XF1(17)  »ADEVX(17)  »EDEVX(17)  fW(17)  tZ(17) » 

S ANO I S ( 1 7 ) » RES  ( 4 ) f E Y ( 4 ) » A Y ( 4 ) f AR  ( 4 » 4 ) » Z I ( 1 7 ) f ADEVXB  < 17 ) 

COMMON  /SIM2/NBH11)  »ACClfNBODl 

COMMON/STM/P ( 17 » 17 ) » PSI ( 17 » 17 ) » Q ( 17 » 17 ) » H ( 4 , 17 ) rR ( 4 f 4 ) » AK ( 17 » 4 ) 
i>PB(17»17) »PSlP(17f 17)fHPHR(4»4) 

COMMON/STVEC/XI ( 17 ) f XF (17 ) »NDIM  f I AUGf  XB ( 17 ) 

COMMON/TIM  /DATEJ / TRTMl » OELTM » FNTM » UNI VT » TRTMB 
COMMON/TRAvICD/NTMC»ISTMC»  ISTMl»DTMAXfNDACC»ACCND 
COMMON/TRJ/ISOIl»ISOI2»ISOI3»ICAl»ICA2fICA3»RCAl(6)»RCA2(6) » 
SRCA3(6) »RS0I1(3) pRS0I2(3) rRS0I3<3) rVS0ll(3) »VS0I2(3) rVS0I3(3) f 
STCAl»TCA2dCA3»TS0IlfTSOI2»TS0l3»BSIl»BSl2»BSl3fBDTSIl»BDTSI2» 

* BDTSl 3 » BDRSl 1 f BDRS 1 2 r BDRS 1 3 

COMMON/ VM/NBOO  r NB ( 11 ) > NTP » ALNGTH » TM » DELTP  t INPR  p I PROB » RC ( 6 ) » DC » 

$RSI ( 3)  rVSI ( 3 ) » DSI » ISPH » RVS ( 6 ) » VMU pB » BDT » BDR p D£LTH» TIMINT p INCMT p 
$ 1 EPHEM » I CL ► IPR INT » RE ( 6 ) » RTP ( 6 ) » I CL2 
COMMON/BLK/TfPMASS  (ll)  »CN(80)  »ST(50)  »EMN(15)  rSMJRdS) 

COMMON  /BLK/R AD I US (1 1 ) f RM ASS (1 1 ) r NO ( 1 1 ) » ELMNT ( 80 ) » SPHERE ( 1 1 ) ► XP ( 6 ) 
COMMON  /PRT/M0NTH(12)  ^PLANETdl) 

DIMENSION  RI(6) »RF(6) »RI1(6) »RF1 (6) »RE1 (6) » RE2(6) »RE3(6) »RP1(6) p 
$RP2(6) rRP3(6)f A0D1(17) »ED0N(17) »AD0N(17) 

F ( A » B » C ) =SQRT ( A*A+B*B+C*C ) 

MAX=60 

IP6N=IPGN+1 

WRITE (6»  1000)  IPROBdPGN 

1000  FORMAT  dHl///5X*S  UmMARY  OF  SIMULATION  MOD 
$E*/  /90X*PROBLEM.  .*I10»5X»*PAGE,  .*18////) 

LINES=10 

60  TO  (10.20) »NTMC 
10  WRITE(6d001) 

1001  FORMAT (8X*PATCHED  CONIC  TRAJECTORY*///) 

LINES=LINES+4 

GO  TO  220 

20  WRITE(6.2001) 

2001  FORMAT (8X*VIRTUAL  MASS  TRAJECTORY*///) 

LINES=LINES+4 

WRITE(6»2002)  ACC.ACCl 

2002  FORMAT dOX*ACCURACY  USED  IN  TRAJECT0RY*//14X*n0MINAL*8X*ACTUAL*/ 
S12X»E10,3»5X.E10,3) 

LINES=LINES+4 

BLANK=10R 

K=NB0D1 

IF (NBOD .GT .NBODl ) K=NBGD 
WRITE(6»2003) 

2003  F0RMAT(///10X*B0DIES  CONSIDERED  IN  TRAJECT0RY*//12X*N0MINAL*8X*ACT 
$UAL*/) 

DO  30  1=1. K 
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J1=NB(I) 

vJ2=NBl(I) 

IF(Jl.EQ.O)  eO  TO  28 
IF(J2.EQ.O)  60  TO  27 
WRITE{6^2004)  PLANET (J1 ) rPUANET (J2) 

2004  FORMAT (12X»A10r5X»A10) 

GO  TO  30 

27  WRITE(6»2004)  PLANET( Jl) iBLANK 
GO  TO  30 

28  1F(J2,EQ,0)  GO  TO  29 

WRITE ( 6 » 2004 ) BLANK f PLANET ( J2 ) 

GO  TO  30 

29  WRITE (6 » 2004)  BLANK r BLANK 

30  CONTINUE 
LINES=LINES+K+7 
IFILINES.LT. MAX-7  ) 60  TO  40 
IP6N=IPGN+1 

WRITE(6rl000)  IPROBfIPGN 
LINES=10 

40  WRITE(6y2005)  DMUSBfPLANET(NTP) ►DMUPB 

2005  FORMAT (///10X*6RAVITaTIONAL  CONSTANT  BIASES  USED  IN  ACTUAL  TRAUECT 
$ORY*//12X*5UN*7X»E10,3/12Xf A10»E10,3) 

LINES=LINES+7 

IF  (LINES.lt. MAX-8)  GO  TO  50 
IPGN=IPGN+1 

WRITE (6 r 1000 ) IPROBr IPGN 
LINES=10 

50  WRITE(6f2006)  OAB»DEB»DIB 

2006  FORMAT (///10X*EPHEM£RIS  BIASES  USED  IN  ACTUAL  TRAJECT0RY*//12X 

$*5EM1-MAJ0R  AXIS  *E10.3/12X*ECCENTRIC1TY  *E10.3/12X*INCLINATION 
$ *E10.3) 

LINES=LINES+8 

D1=TRTMB+DATEJ 

D2=FNTM+DATEJ 

03=01+2415020. 

04=03+2415020. 

CALL  T I ME ( D1 * L YR  f LMO r LD A Y » LHR » LM IN » SECL ) 

CALL  TIME ( D2 » I YR » IMO » IDA Y 1 1 HR » IMIN » SEC I ) 

IF (LINES.lt. MAX-5  ) 60  TO  60 
IP6N=IPGN+1 

WRITE(6f 1000)  IPROB»IPGN 
LINES=10 

60  WRITE(6r2020)  TRTMB»D3»LM0f LDAY*LHR»LMIN»SECL.LYR»FNTM»D4. IM0» IDAY 

$»IHR»IMIN»SECI*IYR 

2020  F0RMAT(///10X*INITIAL  TRAJECTORY  TIME*F12.5*  oAYS»  JULIAN  DATE* 

$F20.10»5X*CALEN0AR  DATE*4I3»F7.3*.*I5/10X*FINAL  TRAJECTORY  TIME  ♦ 
$F12.5*  DAYS#  JULIAN  DATE*F20.10#5X*CALENDAR  DATE*4I3»F7.3*»*I5) 
LINES=LlNES+5 

IF (LINES.lt. MAX-17)  GO  TO  70 
IPGN=IP6N+1 

WRITE(6»1000)  IPROBfIPGN 
LINES=10 

70  WRITE (6»2007) 

2007  FORMAT (///10X*AT  INITIAL  TIME#  ECLIPTIC  COORDINATES  OF  VEHICLE*// 
*40X*X*19X*Y*19X*Z*15X*RESULTANT*) 

RMS=F ( XB ( 1 ) # XB ( 2 ) # XB ( 3 ) ) 

VMS=F(XB(4) #XB(5) #XB(6) ) 

N0(l)=4 
CALL  0RB(4#D1) 

CALL  EPHEM(1#D1#1) 
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DO  71  1=1 t 3 

RE ( I ) =XB ( I ) -XP (I ) *ALNGTH 

71  RE ( 1+3 ) =XB  C 1+3 ) -XP ( 1+3 ) ♦ALNGTH/TM 
RME=F(RE(1) »RE(2) »R£(3) ) 

VME=F(RE(4) »RE(5) »RE(6) ) 

N0(1)=NTP 

CALL  0RB(NTP»D2) 

CALL  EPHEM(l»D2fl) 

DO  72  1=1 f 3 

RTP ( I ) =XB ( I ) -XP ( 1 ) +ALNGTH 

72  RTP ( 1+3 ) =XB I 1+3 ) -XP ( 1+3 ) * ALNGTH/TM 
rmP=F(RTP(1) »RTP(2) »RTP(3) ) 

VMP=F ( RTP ( 4 ) +RTP ( 5 ) r RTP ( 6 ) ) 

WRITE (6» 2008)  ( XB ( I ) » 1=1 » 3) » RMS» (XB ( I ) r 1=4 » 6) , VMS » (RE ( I ) » 1=1 » 3) » 

SRMEr (RE(1)»1=4»6) fVMEfPLANET(NTP) » (RTP ( I ) » 1=1 » 3) »RMP» (RTP(l) » 1=4»6 
S)rVMP 

2008  F0RMAT(14X*RELATIVE  TO  SUN*/16X*P0S1T10N*5X » 4E20 . 10/16X*VELOCITY* 
$5Xf4E20,10//14X*RELATIVE  TO  EARTH*/16X*POSIT10N*5X»4E20.10/16X 
$*VELOCITY*5Xr4E20.l0//14X*RELATIVE  TO  *A10/16X*POS1T10N*5X^4E20. 10 
S/16X+VELOC 1TY+5X » 4E20 . 10 ) 

LINES=LINES+17 
RMS1=F(XF(1) »XF(2) »XF(3) ) 

VMS1=F(XF(4) fXF(5) »XF(6) ) 

RMS2=F(XF1(1)  »XFK2)  »XF1(3) ) 

VMS2=F(XF1(4)  »XF1(5)  »XFK6) ) 

RMS3=F(Z(l)fZ(2)»Z(3)) 

VMS3=F(Z(4) »Z(5) »Z(6) ) 

N0<1>=‘^ 

CALL  0RB(4»D2) 

CALL  EPHEM(1»D2»1) 

DO  80  1=1 f 3 

REl  ( 1 ) =XF ( 1 ) -XP ( I ) *ALNGTH 
RE2 ( 1 ) =XF 1 ( 1 ) -XP ( 1 ) *ALNGTH 
RE3 ( 1 ) =Z ( I ) -XP ( 1 ) * ALNGTH 
REl ( 1+3 ) =XF ( 1+3 ) -XP ( 1+3 ) *ALNGTH/TM 
RE2 ( 1+3) =XF1 ( 1+3) -XP ( 1+3) *ALNGTH/TM 
80  RE3(I+3)=Z(I+3)-XP(1+3)*ALNGTH/TM 

RME1=F(REK1)  »RE1(2)»RE1(3)  ) 

VME1=F(RE1(4) »RE1(5) »RE1(6) ) 

RME2=F(RE2(1) »RE2(2) »RE2(3) ) 

VME2=F ( RE2 ( 4 ) » RE2 ( 5 ) , RE2 ( 6 ) ) 

RME3=F(RE3'(1)  »RE3(2)  »RE3(3)  ) 

VME3=F ( RE3 ( 4 ) r RE3 ( 5 ) » RE3 ( 6 ) ) 

N0(D=NTP 
CALL  0RB(NTP»D2) 

CALL  EPHEM(1»D2»1) 

DO  90  I=lf3 

RPl ( 1 ) =XF ( I ) -XP ( 1 ) * ALNGTH 
RP2 ( 1 ) =XF1 ( I ) -XP ( 1 ) ♦ALNGTH 
RP3 ( 1 ) =Z ( I ) -XP ( I ) ♦ALNGTH 
RPl ( 1+3 ) =XF ( 1+3 ) -XP ( I +3 ) ♦ALNGTH/TM 
RP2 ( 1+3 ) =XF1 (1+3 ) -XP ( 1+3 ) ♦ALNGTH/TM 
90  RP3 ( 1+3) =Z ( 1+3 ) -XP ( 1+3) ♦ALNGTH/TM 

RMP1=F(RP1(1)  »RP1(2)  »RPK3) ) 

VMP1=F(RP1(4)  »RPK5)  »RP1(6)  ) 

RMP2=F(RP2(1) »RP2(2) rRP2(3) ) 

VMP2=F(RP2(4) »RP2(5) *RP2(6) ) 

RMP3=F ( RP3 ( 1 ) » RP3 ( 2 ) r RP3 ( 3 ) ) 

VMP3=F(RP3(4) tRP3(5) »RP3(6)) 

IF  (LINES.lt. MAX-17)  GO  TO  100 
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IP6N=IPeN+l 

WRITE(6»1000)  IPROB»IPGN 
LINES=10 

100  WRITE(6»2009) 

2009  FORMAT ( ///10X*AT  FINAL  TIME*//40X*X*19X*Y*19X*Z*15X*RESULTANT* ) 
WRITE(6»2010) 

2010  FORMAT (12X*0RI6INAL  NOMINAL  TRAJECTORY*) 

WRITE(6»2008)  (XF(I)  »I=1»3)  »RMSlf  (XF(I) » I=4»6)  »VMS1»  (REKD  fl=l»3) 
*»RME1»  (REKI)f  I=4»6)  »VME1» PLANET (NTP) » 

i (RP1(I)  »I=1»3)  tRMPlr  TRPKl)  rl=4»6)  »VMP1 

LINES=LINES+17 

IF  (LINES.lt, MAX-13)  GO  TO  110 
IPGN=IPGN+1 

WR I TE ( 6 , 10  00)  I PROB » 1 PGN 
WRITE (6,2009) 

LINES=16 
GO  TO  111 

110  WRITE(6,2011) 

2011  FORMAT (/) 

111  WRITE (6,2012) 

2012  FORMAT (12X*M0ST  RECENT  NOMINAL  TRAJECTORY*) 

WRIT£(6,2008)  (XFKl) , 1=1,3)  ,RMS2,  (XFKI)  ,1=4,6)  ,VMS2,  (RE2(I)  ,1=1, 
S3) ,RME2, (RE2(I) , 1=4,6) ,VME2, PLANET (NTP) , (RP2(D ,1=1,3) ,RMP2, 
S(RP2(I) ,1=4,6) ,VMP2 
LINES=LINES+13 

IF(LINES.LT. MAX-13)  GO  TO  120 
IPGN=IPGN+1 

WRITE(6,1000)  IPROB,IPGN 
WRITE (6, 2009) 

LINES=16 
GO  TO  121 

120  WRITE(6,2011) 

121  WRITE(6,2013) 

2013  FORMAT (12X*ACTUAL  TRAJECTORY*) 

WRIT£(6,2008)  (Z(D ,1=1,3) ,RMS3, (Z(I) ,1=4,6) , VMS3, (RE3( I ) ,1=1,3) , 
SRME3, (RE3(I) ,1=4,6) ,VME3, PLANET (NTP) , 

$ ( RP3 ( I ) , 1=1 , 3 ) , RMP3 , ( RP3 ( I ) , 1=4,6) , VMP3 

LINES=LINES+13 

RMP1=F(RCA1(1) ,RCAl(2) ,RCAl(3) ) 

VMP1=F(RCA1(4) ,RCA1(5),RCA1(6) ) 

RMP2=F(RCA2(1) ,RCA2(2) ,RCA2(3) ) 

VMP2=F(RCA2(4) ,RCA2(5) ,RCA2(6) ) 

RMP3=F(RCA3(1) ,RCA3(2) ,RCA3(3) ) 

VMP3=F(RCA3(4) ,RCA3(5) ,RCA3(6) ) 

IF(LINES,LT. MAX-17)  GO  TO  130 
IPGN=IP6N+1 

WR ITE ( 6 , 10  0 0 ) I PROB , I PGN 
LINES=10 

130  WR1TE(6,2014)  TCAl, (RCAl(I) , 1=1,3) ,RMP1, (RCA2(I) ,1=4,6) ,VMP1,TCA2, 

$ ( RC A2 ( 1 ) , 1=1 , 3 ) , RMP2 , ( RC A2 ( I ) , 1=4 , 6 ) , VMP2 , TC A3 , ( RCA3 ( I ) , 1=1 , 3 ) , 
SRMP3, (RCA3(I), 1=4,6 ),VMP3 

2014  FORMAT(///10X*AT  CLOSEST  APPROACH  TO  THE  TARGET  PLANET*//40X*X*19X 
$*Y*19X*Z*15X*RESULTANT*/12X*0RI6INAL  NOMINAL  TRAJECTORY  AT  TRAJECT 
SORY  TIME*F8.3*  DAYS*  /14X*POSITION*5X4E20.10/14X*VELOCITY*5X, 
S4E20.10//12X*M0ST  RECENT  NOMINAL  TRAJECTORY  AT  TRAJECTORY  TIME* 
SF8,3*  DAYS*/14X*POSITION*5X4E20,10/14X*VELOCITY*5X4E20.10//12X 
$*ACTUaL  trajectory  at  TRAJECTORY  TIME*F8,3*  DAYS*/14X*P0SITI0N* 
S5X4E20 . 10/14X*VEL0C ITY*5X4E20 , 10 ) 

LINES=LINES+17 

IF(LINES,LT, MAX-14)  GO  TO  150 
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IP6N=IP6N+1 

WRITE(6»1000)  IPROB»IPGN 
LINES=10 

150  WRITE(6»2015) 

2015  FORMAT (///10X*INFORMATION  AT  SPHERE  OF  INFLUENCE*//40X*X*19X*Y*19X 
$*Z*15X*RESULTANT*) 

WRITE(6»2010) 

IF(ISOII.EQ.O)  GO  TO  160 
RMP1=F<RS0I1(1) »RS0I1(2) »RS0I1(3) ) 

VMP1=F(RS0I1(4) »RS0I1(5) fRS0Il(6) ) 

WRIT£(6*2016)  (RSOIl (I ) » 1=1 » 3) »RMP1 * (RSOIl ( I ) f I=4»6) » VMPl »BSI1 » 
iBDTSll»BDRSIl»TSOIl 

2016  FORMAT  (14X*POSITION*5X4E20.10/14X*VELOCITY*5X4E20.10//14X*B  =♦ 
SE20.10*»  B DOT  T =*E20,10*»  B DOT  R =*E20.10//14X*TRAJECTORY  TIME* 
SF8.3*  DAYS*/) 

LINES=LINES+14 
GO  TO  170 

160  WRITE(6»2017)  PLANET(NTP) 

2017  FORMAT (14X*VEHICLE  DID  NOT  REACH  SPHERE  OF  INFLUENCE  OF  *A10/) 
LINES=LINES+9 

170  IF(LINES.LT, MAX-8  ) GO  TO  171 
IPGN=IPGN+1 

WRITE(6»1000)  IPROB»IPGN 
WRIT£(6»2015) 

LINES=16 

171  WRITE(6»2012) 

IF(ISOI2,EQ.O)  60  TO  180 
RMP2=F(RS0I2(1) »RS012(I) >RS0I2(3) ) 

VMP2=F(RS0I2(4) »RS0I2(5) »RS0I2(6) ) 

WRITE(6f2016)  (RS0I2( I) f I=l»3) »RMP2» (RS0I2 ( I ) » I=4»6) »VMP2»BSI2» 
SBDTSI2»BDRSI2»TS012 
LINES=LINES+8 
GO  TO  190 

180  WRITE(6»2017)  PLANET(NTP) 

LINES=LlNES+3 

190  IF(LINES.LT. MAX-8)  GO  TO  200 
IPGN=IP6N+1 

WRITE(6.1000)  IPROB»IPGN 
WRIT£(6»2015) 

LINES=16 

200  WRITE(6»2013) 

IF(ISOI3.EQ.O)  GO  TO  210 
RMP3=F(RS0I3(1) »RS0I3(2) »RS0I3(3)) 

VMP3=F(RS0I3(4) »RS0I3(5) rRS0I3(6) ) 

WRITE(6»2016)  (RS0I3( I) » I=lr3) »RMP3» (RS0I3 ( I ) » I=4»6) » VMP3» BSI3» 
$BDTSI3»BDRSI3rTS0I3 
LINES=LINES+8 
LINES=LINES+3 
GO  TO  220 

210  WRITE(6»2017)  PLANET(NTP) 

LINES=LINES+2 

220  IF(LINES.LT. MAX-13)  GO  TO  230 
IPGN=1P6N+1 

WRITE(6tl000)  IPROBrIPGN 
LINES=10 

230  WRITE(6»3000) 

3000  FORMAT (//IX » 130 (1H*)///8X*MISCELLANE0US  INFORMATION  USED  IN  SIMULA 
STION  MODE*///) 

LINES=LINES+9 

60  TO  (240»250»260) » ISTMC 
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240  WRIT£(6»3001)  DTMAX 

3001  FORMAT (10X*THE  STATE  TRANSITION  MATRIX  WAS  COMPUTED  ANALYTiCALLY  F 
$ROM  THE  PATCHED-CONIC  TECHNIQUE  EXCEPT  FOR  THE  FOLLOWING  CONDITION 
$*//15X*IF  THE  TIME  INTERVAL  OVER  WHICH  THE  STaTE-TRANSITION  MATRIX 
a>  WAS  COMPUTED  WAS  GREATER  THAN*F8.3*  DAYS*) 

IF  (ISTMI)  242 » 241 » 242 

241  WRITE (6»3002) 

3002  FORMAT  (15X#THE  GOVERNING  BODY  WAS  ASSUMED  TO  BE  THE  SUN  IN  THE  AN 
SALYTICAL  CALCULATION*) 

GO  TO  270 

242  WR1TE(6»3003) 

3003  FORMAT (15X*THE  STATE  TRANSITION  MATRIX  CODE  WaS  IGNORED  AND  THE  NU 
4MERICAL  DIFFERENCING  CODE  WAS  U^EO*) 

GO  TO  270 

250  WRITE (6»3004)  DTMAX 

3004  FORMAT (10X*TH£  STATE  TRANSITION  MATRIX  WAS  COMPUTED  ANALYTICALLY  F 
*ROM  THE  VIRTUAL-MASS  TECHNIQUE  EXCEPT  FOR  THE  FOLLOWING  CONDITION* 
$//15X*IF  THE  TIME  INTERVAL  OVER  WHICH  THE  STATE  TRANSITION  MATRIX 
*WAS  COMPUTED  WAS  GREATER  THAN*F8,3*  DAYS*) 

IF  (ISTMI)  252 » 251 » 252 

251  WRITE (6f3002) 

60  TO  270 

252  WRITE (6. 3003) 

GO  TO  270 

260  WRITE (6 » 3005) 

3005  FORMAT (10X*THE  STATE  TRANSITION  MATRIX  WAS  COMPUTED  FROM  THE  NUMER 
SICAL  DIFFERENCING  TECHNIQUE*) 

WRITE(6f 3006)  FACPVFACV 

3006  FORMAT (15X*P0SITI0N  FACTOR  =*E20.10/15X*VELOClTY  FACTOR  =*E20.10) 
IF(NDACC)  261»270f261 

261  WRITE (6 » 3007)  ACCND 

3007  FORMAT (15X*ACCURACY  USED  =*E22.10) 

270  LINES=LINES+4 

GO  TO  (290 » 290 f 290 » 290 » 280 » 290  »290 » 290 » 280 » 280 » 290 ) » I AUG 

280  1F(LINES.LT. max-6)  GO  TO  281 
IPGN-IP6N+1 

WRITE(6»1000)  IPROBtlPGN 
LINES=10 

281  WRITE(6»3008)  PLANET(NTP) »DELAXS»DELECC»DELICL 

3008  FORMAT (/10X*THE  FOLLOWING  FACTORS  WERE  USED  IN  THE  NUMERICAL  DIFFE 
SRENCING  TECHNIQUE  TO  GENERATE  THE  AUGMENTED*/10X*PORTION  OF  THE  ST 
SATE  transition  MATRIX  PERTAINING  TO  THE  EPHEMERIS  BIASES  OF  *A10/ 
$15X*SEMI-MAU0R  AXIS*E20.10/15X*ECCENTRICITY  *E20. 10/15X*INCLINAT 
SION  *E20.10) 

LINES=LINES+6 

290  GO  TO  (300»300»291»300f300r300f291»300r291»300»291)f  lAUG 

291  IF { L1NES.lt. MAX-5)  GO  TO  292 
IPGN=IPGN+1 

WRI TE { 6 . 1 0 00 ) I PROB » I PGN 
LINES=10 

292  WRITE(6.3009)  DELMUS. PLANET ( NTP) »DELMUP 

3009  FORMAT (/10X*THE  FOLLOWING  FACTORS  WERE  USED  IN  THE  NUMERICAL  DIFFE 
SRENCING  TECHNIQUE  TO  GENERATE  THE  AUGMENTED  PORTION  OF  THG  STATE*/ 
$10X*TRANSITI0N  PERTAINING  TO  THE  BIASES  OF  THE  GRAVITATIONAL  CONST 
SATIONAL  constants  of  THE  SUN  AND  *A10/15X*SUN*12XE20.1T/15XA10f5X. 
SE20.10) 

LlNES=LINES+5 

300  IF(LINES.LT. MAX-12)  GO  TO  301 
IPGN=IPGN+1 

WRITE(6. 1000)  IPROB.IPGN 
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LINES=10 

301  WRITE(6»3010)  NMN 

3010  FORMAT (///10X*NUMBER  OF  MEASUREMENTS  TAKEN  . , . .*15) 


rtRITE(6»30ll)  NEV»NEV1»NEV2.NEV3»NEV4 
3011  FORMAT (///10X*TOTAL  NUMBER  OF  EVENTS  . . . . . . .♦15/ 

S 15X*EI6ENVECT0R  EVENTS *15/ 

$ 15X*PREDICTI0N  events  ......  .*15/ 


$ l5X*eUIDANCE  EVENTS  .......  .*15/ 

S 15X*QUASI-LINEAR  filtering  events  .*15) 

LINES=LINES+12 
IF(NEV3.EQ.0)  go  to  330 
IFILINES.LT. MAX-7  ) GO  TO  310 
IPGN=IP6N+1 

WRITE(6»1000)  IPR0B»IPGN 
LINES=10 

310  WRITE(6»3012)  SIGRES#SIGPR0»SIGALP»SIGBET 

3012  FORMAT (///10X*VARIANCES  OF  ERRORS  USED  IN  GUIDANCE  EVENTS*//20X 
»*resolution*7x*proportionality*5x*pointing  angle  1*4X*P0INTING  ANG 
SLE  2*/17XE15.8»3(5X^E15.8) ) 

LINES=LINES+7 

IF  (LINES. LT.MAX-NEV3-6)  GO  TO  320 
IPGN=IPGN+1 

WRITE(6.1000)  IPROB»IPGN 
LINES=10 

320  WRITE (6» 3013) ( I » ARES ( I ) » APRO ( I ) » AALP ( I ) » ABET ( I ) » 1=1 »NEV3 ) 

3013  FORMAT (///10X*ACTUAL  ERRORS  USED  IN  GUIDANCE  EVENT*//20X*RESOLUTIO 
$N*7X*PR0P0RTI0NALITY*5X*P0INTING  ANGLE  1*4X*P0INTING  ANGLE  2*/ 
4(15X»I2»E15.8»5X»E15.8»5X»E15.8»5X»E15,8) ) 

LINES=LINES+NEV3+6 

330  IF(LINES.LT. MAX-9  ) 60  TO  331 
IPGN=IPGN+1 

WRITE (6» 1000 )IPROB»IPGN 
LINES=10 

331  WR1TE(6.3014)  ( I » SAL ( I ) » SLAT ( I ) »SLON ( I ) » 1=1 » 3) 

3014  FORMAT (///10X*STATI0N  LOCATION  C0NSTANTS*/32X*ALTITUDE*  12X*LATITU 
4DE*12X*L0NGITUDE*/3 ( 15X*STATI0N*I2 » 3X » 3E20 . 10/ ) ) 

LINES=LINES+9 

IF  (LINES.lt. MAX-6)  60  TO  340 
IP6N=IPGN+1 

WRITE(6»1000)  IPR0B»IP6N 
LINES=10 

340  IF(IDNF.GT.O)  60  TO  341 
WRITE(6»301b) 

3015  F0RMAT(///10X*DYNAMIC  NOISE  IS  ZERO*) 

LINES=LINES+4 

60  TO  350 

341  WRITE(6»3016)  DNCN 

3016  FORMAT(///10X*THE  DYNAMIC  NOISE  MATRIX  IS  A DIAGONAL  MATRIX  WHERE 
$THE  DIAGONAL  IS  COMPUTED  FROM  THE  FOLLOWING  C0NSTANTS*/26X*X*19X» 
$*Y*19X*Z*/15X3E20.10) 

LINES=LINES+6 

350  IF(LINES.LT. MAX-9  ) GO  TO  351 
IPGN=IPGN+1 

,WRITE(6»1000)  IPROB»IPGN 
LINES=10 

351  WRITE(6»3017) 

3017  FORMAT (///10X*ACTUAL  UNMODELLED  ACCELERATION  (ACTUAL  DYNAMIC  NOISE 
$ ) *//74X*X*24X*Y*24X*2* ) 

IF(FNTM.LE.TTIMl)  GO  TO  353 
IF(FNTM.LE.TTIM2)  go  TO  352 


WRITE(6»3018)  TRTMB»TTIMl» (UNMAC(Irl) »1=1»3) 

WR I TE < 6 r 3018)  TTIMl»TTIM2»{ UNM AC ( I ^ 2 ) » 1= 1 » 3 ) 

WRITE(6r3Dl8)  TTIM2»FNTM  » (UNMAC(I»3> »I=1»3) 

3018  FORMAT (15X*FRCM*F8.3»  DAYS  THROUGH  ♦F8,3*  DAYS  • . .♦3E25,13) 
LINES=LINES+9 

GO  TO  360 

352  WRITE(6»3018)  TRTMB»TTIM1» (UNMAC(I»1) »I=1»3) 

WRITE(6»30l8)  TTIMlrFNTM  r (UNMAC(I*2) »I=1»3) 

LINES=LINES+8 

GO  TO  360 

353  WRITE(6»3018)  TRTMBrFNTM  # (UNMAC (I »1) f I=l»3) 

LINES=LINES+7 

360  IF(L1NES.LT, MAX-16)  60  TO  361 
IPGN=IP6N+1 

WRITE<6. 1000)  IPR0B» IPGN 
LINES=10 

361  IF(IMNF)  363»362»363 

362  WR I TE ( 6 » 30 1 9 ) < ( MNNAME ( I » J ) » J= 1 » 3 ) » MNCN ( I ) rl = 1 » 12 ) 

3019  FORMAT (///10X*MEASUREMENT  NOISE  WAS  C0NSTANT*/12( 15X3A10»E20. 10/) ) 
LINES=LINES+16 

GO  TO  370 

363  WRITE (6 » 3020) 

3020  FORMAT (///10X*MEASUREMENT  NOISE  WAS  COMPUTED  INTERNALLY*) 
LINES=LINES+4 

370  IF  (LINES.lt. MAX-17)  60  TO  371 
1PGN=IPGN+1 

WRITE(6rl000)  IPROBflPGN 
LINES=10 

371  IF(IAMNF.GT.O)  GO  TO  372 
WRITE(6»3021) 

3021  FORMAT (///10X*THE  UNCERTAINTIES  IN  THE  ACTUAL  MEASUREMENT  NOISE  WE 
$RE  ASSUMED  TO  BE  THE  SAME  AS*/10X*THE  UNCERTAINTIES  IN  THE  MEASURE 
$MENT  NOISE  OF  THE  MOST  RECENT  NOMINAL*) 

LINES=LINES+5 
GO  TO  380 

372  WRITE(6f 3022)  ( (MNNAME(1»J) »J=1»3) »AVARM(D  »I=1»12) 

3022  FORMAT (///10X*THE  UNCERTAINTIES  IN  THE  ACTUAL  MEASUREMENTS  ARE  COM 
SPUTED  FROM  THE  FOLLOWING  VARIANCES*  /12(15X3A10»E20.10/) ) 

LiNES=UNES+17 

380  1=1 
J=2 
K=3 

IF (LINES. LT. MAX-8  ) GO  TO  381 
IPGN=IPGN+1 

WRITE ( 6 » 1 00 0 ) IPROB » I PGN 
LINES=10 

381  WR I TE ( 6 r3023 ) I » U1 » V 1 » W 1 » U » U2  * V2 » W2 » K » U3  r V3 ♦ W3 

3023  F0RMAT(///10X*DIRECTI0N  COSINES  FOR  THREE  STAR  PLANET  ANGLES*/ 
$3(15X»I1»3E20.10/)) 

LINES=LINES+8 

IF { LINES. LT.MAX-NDIM-12)  60  TO  390 
IPGN=IPGN+1 

WRITE(6»1000)  IPR0B» IPGN 
LINES=10 

390  WRITE (6. 3024) 

3024  FORMAT (///8X*STATISTICAL  DATA  FOR  SIMULATION  MODE*/) 

LINES=LINES+5 

DO  391  I=1»NDIM 

391  ZI(I)=XB(1)+ADEVXB(I) 

WRITE  (6 » 3025 ) ( CMPNM ( I AUG » I ) » XB ( I ) » 2 1 ( I ) » 1=1 . NDI M ) 
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302b  FORMAT(///10X*INITIAL  STATE  VECT0R*//33X*N0MINAL*14X*ACTUAL*/ 
S17U5X»A10»£20,10»E20.10/)  ) 

LINES=LINES+NDIM+7 

IF (LINES. LT.MAX-NDIM-7)  GO  TO  400 

IPGN=1P6N+1 

WRITE (6f 1000)  IPROB»IPGN 
LINES=10 

400  WRITE (6r302b)  (CMPNM ( I AUG » I ) . XF ( I ) » XFl ( I ) » Z (I ) rI=l»NDIM) 

3026  F0RMAT(///10X*FINAL  STATE  VECT0R*//29X*0R1GINAL  N0MINAL*2X*M0ST  RE 
SCENT  NOMl NAL*8X*ACTUAL*/17 ( 15X f AlO » 3E20 . 10/ ) ) 

LrNES=LINES+NDIM+7 

IFILINES. LT.MAX-NDIM-7)  GO  TO  410 

IPGN=IPGN+1 

WRITE(6rlOOO)  IPROB»IPGN 
LINES=10 

410  WRlTE(6r3031)  (EDEVX ( I ) » AOEVX ( I ) » 1=1 » NDlM) 

3031  FORMAT(///lOX*DEVIATION  OF  THE  STATE  VECTOR  FROM  THE  MOST  RECENT  N 
SOMINAL  TRAJECTORY  AT  FINAL  TIME*//22X*ESTIMATED*13X*ACTUAL*/17(15X 
S2E20.10/) ) 

LINES=LINES+NDIM+7 

IF (LINES.lt, MAX-NDIM-7)  GO  TO  411 

1PGN=IPGN+1 

WRITE (6 » 1000)  IPROBfIPGN 
LINES=10 

411  DO  412  I=lfNDlM 

AODI ( I ) =ADEVX ( I ) -EDEVX ( I ) 

ADON ( I ) =XF 1 ( I ) -XF ( I ) + ADE VX ( I ) 

412  EDON ( I ) =XF1 ( I ) -XF ( I ) +EOEVX ( I ) 

WRITE(6,3032)  (EDON(l) r ADON ( I ) rl  = l »NDIM) 

3032  FORMAT(///10X*DEVIAT10N  OF  STATE  VECTOR  FROM  ORIGINAL  NOMINAL  AT 
SFINAL  T1ME*//22X*ESTIMATED*13X*ACTUAL*/17 ( 15X2E20. 10/ ) ) 

LINES-LINES+NDIM+7 

IF  (LINES. LT,MAX-NDIM-6)  GO  TO  413 

IP6N=IPGN+1 

WRITE (6» 1000)  IPROBfIPGN 
LINES=10 

413  WRITE(6,3033)  (AODi (I) »I=1»NDIM) 

3033  FORMAT (///10X*ACTUAL  ORBIT  DETERMINATION  INACCURACY  AT  FINAL  TIME 
S*//17(15XE20,10/) ) 

LINES=LINES+NDIM+6 
IFILINES.LT, max-9)  GO  TO  420 
1PGN=IPGN+1 

WRITE (6. 1000)  IPROBfIPGN 
LINES=10 

420  WRITE(6»3027) 

3027  FORMAT(///10X*INITIAL  COVARIANCE  MATRIX*/) 

LINES=LINES+5 

DO  423  I=1»NDIM 

IF (LINES.LT, MAX-4)  GO  TO  421 

IPGN=IPGN+1 

WRITE (6, 1000)  IPR0B»1PGN 
LINES=10 

421  IF(NDIM.EQ,6)  GO  TO  422 
WRITE (6»3028)  I 

3028  FORMAT (12X*R0W* 13) 

LINES=LINES+1 

422  WRITE(6,3029)  (PB (I »U) » J=1»NDIM) 

3029  FORMAT (15X6E18, 8) 

423  LI NES=L I NES+ ( ND I M-1 ) /6+ 1 
IF(LINES,LT. MAX-9)  GO  TO  430 
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IPGN=IPGN+1 

WRITE(6flOOO)  IPROBrIPGN 
LINES=10 

430  WRITE(6»3030) 

3030  FORMAT(///10X*FINAL  COVARIANCE  MATRIX*/) 
LINES=LINES+5 
DO  433  I=1»NDIM 
IF(LINES.LT. MAX-4)  GO  TO  431 
IPGN=IPGN+1 

WRITE(6»1000)  IPROBfIPGN 
LINES=10 

431  IF(NDIM.EQ.6)  GO  TO  432 
WRITE(6»3028)  I 
LINES=LINES+1 

432  wRITE(6»3029)  (P( I» J) » J=1*NDIM) 

433  LINES=LINES+(NDIM-l)/6+l 
RETURN 

END 


SUBROUTINE  PSIM(RIrRFrlSC) 

C THIS  STATE  TRANSITION  MATRIX  MODULE  CHECKS  THE  COoE  TO  DETERMINE 
C HOW  THE  STM  ARE  TO  BE  COMPUTED 
C 1 = PATCHED  CONIC 
C 2 = VIRTUAL  MASS 
C 3 = NUMERICAL  OIFFERENCINS 
C 

C0MM0N/BLK/T»PMASS(U)  »CN(80)  »ST(50)  f EMNdS)  »SMJR(18) 

COMMON  /BLK/RADIUSUl)  »RMASS(11)  »NOUl)  »ELMNT(80)  »SPHERE(1D  »XP(6) 
COMMON/CONST3/DELXA » DELY A » DELZA » DELXE » DELYE » DELZE  * DELX I » OELY I » 
iOELZ I » DELAXS » DELECC » DELICL » DELMUS rDELMUP 
COMMON/MISC/ACC»IDNFrICOOR»ITRf IMNF»FACP»FACV,ISP2»BIA(12) rIPGN 
C0MM0N/STM/P(17»17) »PSI(17»17) »Q(17»17) .H(4»17) »R(4»4) »AK(17»4) 
SrPB(17  d7)  rPSlP(17»17  ) »HPHR(4  »4) 

COMMON/STVEC/XI ( 17 ) » XF ( 17 ) » NO IM » I AUG » XB ( 17 ) 

COMMON/TIM/DATEJ » TRTMl » DELTM » FNTM  rUNI VT » TRTMB 
COMMON/TRA JCD/NTMC » ISTMC » ISTMl » DTMAX » NDACC » ACCND 
COMMON/ VM/NBOD » NB ( 1 1 ) » NTP » ALNGTH , TM » DLETP  f iNPRf IPROB » RC ( 6 ) t DCf 
*RSI(3)  fVSK3)  »DSI»1SPH»RVS(6)  /VMU»B>BDTf  BDR»OELTHiTIMINT»  INCMTf 
$IEPHEM»ICL»IPRINT»RE(6) »RTP(6) »ICL2 
DIMENSION  RI(6)  »RF(6)  »RS(3)  »VS<3)  »DUM<6»6)  » VEC<6') 

DO  1 I=lfNDIM 
DO  1 U=1»NDIM 

1 PSI(I»U)=0. 

IFCISC»E<3.3)  60  TO  30 

IF ( DELTM. LE.DTMAX)  GO  TO  5 
IF(ISTMl.NE.O)  GO  TO  30 
DO  2 1=1.3 
RS(I)=RI{I) 

2 VS{I)=Rl(I+3) 

VMUsPMASS ( 1 ) ♦ALNGTH* ALNGTH* ALNGTH/ < TM*TM ) 

GO  TO  23 

5 GO  TO  (10 .20. 30).  ISC 

10  CALL  PCTM(RI) 

GO  TO  40 

20  DO  21  1=1.3 
RS(I)=RVS(I) 

21  VS(I)=RVS(I+3) 

23  DELT=DELTM*TM 

CALL  C0NC2 ( RS . VS . DELT . VMU . DUM ) 

DO  22  1=1.6 
DO  22  J=1.6 

22  PSKI.U)=DUM(I.J) 

60  TO  40 

30  CALL  NDTM(RI.RF) 

40  IF(IAUG.EQ.l)  GOTO  100 
THSP=6 . * ( SPHERE (NTP ) *ALNGTH ) 

D=DATEJ+TRTM1 

NO(l)=NTP 
CALL  ORB ( NTP. D) 

CALL  EPHEM(l.D.l) 

DO  41  1=1.3 

41  VEC(I)=RI(I)-XP(I)*ALNGTH 

POSS=SQRT { VEC { 1 ) *VEC ( 1 ) +VEC ( 2 ) *VEC (2 ) +VEC (3 ) *VEC ( 3 > ) 

60  TO  (100.50.60.50.70.50.60.50.80.70.60).  lAUG 

50  DO  51  I=7.NDIM 

51  PSI(I.I)=1. 

GO  TO  100 

60  CALL  MUND(RI.RF.POSS) 

GO  TO  50 


70  IF(POSS.LE.THSP)  CALL  PLND(RIfRF) 

GO  TO  50 

60  CALL  MUND(RI»RF*POSS) 

GO  TO  70 
GO  TO  50 
100  RETURN 
END 


418 


r>  o n n n o o o n o o 


SUBROUTINE  QUASI ( R I » TEVN » RI 1 ) 

THIS  ROUTINE  CONTAINS  THE  LOGIC  FOR  THE  QUASI-LINEAR  FILTERING 
EVENT  IN  THE  SIMULATION  MODE  OF  THE  STEAP  PROGRAM 

ARGUMENTS  ARE  DEFINED  BELOW 

RI  — POSITION  AND  VELOCITY  ON  ORIGINAL  NOMINAL  TRAJECTORY 
AT  TIME  TEVN 

TEVN  ””  TRAJECTORY  TIME  OF  QUASI-LINEAR  FILTERING  EVENT 
RIl  — POSITION  AND  VELOCITY  ON  MOST  RECENT  NOMINAL 
TRAJECTORY 


C0MM0N/C0NST/0MEGA»EPS»NST»SAL(3) »SLAT(3) »SL0N(3) »DNCN<3) »MNCN(12) 
COMMON  /CONST 2/Ul » U2 » U3 » VI » V2 » V3»Wl»W2»W3» FOP »FOV 
COMMON  /EVENT/NEV » TEV (50 ) » lEVNT ( 50 ) » IHYPl » IEIG»TPT2 (20 ) » 

$ICDT3(20) »NPEfNGE»IPOL»IIPOL»ICDQ3(20) »SI6RES»SI6PR0»SI6ALP»SIGBET 
$ f NEVl » NEV2 » NEV3 » NEVA , NQE 

COMMON/MISC/ACC » lONF  # ICOOR  f ITR » IMNF  » FACP » F ACV , ISP2 » B I A ( 12 ) » IPGN 
COMMON  /NAME/MDNM(4»2) »EVNM(4) »MNNAME(12»3) »CMPNM( 11 rl7) 

COMMON  /S1M1/XI1(17) »XF1(17) »ADEVX(17) rEDEVX(17) rW(17) »Z(17) » 
$AN0IS(17)»RES(4) r£Y (4) » AY (4 ) » AR ( 4»4 ) t ZI ( 17 ) » AOEVXB ( 17) 

COMMON  /SIM2/NB1 ( 11 ) » ACC If  NBODl 

COMMON  /STM/P (17f 17) »PSI(17»17) fQ(17»17) »H(4f l7)fR(4f 4) f AK(17f4) 
$fPB(17fl7) »PSIP(17f 17) fHPHR(4»4) 

COMMON  /STVEC/XI ( 17) » XF ( 17) f NDIM» I AUGf XB (17) 

COMMON  /T IM/D ATE Jf  TRTMl » DELTM f FNTMf  UNI VT # TRTMB 
COMMON/TRA JCD/NTMC  f ISTMC » ISTMl » DTMAXf  NDACC » ACCND 
COMMON/TRj/ISOIlf ISOI2» IS0I3f ICAlf ICA2» ICA3f RCAl (6) »RCA2(6) » 
SRCA3(6)fRS011(3) »RS0I2(3) f RS0I3(3) » VSOIl (3) f VS0I2 (3) f VS013(3) f 
$TCAlfTCA2»TCA3»TS0llfTS0I2fTS0l3»BSIlfBSI2fBSI3f BDTSll,BDTSI2f 
$BOTS 13  f BDRS 1 1 f BDRS 1 2 f BDRSI3 

COMMON/ VM/NBOD » NB ( 11 ) f NTPf  ALNGTH » TM » DELTP  » INPR  f IPROB  # RC ( 6 ) f DC » 

$RSI ( 3 ) f VSI ( 3 ) f DSI f ISPH  f RVS ( 6 ) » VMU » B»  BDT  f BDR  * DELTHf  TIMINTf INCMTf 
a- 1 EPHEM » ICL » IPRINT  f RE  ( 6 ) f RTP  ( 6 ) » ICL2 
DIMENSION  Rl(6) »RIl(6) fRF(6) » RFl (6) f RI2(6) »RF2(6) f DUM(17) 

DIMENSION  RH0(17»17) 

MAX=60 

deltm=tevn-trtmi 

CALL  NTM(RIfRF»NTMC»l) 

DO  10  1=1*6 

10  XF(I)=RF(I) 

IF  (NQE.NE.O)  60  TO  20 
DO  11  I=1*NDIM 

11  XF1(I)=XF(I) 

DO  12  1=1*6 

12  RF1(I)=RF(I) 

60  TO  30 

20  CALL  NTM(Rll*RFlfNTMC*2) 

DO  21  1=1*6 

21  XF1(I)=RF1(I) 

30  CALL  PSIM (RIl *RF1* ISTMC) 

NQE=NQE+1 
CALL  DYNO(O) 

CALL  NAVMdfl) 

DO  40  I=lfNDIM 
00  40  J=I*NDIM 

RHO ( I * J ) =P ( I f J ) /SQRT ( P ( 1*1) *P ( J * J ) ) 

40  RHO(J*I)-RHO(I*J) 

DO  50  1=1 f 6 

50  RI2(I)=XI1(I)+ADEVX(I) 
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CALL  NTM{RI2rRF2*NTMC»3) 

DO.  51  I = lf 6 
51  ZII)=RF2U) 

IPGN=IPGN+1 

WRITE(6f3000)  (MDNM(ITRrK) »K=1»2) » TEVN» IPROBriPGN 
WRITE (6 » 3001) 

LINES=12 

WRITE(6»3002)  (CMPNM ( lAUG » I ) . XF ( I ) » XFl ( I ) f Z ( I ) » 1=1 . NDIM) 

LINES=LINES+NDIM 

WRlTE(6f3004)  TEVN*TRTM1 

LINES=LINES+b 

DO  33  I=1,NDIM 

IF  ( LINES.lt. MAX-4)  GO  TO  31 
IPGN=1PGN+1 

WRITE (6 , 3000 ) (MONM ( ITRvK) » K=1 r 2) » TEVN» IPROB » IPGN 
LINES=9 

31  IF(N0IM.EQ.6)  GO  TO  32 
WRITE (6 » 3013)  I 
LINES=LINES+1 

32  WRITE(6»3014)  (PSI ( I rj) » J=1 .NDIM) 

33  LINES=LIN£S+(NDIM-l)/6+l 

IF  (LINES, LT.MAX-a)  GO  TO  34 
IPGN=IPGN+1 

WRITE(6»3000)  (MDNM(lTRfK) »K=1»2) ,TEVN» IPROBr IPGN 
LINES=9 

34  WRITE  (6f3003) 

WRITE  (6»3014)  ( Q ( I » I ) » 1=1 » NDIM) 

LINES=LINES+8 

IF  (LINES, LT. MAX-9)  GO  TO  35 
IPGN=IPGN+1 

WRITE ( 6 » 3000 ) (MDNM ( ITR » K ) » K=1 » 2) , TEVN  r IPROB » IPGN 
LINES=9 

35  WRITE(6,3005)  TEVN»TRTM1 

LINES=LINES+5 

DO  38  I=1»NDIM 

IF  (LINES.lt. MAX-4)  60  TO  36 
IPGN=IP6N+1 

WRITE(6»3000)  (MDNM(ITR»K) »K=1^2) »TEVM» IPROB » IPGN 
LINES=9 

36  IF(NDIM,EQ.6)  GO  TO  37 

WRITE(6»3013)  I 
LINES=LINES+1 

37  WRITE(6»3014)  (P( I» J) f J=1»NDIM) 

38  LINES=LINES+(NDIM-l)/6+l 
IF(LINES.LT, MAX-9)  GO  TO  41 
IPGN=IPGN+1 

WRITE(6f3000)  (MDNM(lTRrK) »K=1»2) ,TEVN» IPROB» IPGN 
LINES=9 

41  WRITE(6»3006)  TEVN 

DO  44  I=1fNDIM 

IF  (LINES, LT.MAX-4)60  TO  42 
IP6N=IPGN+1 

WRITE(6»3000)  (MDNM(ITR»K) »K=1»2) »TEVN» IPROB, IPGN 
LINES=9 

42  IF(N0IM,EQ,6)  GO  TO  43 

WRITE(6,3013)  I 
LINES=LINES+1 

43  WRITE(6,3014)  (RHO( I , J) , J=1 »NDIM) 

44  LINES=LINES+(NDIM-l)/6+l 
CALL  DYNO(I) 
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IF  (LINES, LT.MAX-NDlM-5)  GO  TO  53 
IPGN=IPGN+1 

WRITE(6»3000)  (MDNM(ITR»K) »K=1»2) , TEVNf IPROB » IPGN 
LINES=9 

53  WRITE (6, 3008)  ( W ( D » 1=1 f NDIM) 

LINES=LIN£S+NDlM+5 
DO  60  1=1 » 6 

60  ADEVX ( I) =Z { I ) +W ( I ) “XFl ( I ) 

DO  70  I=1»NDIM 
DUM(I)=0. 

DO  70  J=1»NDIM 

70  OUM(I)=DUM(I)+PSI(IfJ)*EDEVX(J) 

DO  71  I=1»NDIM 

71  EDEVX(I)=DUM(I) 

IF  {LINES,LT.KAX-NDIM“7)  GO  TO  72 
IPGN=IPGN+1 

WRIT£(6r3000)  (MDNM(ITR»K) »K=1»2) »T£VN» IPROB» IPGN 
LINES=9 

72  WRIT£(6»3010)  (EDEVX ( I ) f ADEVX ( I ) » 1=1 f NDIM) 

LIN£S=LINES+NDIM+7 

DO  83  1=1 » 6 

83  XF1(I)=XF1(I)+EDEVX(I) 

DO  80  I=lrNDIM 
XI1(I)=XF1(I) 

80  XI(I)=XF(I) 

DO  90  I=lf6 

ADEVX ( I ) =ADEVX ( I ) -EOEVX ( I ) 

90  EDEVX(I>=0. 

IF  (LINES. LT.MAX-NDIM-5)  GO  TO  81 
IPGN=IPGN+1 

WRITE(6r300G)  (MDNM(lTRrK) »K=1»2) f TEVNf IPROB» IPGN 
LINES=9 

81  WRITE  (6»3011)  (XIKI)  fI=l»NDIM) 

LINES=LINES+NDIM+5 

IF ( LINES. LT.MAX-5-NOIM)  GO  TO  82 
IP6N=IPGN+1 

WRIT£(6»3000)  (MDNM(ITR»K) »K=1»2) »TEVN» IPROB» IPGN 
LINES=9 

82  WRITE  (6»3012)  ( ADEVX ( I ) » 1=1 »NDIM) 

LINES=LINES+NDIM+5 

trtmi=tevn 

RETURN 

3000  FORMAT (1H1//8X2A10*—QUASILINEAR  FILTERING  EVENT  AT  TRAJECTORY  TIM 
$E  ♦fie. 3*  DAYS*/90X^PROBL£M,  .♦I10»5X+PAGE.  .♦I8///1X»130(1H^)/) 

3001  F0RMAT(///8X^STATE  VECT0R^//22X^0RIGINAL  NOMINAL^TX^MOST  RECENT  NO 
$MINAL^13X^ACTUAL* ) 

3002  FORMAT ( 8X  t AlO  r £20 . lO » 5X  »E20 .10  »5X » £20 . 10 ) 

3003  FORMAT (///8X^DIA60NAL  OF  DYNAMIC  NOISE  MATRIX^/) 

3004  FORMAT (///aX^STATE  TRANSITION  MATRIX  RELATING  THE  STATE  VECTOR  AT 
4TIME  ♦F8.3*  DAYS  TO  THAT  AT  TIME  ♦F8.3^  DAYS^/) 

3005  FORMAT (///8X+C0VARIANCE  MATRIX  AT  TIME  OF  QUASI-LINEAR  FILTERING  E 

SVENT  — P(*F8.3^»^Fa.3^)^/) 

3006  FORMAT(///aX+CORRELATION  COEFFICIENT  MATRIX  AT  TIME  ♦F8.3^  DAYS*/) 
3008  FORMAT (///8X*ACTUAL  DYNAMIC  NOISE*// (8XE20. 10)) 

3010  FORMAT (///8X*DEVIATI0N  IN  THE  STATE  VECTOR  FROM  THE  MOST  RECENT  NO 
SMINAL  TRAJECT0RY*//15X*ESTIMATED*13X*ACTUAL*/(8X2E20.10) ) 

3011  FORMAT (///8X*STATE  VECTOR  OF  NEW  NOMINAL  TRAJECTORY*//(8XE20.10) ) 

3012  F0RMAT(///8X*ACTUAL  DEVIATION  OF  NEW  STATE  VECTOR*//(8XE20, 10) ) 

3013  FORMAT (10X*ROW*I3) 

3014  FORMAT (10X6E20. 10) 

END 
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no 


FUNCTION  RNUM(SI6MA) 

THIS  FUNCTION  GENERATES  RANDOM  VARIABLES  FROM  A NORMAL 
DISTRIBUTION  WITH  MEAN  ZERO  AND  STANDARD  DEVIATION  SIGMA. 
DATA  NX/0/ 

A=0.0 

DO  100  1=1 » 12 
IF(NX)3.2f3 

2 YY=5160736. 

ZZ=1492480. 

WW=3130862. 

SS=6538271, 

NX  = 2 

3 WW=  WW+WW 
YY=  YY+YY 
ZZ=  ZZ+ZZ 
Y1  =YY-9999997, 

Z1  =Z2-9999971. 

Wl  =WW-9699691. 

IF(Y1)20.20»10 

10  YY  = Y1 
20  IF  (Zl)  40»40.30 
30  ZZ=21 

40  IFIWl)  60.60»50 
50  WW  =W1 
60  SS=WW+ZZ+YY+SS 
N=SS*. 0000001 
Q=N*10000000 
SS  =SS-Q 
RR=SS*. 0000001 
100  A=A+RR 

RNUM=(A-6.) ♦SIGMA 

RETURN 

END 
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subroutine  SCHED ( T 1 » T2 » MMCODE ) 

COMMON  /MEAS/  TMN ( lOOO ) »MCOOE MOOO ) » NMN» MCNTR 

5 IF(MCNTR-NMN)  10»10f30 

10  UO  15  M=MCNTRrNMN 

IF(T1-TMN(M) ) 20»20fl5 
15  CONTINUE 

20  T2=TMN(M) 

MMCODE=MCODE(M) 

30  RETURN 

END 
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n n n n n n n n 


SUBROUTINE  SPACE  (LINES) 


THIS  SUBROUTINE  COUNTS  THE  NUMBER  OF  LINES  BEING  PRINTED  TO 
DETERMINE  WHEN  TO  SKIP  TO  THE  NEXT  PAGE  WITH  A NEW  HEADING. 


COMMON  /C0M/V(I6f  7)  fF(4‘tr4)  »PI»RAD 

COMMON  /COM/ ITR AT » KOUNT » INCMNT  » INCPR » INC  r IPR 

COMMON/COM/NBOD Y I . NBOD Y . IPRT ( 4 ) 

COMMON/COM/KL  r IPG . LINCT . LINPGE 

C0MM0N/BLK/T»PMASS(11)  .CN(80)  fST(50)  »EMN(15)  rSMURdS) 

COMMON  /BLK/RADIUSdl)  .RMASSdD  » NO dl ) » ELMNT ( 80 ) rSPHERE(ll)  fXP(6) 
COMMON  /PRT/M0NTH  (12)  rPLANETdl) 

IF  (LINPGE.lt. (LINCT+LINES) ) CALL  NEWPGE 

LINCT=LINCT+LINES 

RETURN 

END 
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noon 


SUBROUTINE  STAPARL ( AL » ALON » ALAT » PAT2 rVEC » PA ) 


THIS  SUBROUTINE  COMPUTES  THE  PARTIAL  DERIVATIOVES  FOR  STATION 
location  ERRORS 

COMMON/CONST/OMEGA»EPS»NST»SAL(3) »SLAT(3) rSL0N(3) »DNCN(6) »MNCN(12) 
COMMON/VM/NBOD » NB ( 11 ) » NTP » ALNGTH , TM » DELTP » INPR » IPROB » RC ( 6 ) » DC » 
$RSI(3) »VSI(3) fDSIrISPH»RVS(6) ► VMUrB»BDT»BDR»DELTH»TIMINT» INCMT» 
$IEPHEM»ICL»IPRINT»RE<6) rRTP(6) »ICL2 
DIMENSION  VEC(6) »PA(6r3) 

G1=SIN(ALAT) 

G2=C0S(ALAT) 

G3=SIN(PAT2) 

G4=C0S(PAT2) 

G5=SIN(EPS) 

G6=C0S(EPS) 

PA(1»1)=-G2*G4 

PA(1>2)=AL*G1*G4 

PA(1»31=AL*G2*G3 

PA ( 2 » 1 ) =- ( G5*G1+G6*G2*G3 ) 

PA (2 » 2 ) =AL*G6*61*G3-AL*G6*G2 
PA (2  f 3 ) =-AL*66*G2*G4 
P A ( 3 » 1 ) =G5*G2*G3-G6*g1 
PA ( 3 r 2 )=- ( AL*65*G1*G3+AL*G6*G2 ) 

P A ( 3 » 3 ) =AL*G5*G2*G4 
OMEG=OMEGA/TM 
PA(4rl)=0MEG  »62*G3 
PA(4»2)=(-0MEG  )*AL*G1*G3 
PA(4»3)=0MEG  *G2*G4*AL 
PA(5»1)=(-0MEG  )*G2*G4*G6 
PA ( 5 » 2 ) =0MEG  *G6*G1*G4*AL 
PA (5 » 3 ) =OMEG  *AL*G6*G2*G3 
PA(6»1)=0MEG  *G5*G2*G4 
PA (6 » 2 ) = ( -OMEG  ) *AL*G5»G1*G4 
PA(6»3)=(-OME6  )*AL*G5*G2*G3 
RETURN 
END 
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o o o o o o n o n n o r>  o o o o 


SUBROUT INE  TIME (DAY , I YR » MO » ID A Y » IHR » M IN » SEC » ICODE > 


THIS  subroutine  CHOOSES  BETWEEN  TWO  OPTIONS. 

(1)  CONVERTS  FORM  CALENDAR  DATE  TO  JULIAN  DATE»  EPOCH 
JAN.  0»  1900»  OR 

(2)  converts  FROM  JULIAN  DATE#  EPOCH  JAN.  0»  1900»  TO 
CALENDAR  DATE.  DEPENDING  ON  THE  VARIABLE  ICODE. 

ICODE. EQ.O  OPTION  1 
ICODE. NE.O  OPTION  2 

DAY  - FLOATING  POINT  JULIAN  DATE»  EPOCH  JAN.  0»  1900 


IF  (ICODE)  10.50.10 
10  P=DAY+2415020.5 

JD=P 

R=P-FL0AT(JD) 

JD=JD-1721119 

J=4*JD-1 

IT=J/146097 

J2(J-146097>!<IT)/4 

J=4*J+3 

IV=J/1461 

J=(J+4-146l*IV)/4 

J=5*J 

IX=(J-3)/153 
IDAY  =(J+2-153*lX)/5 

IF(IX-10)20.30.30 
20  MO  =lX+3 

lYR  =100*IT+IV 

GO  TO  40 

30  MO  =IX-9 

lYR  =100*IT+IV+1 

40  R=24.*R 

IHR  =R 

R=60.*(R-FLOAT(IHR) ) 

MIN  = R 

R=60.*(R-FLOAT(MIN) ) 

SEC  = R 
RETURN 

50  IF(MO-2)60»60.70 

60  IP=MO  + 9 

IQ=IYR  - 1 
GO  TO  60 
70  IP=MO  - 3 

IQ=IYR 

80  IA=IQ/100 

IB=IQ“100*IA 

IR=IA/4 

IS=IA-4*IR 

IT=IB/4 

IU=IB”4*IT 

IV=(153*IP+2)/5 

DAY=146097*IR+36524*IS+1461*IT+365*IU+IV+1DAY-693901 
DAY=DAY-.5+FL0AT(IHR)  /24.  +FLOAT(MIN)  /1440.  + 

lSEC/86400. 
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RETURN 

END 
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non oooonooooo 


subroutine  TRAKM(HECVrITRK»NR»lOBS* VECTOR) 
COMMON/BLK/TfPMASSUl)fCN(80)  »ST(50)  »EMN(15)  »SMJR{18) 

COMMON  /BLK/RADIUSdl)  f RMASS(ll  ) »N0(11)  »ELMNT(80  ) » SPHEREUl ) VXP ( 6 ) 
C0MM0N/C0NST/0ME6AfEPSfNST#SAL(3)  fSLATO)  »SL0N(3)  »DNCN(3)  »MNCNU2) 
C0MM0N/C0NST2/Ul»U2fU3»Vl* V2»V3»Wlf W2»W3»F0P»F0V 
C0MM0N/C0NST3/DELXAf0ELYA»D£LZA»0ELXEf DELYE »DELZE»DELXI»OELYI» 
SDELZI » DELAXS » QELECC » DELICL  r DELMUS  rDELMUP 
COMMON/S IMCNT/DMUSBfDMUPBfOABf DEB » DIB »TTIMlfTTIM2»UNMAC (3  r3) » 

4SLB ( 9 ) » AVARM ( 12 ) » 1 AMNF  f ARES ( 20 ) » APRO ( 20 ) # AALP (20 ) » ABET ( 20 ) 
COMMON/STM/Pa7»17)  fpSIU7»17)  »Q(17»17)  »H(4f  17)  »R(4f4)  »AK(17»4) 
$»PB(17»17) rPSIP(17*17) »HPHR(4.4) 

C0MM0N/STVEC/XI(17) »XF(17)f NDIM» IAUG»XB(17) 

COMMON/TlM  /D ATEvJ » TRTMl » DELTM » FNTM » UNl VT  » TRTMB 
COMMON/VM/NBODrNB(ll) »NTPrALNGTHfTM»DELTP»lNPR»IPR0BfRC(6) »DC» 
*RSI(3) »VSI(3)fDSI»ISPH»RVS(6) »VMU»B»BDTrBDR»DELTH»TIMINTf INCMT. 
3-IEPHEM » ICL » IPR INT » RE  ( 6 ) r RTP  { 6 ) » ICL2 
DIMENSION  HECV(6) »VEC (6) rGECS(6) »GELS(6) »PA(6»3) f HEGP(6) »HECE(6) 
DIMENSION  VECTOR (4) 


THIS  subroutine  COMPUTES  THE  MEASUREMENT  MATRIX  H FOR  AUGMENTED 
AND  NON-AUGMENTED  STATES’  THE  ARGUMENTS  ARE 

HECV  — HELIOCENTRIC  ECLIPTIC  COORDINATES  OF  VEHICLE 

ITRK  — CODE  TO  DETERMINE  WHICH  TRACKING  MODEL  WILL  BE  USED 

OUTPUT  QUANTITIES  ARE 

H — measurement  MATRIX 

NR  — NUMBER  OF  ROWS  IN  H 


N0(1)=4 

D=DATEJ+TRTM1+DELTM 
CALL  0RB(4»D) 

CALL  EPHEMd’Drl) 

DO  300  I=l»3 
HECE  (I ) =XP ( I ) * ALNGTH 

300  HECEd+3)=XPd+3)*ALNGTH/TM 
NOd)=NTP 

CALL  0RB(NTP»D) 

CALL  EPHEMd»D»l) 

DO  301  1=1 » 3 
HECPd ) =XP  d ) *ALN6TH 

301  HECP ( 1+3) =XP ( 1+3 ) *ALNGTH/TM 
T=DATEJ-18262.5+TRTM1+DELTM 
IFdOBS.NE.O)  GO  TO  302 

DO  2 1=1 »4 
DO  2 J=1»17 
H(IfJ)  = 0.0 
2 CONTINUE 

302  GO  TO  dd»3.3f4.4»5»5.6.7)  .ITRK 
1 DO  100  IN=1»6 

100  VECdN)  = HECV(IN)  - HECE(IN) 

Rl=  SQRT(VECd)*VECd)  + VEC  (2)*VEC(2)  + VEC(3)*VEC(3) ) 

RRATE  =(VECd)*VEC(4)  + VEC(2)*VEC(5)  + VEC ( 3) *VEC (6) ) /Rl 

IFdOBS.EQ.O)  60  TO  400 

IF(ITRK.EQ.l)  60  TO  401 

VECTOR  d)=Rl 

VECTOR (2 )=RRATE 

NR=2 
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GO  TO  200 

401  VECTOR a)=RRATE 
NR=1 

GO  TO  200 

400  A1  = VECU)  /R1 
A2  = VEC(2)  /R1 
A3  = VEC(3)  /R1 
R2=R1»R1 

B1  = VEC(4)/R1-  {VEC(1)*RRATE)/R2 
B2  = VEC(5)/R1-  (VEC(2)*RRATE)/R2 
B3  = VEC(6)/R1-  (VEC(3)*RRATE)/R2 
GO  TO  U5.25)»ITRK 
15  H(l»l)  = B1 
H(l»2)  = b2 
H(l»3)  = b3 
H(l>4)  = A1 
H(1»5)  = A2 
H(1»6)  = a3 
NR  = 1 
GO  TO  200 
25  H(l»l)  = Al 
H(1^2)  = A2 
H(1»3)  = A3 
H(2»l)  = Bl 
H(2»2)  = B2 
H(2»3)  = B3 
H(2»4)  = Al 
H(2»5)  = A2 
H(2»6)  = a3 
NR  = 2 
GO  TO  200 

3 lA  = 1 
GO  TO  12 

4 lA  = 2 
GO  TO  12 

5 lA  = 3 

12  AL  = SAL(IA)  + RADIUS (4) *ALNGTH 
ALON  = SLON(IA) 

ALAT  = SLAT(IA) 

IF(I0BS.NE.2)  GO  TO  13 
AL=AU+SLB(3*IA-2) 

ALAT=ALAT+SLB(3*IA-1) 

AL0N=AL0N+SLB(3*IA) 

13  PATI  = AL*COS(ALAT) 

PAT2  = ALON  + OMEGA  *(T-UNIVT) 
CP=C0S(PAT2) 

SP=SIN(PAT2) 

GECS(l)  = PAT1*CP 
GECS(2)  = PAT1*SP 
6ECS<3)  = AL*SIN(ALAT) 

GECS(4)  = (-OMEGA) ♦PATl^SP/TM 
GECS(5)  = 0MEGA*PAT1*CP/TM 
GECS(6)  = 0.0 
CE=COS(EPS) 

SE=SIN(EPS) 

GELS(l)  = GECS(l) 

GELS (2)  = 6ECS(2)*CE  + GECS(3)*SE 
GELS(3)  = (-GECS(2) )*SE  + GECS(3)*CE 
GELS (4)  = GECS(4) 

GELS (5)  = GECS(5)*CE 
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eELS(6)=-eECS(5)*SE 
00  30  I =1»6 

VEC(I)  = HECVU)  - HECE(I)  - SELSdl 
30  CONTINUE 

Rl=  SQRT(VEC<l)*VECa)  + VEC (2) ♦VEC (2)  + VEC(3)*VEC(3) ) 

RRATE  = (VEC(1)*VEC(4)  + VEC(2)*VEC(5)  + VEC(3>*VEC(6n  /Rl 

IF(10BS.EO.O)  60  TO  402 

IFaTRK/2*2,NE.ITRK)  GO  TO  403 

VECTOR (l)=Ri 

VECTOR (2 )=RRATE 

NR=2 

60  TO  200 

403  VECTOR {1)=RRATE 

NR=1 

60  TO  200 

402  A1  = VECU)/Rl 

A2  □ VEC(2)/R1 
A3  = VEC(3)/R1 
R2=R1*RI 

til  = VEC(4)/R1-  (VEC(1)*RRATE)/R2 

B2  = VEC(5)/R1-  (VEC(2)*RRATE)/R2 

B3  = VEC(6)/R1-  (VEC(3)*RRATE)/R2 

35  = Bl 

H(l»2)  = B2 
HU»3)  = b3 
H(i»4)  = Al 
HU»5)  = a2 
H<1»6)  = A3 
IF(ITRK-4)  50 » 50 » 55 
55  IF(IAU6-6)  60»61»60 

60  IFaTRK/2*2.EQ,ITRK)  GO  TO  40 
NR  = I 

GO  TO  200 

61  CALL  STAPARL(AU»AL0N»ALATrPAT2»VEC»PA) 

E1=PA(1»1)*B1  + PA(2»1)*B2  + PA(3»1)*B3  + 

♦ (PAl^rD+VECIl)  + PA(5»ir*VEC{2)  + PA(6»D*  VEC(3))/Rl 

E2  = PA(l»2)*6l  + PA(2»2)*B2  + PA(3»2)*B3  + 

♦ (PA(4»2>*VECU)  + PA(5»2)*VEC{2)  + PA(6»2)*VEC<3)  )/Rl 

E3  = PAU»3)*Bl  + PA(2»3)#B2  ♦ PA(3»3)*B3  + 

♦ (PA{4»3)*VECa)  + PA(5»3>*VEC(2>  + PA(6»3)*V£c(3)  )/Rl 
IFdTRK.GE.  7)  GO  TO  62 

IF(ITRK.LE.4)  GO  TO  53 
HU»10>  = El 
H(l»ll)  = E2 
H(lrl2)sE3 
60  TO  60 

62  H(lfl3)=El 
H(1»14)=E2 
H(l»15)sE3 
60  TO  60 

50  60  T0(60>6l»60r52r60r61»61r61»60»52»61>»  ZAU6 

52  H(lf8)  S 1.0 
60  TO  60 
53  H(1»7)=E1 

H(1»8)=E2 
H(1»9)=E3 

IFUAU6  .EQ.  8)  60  TO  54 
IFdAUG  .EG.  11)  60  TO  56 
60  TO  60 

54  Hddl)  s 1.0 
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GO  TO  60 
56  H(l»13)  = 

GO  TO  60 

40  DO  41  I=lfN01M 
H(2»I)=H(1»I) 

41  H{lrl)=0, 

H(lfl)=Al 
H(lf2)  = A2 
H(l»3)  = A3 

El  =(PA(1»1)*VECU)  + PA(2»1)*VEC(2)  + PaO.  1 ) *VEC (3) ) /Rl 

E2  =(PA(1»2)*VEC(1)  + PA(2f2)#VEC(2)  + Pa(3.2>*VEC(3) )/Rl 

E3  =(PA(1»3)*VEC(1)  + PA(2»3)*VEC(2)  + PA(3. 3)*VEC(3) )/Rl 

NR=2 

lF(ITRK-6)  42 » 47. 48 

42  GO  TO  (200.43.200f46.200.43.43.43.200.46.43J .lAUG 

43  H{lf7)=El 
H(1.8)=E2 
H(1.9)=E3 

IFUAUG.NE.a)  GO  TO  44 

H(1.10)=1.0 

GO  TO  200 

44  IFdAUG.NE.ll)  GO  TO  200 

H(1.12)=l,0 

GO  TO  200 

46  H( 1.7) =1.0 
GO  TO  200 

47  IF(IAUG.NE.6)  GO  TO  200 

H(1.10)=El 

Hd.ll)  = E2 
Hd.l2)=E3 
GO  TO  200 

48  IFdAUG.NE.6)  GO  TO  200 

Hd.l3)=El 
Hd»14)=E2 
Hd.T5)=E3 

GO  TO  200 
6 DO  80  J = 1.6 

VEC(J)  = HECP(J)  - HECV(J) 

80  CONTINUE 

RHO  = SQRT(VEC(1)*VEC(1)  + VEC (2) *VEC (2)  + VEC(3)*VEC(3) ) 
RH02=RH0*RH0 

COALl  = (Ul*VECd)  + V1*VEC{2)  + W1*VEC(3)  J/RHO 

C0AL2  = (U2#VECd  ) + V2*VEC(2)  + W2*VEC(3)  )/RHO 

C0AL3  = (U3*VECd)  + V3*VEC(2)  + W3*VEC(3)  )/RH0 

SIALl  = SQRTd.O  - COALl  ♦ COALl) 

SIAL2  = SQRTd.O  - C0AL2  ♦ C0AL2) 

SIAL3  = SQRTd.O  - C0AL3  * C0AL3) 

IFdOBS.EQ.O)  GO  TO  87 
VECTOR  d)=ASlN  (SIALl) 

VEC  TOR ( 2 ) = AS I N ( S I AL2 ) 

VECTOR ( 3)=ASIN (SIAL3) 

GO  TO  200 

87  IF(ABS(SIAL1)  .GE.  .001)  60  TO  81 

S11=(1000.0)*(U1/RHO  - VEC(1)/RH02) 

S12=(1000.0)*(V1/RHO  - VEC(2)/RH02) 

S13=(1000.0)*(W1/RHO  - VEC(3)/RH02) 

GO  TO  82 

81  511=  (Ul/RHO  - (VEC(1)*C0AL1)/RH02)/SIAL1 

S12=  (Vl/RHO  - ( VEC ( 2) ♦COALl )/RH02) /SIALl 

S13=  (Wl/RHO  - (VEC(3)*C0AL1)/RH02)/SIAL1 
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82  IF(ABSIS1AL2)  .6E,  .001)  GO  TO  83 
S21=  UOOO.O)=MU2/RHO  - VEC(1)/RH02) 

S22=  (1000.0)*(V2/RHO  - VEe(2)/RH02) 

523=  {1000.0)*(W2/RHO  - VEC(3)/RH02) 

60  TO  84 

83  521=  (U2/RH0  - ( VEC ( 1 )*C0AL2 ) /RH02) /SI AL2 

522=  (V2/RH0  - ( VEC (2) ♦C0AL2 ) /RH02) /SIAL2 

523=  (W2/RH0  - (VEC(3)*C0AL2)/RH02)/SIAL2 

84  1F(ABS(SIAL3)  .GE.  ,001)  GO  TO  85 
531=  (1000.0)*(U3/RHO  - VEC(1)/RH02) 

532=  (1000,0)*(V3/RHO  - VEC(2)/RH02) 

533=  (1000.0)*(W3/RHO  - VEC(3)/RH02) 

GO  TO  66 

85  531  = (U3/RH0  (VEC(1)*C0AL3)/RH02)/SIAL3 

532  = (V3/RH0  - ( VEC (2 ) ♦C0AL3 ) /RH02 ) /SI AL3 

533  = (W3/RH0  - ( VEC ( 3) *C0AL3) /RH02) /SIAL3 


86  H(lfl) 

511 

H(l,2) 

512 

H(l»3) 

513 

H(2fi) 

z 

521 

H(2f2) 

z; 

522 

H(2»3) 

523 

h(3»l) 

z: 

531 

H(3r2) 

z, 

532 

H(3,3) 

= 

533 

NR=3 

GO  TO  (200»200r200ra8»a9r200,200f 90»9lf 92f93) rlAUG 
88  H(lr9)  =1,0 
H(2,10)  = 1.0 
H(3,ll)  = 1.0 
GO  TO  200 

89  H ( 1 »7 ) = (-S11*DELXA-S12*DELYa-S13»DELZA) /OELAXS 
H ( 1 »8)={-S11*DELXE^S12*DELYE-S13»DELZE) /DELECC 
H(1»9)=(-S11*DELX1-S12*DELYI-S13*DEUZI)/DELICL 
H ( 2 » 7 ) = ( -S21*DELXA”522*DELY A-S23*DELZA ) /QELAXS 
H ( 2»  8 ) = ( -S21»DELXE-S22*DELYE-S23*DELZE ) /DELECC 
H ( 2 » 9 ) = ( -52 1=*DELX  I -S22*DEL  Y I -S23*DELZ  I ) /DEL  ICL 
H ( 3 * 7 ) = ( -531 ♦DELXA-S32*DELY A-S33*DELZ A ) /DELAXS 
H(3f8)=(-S31*DELXE-S32*DELYE-S33»DELZE) /DELECC 
H ( 3r9 ) = (-S31*0ELXI-S32*DELYI-S33*DELZI ) /DELICL 
60  TO  200 
90  H{1»12)  = 1.0 
H(2»13)  = 1.0 
H(3rl4)  = 1,0 
GO  TO  200 

91  H { 1 r 9)=(-S11»DELXA-S12*0ELYA-S13*DELZA) /DELAXS 
H < 1 » 10 ) = ( -S11*DELXE-S12»DELYE-S13*DELZE) /DELECC 
H ( 1 * 1 1 ) = ( -SI 1*DELX I-S12*DEL Y I-S 13*DELZ I ) /DELI CL 
H ( 2 1 9 ) = ( -S21*DELXA-S22*DELYA-S23*DEL2A ) /DELAXS 
H <2 » 10 ) = ( -S21»DELXE-S22*DELYE-S23*DELZE ) /DELECC 
H ( 2 ,1 1 ) = ( -S21+DELX I-S22*DEL YI-S23*DELZ1 ) /DELICL 
H (3»  9 ) = ( -S31*DELXA-S32*DELYA-S33*DEL2A) /DELAXS 
H < 3 , 10 ) = ( -S31*DELXE-S32*DELYE-S33*DELZE ) /DELECC 
H ( 3 rl 1 ) = ( -S31*DELX 1-S32*DEL Y1 -533*DELZ I ) /DEL ICL 
GO  TO  200 
92  H(1»9)  = 1.0 
H(2,iO)=  1.0 
H(3i11)=  1.0 

H(l. 13)= {-Sil*DELXA-S12*DELYA-S13*DELZA) /DELAXS 
H ( 1 , 14) = {-S11*DELXE-S12*DELYE-S13*DEL2E) /DELECC 
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H ( 1 » 15) = (-Sll*DELXI-512*DEi.Yl-S13*DELZI ) /QELICL 
H (2 » 13 ) = ( -S21=»0ELXA-S22*DELyA-S23^DELZA)  /DELAXS 
H (2»  14 ) = (~S21=»DEEXE-S22*DELYE-S23*DELZE)  /DELECG 
H ( 2 f 15 ) = (-S21»DELXI-S22*DELYI-S23*DELZI ) /OELICL 
H (3» 131= (-S31*DELXA-S32*DELYA-S33=^ELZA) /DELAXS 
H (3 » 14 ) = ( -S31»DELXE-S32»DELYE-S33*DELZE) /DELECC 
H ( 3»15) = (-S31*DELXI-S32*DELYI-S33*DELZI ) /dELICL 
GO  TO  200 
93  H(lfl4l  = 1.0 
H{2»15)  = 1.0 
H(3»16)  = 1.0 
60  TO  200 
7 DO  101  I = 1»6 

VEC(I)  = HECP(I)  - HECV(I) 

101  CONTINUE 

RH  = SQRT<VEC(1)*VEC(11  + VEC <2)*VEC(2)  + VEC(3)*VEC{3) ) 
RH2=RH*RH 

RADNTP=RADIUS (NTPl *ALN6TH 
IF(IOBS.EQ.O)  60  TO  102 
VECTOR!  11=2, ♦ASIN(RADNTP/RH) 

GO  TO  200  \ 

102  DENOM  = RH2*  SQRT(RH2  - RADNTP*RADNTP ) 

ADI  = (2,0  * RADNTP  ♦VEC(l) )/DEN0M 

AD2  = (2.0  * RADNTP  *VEC(2) )/DENOM 

AD3  = (2.0  ♦ RADNTP  *VEC ( 3) > /DENOM 

H(l.l)  = ADI 

H(1.2)  = AD2 

H(1.3)  = AD3 

NR=1 

GO  T0(200»200f200.103.104.200f200»105f 106.107»108) »IAU6 
103  H(l#12)  = 1.0 
60  TO  200 

104  H ( 1 . 7 )= (-AD1*DELXA-AD2*DELYA-AD3*DELZA) /DELAXS 

H(lra)=(-AD1*DELXE-AD2*DELYE-AD3*DELZE)/DELECC 
H(1»9)=(-AD1*DELXI-AD2*DELYI-AD3*DELZI)/DELICL 
GO  TO  200 
105  H(l»15)  = 1.0 
60  TO  200 

106  H(lf9)=(-ADi*DELXA-AD2*DELYA-AD3*DELZA) /DELAXS 
H ( 1 f 10 ) = ( -AD1*DELXE-AD2*DELYE-AD3*DELZE ) /DELECC 
H ( 1 » 11 ) = (-AD1*DELXI-AD2*DELYI-AD3*DELZI ) /DELICL 
GO  TO  200 

107  H(1*12)  = 1.0 

H ( 1 » 13 ) = ( -AD1*DELXA-AD2*DELYA-AD3»DELZA ) /DELAXS 
H ( 1 f 14) = (-AD1*DELXE-AD2*DELYE-A03*DELZE) /DELECC 
H ( 1 » 15 ) = ( -AD1*DELXI-AD2*DELYI-AD3*DELZI ) /DELICL 
GO  TO  200 

108  H(1»17)  = 1.0 
200  RETURN 

END 
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SUBROUT I NE  TRANS ( ICODE » X » Y » Z » VX » V Y » VZ » XE » YE » ZE » VXE » V YE»  VZE » EPS » 
ilCOOEZ) 

IF  THE  POSITION  OF  THE  SPACECRAFT  IS  IN  GEOCENTRIC  EQUATORIAL 
COORD I NATES  THIS  SUBROUTINE  CONVERTS  TO 

1)  GEOCENTRIC  ECLIPTIC  RECTANGULAR  COORDINATES 

2)  HELIOCENTRIC  ECLIPTIC  RECTANGULAR  COORDINATES 

THE  variable  ICODE  DETERMINES  VaHICH  OF  THE  ABOVE  OPTIONS  WILL  BE 
EXERCISED  BY 

ICODE  = 1 — OPTION  1) 

ICODE  - 2 — OPTION  2) 

subroutine  ARGUMENTS  ARE  DISCUSSED  'IN  THE  FOLLOWING  TABLE 

X — X COMPONENT  OF  THE  SPACECRAFT  IN  GEO-EQUATORIAL 

Y — Y COMPONENT  OF  THE  SPACECRAFT  IN  GEO-EQUATORIAL 

Z — Z COMPONENT  OF  THE  SPACECRAFT  IN  GEO-EQUATORIAL 

VX  — X VELOCITY  COMPONENT  OF  THE  SPACECRAFT  IN  GEO-EQUAT. 

VY  — Y VELOCITY  COMPONENT  OF  THE  SPACECRAFT  IN  GEO-EQUAT. 

VZ  — Z velocity  component  of  the  SPACECRAFT  IN  GEO-EQUAT. 

XE  — X component  the  EARTH  IN  HELIO-ECLIPTIC 

YE  — Y COMPC^ENT  OF  tHE  EARTH  IN  HELIO-ECLIPTIC 

ZE  — Z component  of  the  EARTH  IN  HEU 0-ECLIPTIC 

VXE  — X VELOCITY  COMPONENT  OF  THE  EARTH  IN  HELIO-ECLIPTIC 

VYE  — Y velocity  component  of  THE  EARTH  IN  HELIO-ECLIPTIC 

VZE  — Z VELOCITY  COMPONENT  OF  THE  EARTH  IN  HELIO-ECLIPTIC 

EPS  — OBLIQUITY  OF  THE  EARTH 

NOTE  — IF  THE  POSITION  OF  THE  SPACECRAFT  IS  IN  GEOCENTRIC 
ECLIPTIC  COORDINATES  AND  THE  USER  WISHES  TO  RETURN  HELIOCENTRIC 
ECLIPTIC  COORDINATES.  SET  THE  ARGUMENT 
IC0DE2  = 2 

ANY  OTHER  VALUE  FOR  THIS  VARIABLE  WILL  ALLOW  THE  PROGRAM  TO  ASSUME 
THE  COORDINATES  ARE  IN  GEOCENTRIC  EQUATIORIAL 

THE  NEW  COORDINATES  OF  THE  SPACECRAFT  ARE  THEN  RETURNED  IN  THE 
locations  X»YrZ»VX»VY.VZ 


NOTE  — the  heliocentric  ECLIPTIC  COORDINATES  OF  THE  EARTH  ARE 
NECESSARY  ONLY  IF  OPTION  2 IS  SPECIFIED.  IF  OPTION  1 IS 
indicated  ZEROS  SHOULD  BE  USED  IN  THE  CALL  STATEMENT  FOR 
THE  LAST  SIX  VARIABLES  IN  THE  ARGUMENT  LIST  AS  THEY  WILL  BE 
IGNORED  — HOWEVER r IT  IS  NECESSARY  TO  FILL  THESE  LOCATIONS  SO 
THAT  THE  PROPER  NUMBER  OF  ARGUMENTS  WILL  APPEAR. 

IF  (IC0DE2-2)  l.lO.l 
1 CE=COS{EPS) 

SE=SIN<EPS) 

dum=y*ge+z*se 

Z=Z*CE-Y*SE 

Y=DUM 

DUM=VY*CE+VZ*SE 

VZ=VZ*CE”VY*SE 

VY=DUM 

IF(ICODE-l)  20.20.10 
10  X=X+X£ 

Y=Y+YE 

Z=Z+ZE 

VX=VX+VXE 

VY=VY+VY£ 

VZ=VZ+VZE 
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RETURN 

END 


o n n n n o o n n o o o 


SUBROUT IN£  V ARADA  ( RI » XS IP f XSI V f TEVN » TSI » ADA . bS » BDTS » BDRS ) 


THIS  SUBROUTINE  CALCULATES  THE  ADA  MATRIX  WHICH  ARISES  FROM 
VARIATIONS  IN  B DOT  T»  B DOT  R»  AND  THE  TIME  AT  WHICH  THE  SPHERE 
OF  INFLUENCE  IS  ENCOUNTERED  FROM  VARIATIONS  IN  THE  INITIAL 
CONDITIONS  OF  THE  STATE  VECTOR* 

V ARADA  USES  THE  FOLLOWING  SUBROUTINES 
NTM 

BLOCK  DATA 


COMMOn/BLK/T  * PMASS ( 11 ) » CN ( 80 ) * ST ( 50 ) * EMN ( 15) * 5MJR ( 18 ) 

COMMON  /BLK/RADIUSdl)  *RMASS(11)  .NO(ll)  *ELMNT(80)  *SPHERE(  ID  *XP(6) 
COMMON/MISC/ACC*lDNF*ICOOR*ITR*lMNF»FACPfFACV*ISP2*BIA(12) *IPGN 
COMMON/TIM  /DATEU*TRTMl*DELTM*FNTMfUNIVT»TRTMB 
COMMON/TRAUCU/NTMC » ISTMC  * ISTMl *DTMAX*  NDACC  * ACCND 
COMMON/ VM/NBOD  * NB  U 1 ) * NTP  * ALNGTH . TM  * DELTP  * INPR  * IPROB  * RC ( 6 ) * DC  * 
SRSK3)  rVSI(3)  *DSI  * ISPH*RVS  (6)  * VMU*B*BDT*BOR*DELTH#TIMINT*  INCMT* 
iIEPHEM»ICL*IPRINT»R£(6) *RTP{6) *ICL2 
DIMENSION  ADA(3*6) *XC(6) *RI (6) *XSIP(3) *XS1V(3) *RF(6) *RSIl(3) * 
iVSlH3) 

B1=BS 
BDT1=BDTS 
BDR1=BDRS 
TSI1=TSI 
dsii=dsi 

ISP=1SP2 
ISP2=NTP 

trtmi=Tevn 
IPR=IPRINT 
IPRINT=1 
N=1 

5 DO  10  1=1*6 

10  XC(I)=RI(I) 

ISPH=0 

15  IFtN-A)  20*30*30 

20  XC{N)=XC(N)+FACP 

GO  TO  40 

30  XC(N)=XC(N)+FACV 

40  deltm=fntm-tevn 

CALL  NTM(XC*RF*NTMC*-1) 

IF(ISPH.NE.O)  60  TO  50 
WRITE (6* 1000) 

1000  FORMAT (///8X*VEHICLE  DID  NOT  REACH  SPHERE  OF  INFLUENCE  IN  NUmERICA 

iL  DIFFERENCING  TO  DETERMINE  BOT*  BDR*  TSI  VARIATI0NS*/8X*RETURNING 
$ TO  BASIC  CYCLE*///) 

GO  TO  100 

50  TSI  =DSI-DATEJ 

lF{N-4)60*70*70 

60  ADA ( 1 * N ) = ( BOT-BDTI ) /F ACP 

ADA { 2 * N ) = ( BDR-BDRI ) /F ACP 
ADA ( 3 * N)  = ( TSI-TS 1 1 ) /FACP 
GO  TO  80 

70  ADA ( 1 * N ) = ( BDT-BDT 1) /FACV 

ADA ( 2 *N )= (BDR-BDRI) /FAC V 
ADA t3*N)=(TSI-TSIl) /FACV 

80  N=N+1 

ISPH=0 
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90 


lF(N-6)  5»  b»90 
DO  91  1=1 f 3 
RSI(I)=XSIP{I) 
91  VSI(I)=XS1V(I) 
B=B1 
BDT=BDT1 
BDR=BDR1 
DSI-DSll 
TSI=TSI1 
ISP2=ISP 
I PRINTS I PR 
ISPH=1 
100  RETURN 
END 
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subroutine  \/ARS IM  ( R 1 1 f TEVN » TS I » AOA ) 

common/const/omega  »EPS  * NST  f S AL { 3 ) » SLAT ( 3 ) r SLOW ( 3 ) » ONCN ( 3 ) » MNCN ( 12 ) 
COMMON  /C0NST2/U1 r U2 » U3 » V 1 » V2 1 V3 , W 1 » W2 . W3 » FOP t FO V 
COMMON/EVENT/NEVT  TEV ( 50 ) » IEVNT (50 ) . IHYPl » lEIG  t TPT2 ( 20 ) * 

*ICDT3(20) »NPE»NGE»IPOL»IIPOLf ICDQ3(20) rSIGRES»SlGPRO»SIGALP*SIGBET 
S » NEVl » NEV2 » NE V3  » NE V4  rNQE 
COMMON/GUI /PG ( 17 » 17 ) » X6 (6 ) » TG » EM ( 2 » 6 ) 

COMMON/M ISC/ACC » IDNF » ICOOR » I TR » IMNF » FACP  f FAC V , ISP2 » BI A ( 12 ) » IPGN 
COMMON  /NAME/M0NM(‘t,2)  »EVNM(4)  »MNNAME(12»3)  / CMPNM (11 » 17) 

COMMON  /SIM1/X1K17)  rXFl(17)  » AOEVX  ( 17)  f EDEVX ( 17)  . W (17) » Z(  17) » 
SAN0IS(17) .RES(4) »EY(4) »AY(4) ,AR(4»4) »ZI(17) rADEVXB(17) 

COMMON/S IM2/NB1 (11) rACCl *NB001 

COMMON/STM/P (17 »17)»PSI( 17 » 17 )»Q(17f 17) »H(4» 17) »R(4»4) »AK(17r4) 

S » PB ( 17 » 17 ) » PSIP ( 17  r 17 ) » HPHR ( 4 » 4 ) 

COMMON/STVEC/XI (17) »XF(17) f NDIMrIAUGf XB( 17) 

COMMON/T IM/DATE J » TRTmI » OELTM  » FNTM  » UN I VT » TRTMB 
COMMON/TRA JCD/NTMC » ISTMC » ISTMl » DTMAX » NDACC » ACCNO 
C0MM0N/TRJ/IS0I1»IS0I2.IS0I3»ICA1.ICa2»ICA3»RCA1(6)‘»RCA2(6)  » 
SRCA3(6)  »RS0IK3)  »RS0I2(3)  »RS0I3(3)  » VSOI 1 ( 3 ) » VS0I2 (3) » VSOI3 ( 3)  » 
STCAl»TCA2»TCA3»TS0Il»TS0I2»TS0l3rBSIl»B5I2»BSl3»BDTSIl*BDTSI2» 
aB0TSI3»BDRSll.B0RSI2fBDRSI3 

COMMON/ VM/NBOD » NB (11 ) rNTP » ALNGTH » TM » DELTP » INPR » IPROB » RC ( 6 ) » DC » 
SRSK3)  »VSK3)  ,0SI»ISPH*RVS(6)  »VMUrB»BOT»BDR»DELTH»TIMINT»INCMT» 
aiEPHEM » ICL » IPR INT » RE ( 6 ) f RTP ( 6 ) * ICL2 
DIMENSION  RI1(6)  »ADA(3»6)  fRSIS(3)  rVSlS(3)  »XC(6)  »RFK6) 

BS=B 

BDTS=BDT 
BDRS=BDR 
DO  10  1=1 r3 
RSIS(I)=RSI(I) 

10  VSIS(I)=VSI(I)  • 

IPR=IPRINT 

ISPS=1SP2 

IPRINT=1 

ISP2=NTP 

TRTM1=TEVN 

N=1 

20  DO  30  1=1 » 6 

30  XC(I)=RI1(I) 

ISPH=0 

IF(N-4)  40»50»50 
40  XC(N)=XC(N)+FACP 

GO  TO  60 

50  XC(N)=XC(N)+FACV 

60  CALL  NTM(XC»RF1»NTMC»-2) 

IF(ISPH.EQ.l)  GO  TO  70 
WRIT£(6»1000) 

1000  FORMAT(///1X»130(1H*)//8X*NOTE — *//8X*VEHlCLE  DID  NOT  REACH  SPHERE 

SOF  INFLUENCE  IN  NUMERICAL  DIFFERENCING  TO  DETERMINE  BDT»BDR»TSI» 
$VARIATI0NS*/8X*RETURNING  to  BASIC  CYCLE*///1X»130(1H*) ) 

60  TO  120 

70  TSI1=DSI-DATEJ 

IF(N-4)  80»90»90 
80  ADA(1»N)=(BDT-BDTS)/FACP 

ADA ( 2 » N ) = ( BDR-BDRS ) /FACP 
ADA (3»N)=(TSI1-TSI) /FACP 
60  TO  100 

90  ADA(1»N)=(BDT-B0TS)/FACV 

AD A ( 2 » N ) = ( BDR-BDRS ) /F AC  V 
ADA(3»N)=(TSI1-TSI)/FACV 


438 


100 


N=N+1 

IF(N.LE.6)  GO  TO  20 
DO  110  I=l»3 
RSI(I)=RSIS(1) 

110  VSI(I)=VSIS(I) 

B=BS 

BDT=BDTS 

BDR=UDRS 

dsi=tsi+dateo 

IPRINT=IPR 
ISP2=ISPS 
120  RETURN 
END 
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SUBROUTINE  VECTOR 


e 

c 

e 

C THIS  subroutine  CALCULATES  THE  VECTOR  ORBITAL  ELEMENTS  K#  E» 

C COMPUTES  THE  SPACECRAFT  FINAL  POSITION  ON  THE  ORBIT  TO  ACCURATELY 

C APPROXIMATE  THE  DESIRED  TIME  INTERVAL  AND  THEN  COMPUTES  THE  CONIC 

C SECTION  TIME  OF  FLIGHT. 

C 

C 

C 

COMMON  /COM/ V ( 16 » 7 ) » F ( 44 » 4 ) . p I » RAD 

COMMON  /COM/ ITRAT . KOUNT » INCMNT » INCPR r INC » IPR 

COMMON/COM/NBOD Y I . NBOD Y » IPRT ( 4 ) 

COMMON/COM/KL » IPG ► L INCT » LINP6E 

COMMON/BLK/T»PMASS(U)  fCN(80)  »ST(50)  »EMN(15)  ,SMJR(18) 

COMMON  /BLK/RADIUSUl)  .RMASS(ll)  »NO(ll)  »ELMNT(80)  f SPHEREUl)  »XP(6) 
COMMON  /PRT/M0NTHU2)  f PLANET  (11) 

C VECTOR  ORBITAL  ELEMENTS 
C K = RVSB  X VVSB 

400  V(16»2)=V(9»3)*V(11»4)-V(9^4)*V(11»3) 

V(16»3)=V{9f4)*V(llf2)-V(9»2)*V(ll»4) 
V(16»4)=V(9»2)*V(11»3)-V(9»3)*V(11»2) 

C E = RVSB/ABS(RVSB)  - (K  X RVSB)/MUV 

403  V(14»2)=-VC9.2)/V(9»1)-(V(16»3)*V(11»4)-V(16.4)*V(11»3) )/V(7»7) 
V(l4»3)=*V(9»3)/V(9rl)-(V(16r4)*V(ll»2)-V(l6f2)*V(ll»4) )/V(7»7) 
V(14*4)=-V(9»4)/V(9.1)^(V(16f2)*V(ll»3)-V(16»3)*V(ll»2) )/V(7»7) 

404  V(14»5)=V(14»2)*V(14»2)+V(14»3)*V(14.3)+V(14»4)*V{14.4) 
V(14tl)=SQRT(V(14f5) ) 

V(16»5)-V(16»2) *V{16»2)+V(16.3)*V(16f3)+V(l6»4)*V(16.4) 
V(16»1)=SQRT(VU6»5) ) 

V(13»5)=l.-V(14»5) 

V(13»6)=  SQRT(  ABS(V{13#5) ) ) 

V(13»7)=V(16»5)/V(7»7) 

if(itrat.eq.3)  return 

C SPACECRAFT  FINAL  POSITION  AND  VELOCITY 
C DELTA  TAU  = DELTA  T + (DELTA  T)**2  * KAPPA 
V(6»7)=V(7*6)+V(7»6)*V(7»6)*V(6»7) 

C SIGMA  = RVS8  + DELTA  TAU  DOT  VVSB 

410  V(9»S)=V(9»2)+V(6.7)*V(11»2) 

V(9»6)=V(9f3)+V(6»7)*V(ll»3) 

V(9»7)=V(9»4)+V(6»7)*V(11»4) 

C B = K**2/MUV*(E  DOT  SIGMA  + ABS(SIGMA)) 

V(8»7)=V(l3»7)/(V(14r2)*V(9.5)+V(14»3)*V(9»6)+V(14»4)*V(9»7)+  SORT 
l(V(9f5)*V(9»5)+V(9»6)*V(9»6)+V(9.7)*V(9f7) ) ) 

411  V(10»2)=V(8»7)*V(9»5) 

V(10»3)=V(8»7)*V(9»6) 

V(10»4)=V(8»7)*V(9»7) 

V(lOfl)  = SQRT(V(10f2)*V(10.2)+V(10»3)*V(10»3)+V(10»4)*V(10»4) ) 

414  V(12»5)=V(14»2)+V(l0f2)/V(l0»l) 

V(l2»6)=:V(14»3)+V(l0r3)/V(l0»l) 

V(12»7)=V(14f 4)+V(lO»4)/V(lO»l) 

413  V(12»2)=(V(16»3)*V(12»7)-V(16.4)*V(12»6) )/V(13»7) 

V(12»3)  = (V(16»4)*V(12»5)-V(16.2)*V(12»7n/V(13»7) 
V(12»4)=(V(i6r2)*V(12»6)-V(16»3)*V(12»5) )/V(13*7) 

C VVSE  = (K  X (E  + RVSE/ABS(RVSE) ) )/(K**2/MUV) 

G RSE=RVSE  + RVE 

V(2»2)=V(10»2)+V(6»2) 

V(2»3)=V(10»3)+V(6»3) 

V(2»4)=V(10»4)+V(6»4) 


C VSE  = VV5E  + VVE 

V(4r2)=Va2»2)+V(10»5) 

V(4»3)=V(12r3)+V{10.6) 

V(4»4)=V(12»4)+V(10r7) 

C KEPLERIAN  TIME  OF  FLIGHT 

IF(Va4»D)  520»510f520 
510  V(12»l)=V(9»l)*V(g*l) 

Va3»l)=V(10»2)*V(9r2)+V(10f3)*V(g»3)+V(10»4)*V(9r4) 

DUM=V(16rl)*V(9»l) 

V ( 11 » 5 ) = ( V U6 » 3 ) *V  ( 9f  4 ) -V  (16»  4)  *V  ( 9 » 3 ) ) /DUM 
V(llf6)=(V( 16f 4)*V(9»2)-V(16»2)*V(9»4) )/DUM 
V(ll»7)=(V(16»2)*V(9r3)-V(16»3)*V(9f2) )/DUM 
60  TO  530 

520  V(12»1)=V(13»7)/V(13»5)-V(9,1) 

V(13»l)=VU3f7)/V(13f5)-V(10rl) 

DUM=V(16»1)*V(14»1) 

V (1 1 » 5 ) = ( V ( 16f  3 ) *V ( 14  f 4 ) -V ( 16  f 4 ) * V ( 14  f 3 ) ) /DUM 

V ( 11  r 6 ) = ( V (16  »4 ) *V  ( 14  1 2 ) -V  ( 16  r 2 ) »V  ( K+  r4  ) ) /DUM 
V(ll»7)=(V(16f2)*V(14f3)-V(16»3)*V(14»2) )/DUM 

530  IF(V(13»5))  550r540r560 

540  V(8f7)=,5*V(16»l) 

V(15»5)=2./(V(9»1)-V(13»7) ) 

V(16f  5)=2,/  (VU0»1)-V(13»7)  ) 

V( 15»5)=(V(llr 5)*V(9»2)+V(llr6)*V(9r3)+V(ll»7)*V(9r4) )/V(l5f5) 
V(16»5)=(V(ll»5)*V(10f2)+V(ll»6>*V(10f3)+V(ll»7)*V(10f4) )/V(16f5) 
DUM=V(13»7)*V(13f7)*V{13»7)/3. 

V{15»6)=DUM*V(15»5)*V(15r5)*V(15»5) 

V ( 16 ► 6 )=DUM* V ( 16  f 5 ) *V ( 16»  5 ) * V ( 16 » 5 ) 

60  TO  660 

550  V(15r5)=V(13f7)/V(13f6) 

V(8»7)=V(13»5)*V(7»7)/(V{16»1)*V(15»5) ) 

V(16»5)=(V(ll»5)*V(10f2)+V(ll»6)*V(10»3)+V(llf7)*V(10f4) )/V(15»5) 
V(15f5)=(V(llr5)*V(9»2)+V(llr6)*V(9»3)+V{ll»7)*V(9»4) )/V( 15»5) 

V ( 15 r 6 ) =ALOG ( V ( 15  r5 ) +SQRT ( V ( 15 » 5 ) * V ( 15 »5 ) + 1 , ) ) 
V(16t6)=AL06(V(16»5)+SQRT(V(16»5)*V(16»5)+l. ) ) 

60  TO  660 

560  V{15»5)=V(13»7)/V(13»6) 

V(8»7)=V(13»5)*V(7»7)/(V(16»1)*V(15»5) ) 

V(16f5)=(V{llf5)*V(10»2)+V(ll»6)*V(10f3)+V(ll»7)*V{10»4) )/V(15»5) 
V(15»5)=(V(llr5)*V(9f2)+V(ll»6)*V(9r3)+V(ll*7)*V(9»4) )/V(15»5) 

DO  610  1=15 » 16 

IF(V(Ir5)-1.000D  580 » 580 » 570 
570  CALL  SPACE (2) 

WRITE(6f 1000) 

1000  FORMAT (/27H  UNACCEPTABLE  ERROR  IN  ATAN) 

K0UNT=-1 

RETURN 

580  IF(V( Ir5)-1. ) 600r600»590 
590  CALL  SPACE (2) 

WRITE(6.1001) 

1001  FORMAT (/25H  ACCEPTABLE  ERROR  IN  ATAN) 

V(I»6)=SI6N(.5*PIfV(Ir5) ) 

GO  TO  610 

600  V(I»6)=ATAN(V(Ir5)/SQRT(l.-V(Ir5)*V(If5) ) ) 

610  CONTINUE 

DO  650  1=12 » 13 
IF(V(I»D)  620»650»650 
620  IP3=I+3 

IF{V(IP3»5))  630»640»640 
630  V{IP3r6)=-PI-V(IP3»6) 
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GO  TO  650 

640  V(IP3»6)=PI-V(IP3»6) 

650  CONTINUE 

660  V(7f5)=V(16»6)-V(15»6)+V(14tl)*(V(15»5)-V(16r5) ) 

IF(V(7r5))670r700r690  i 
670  IF(V(8»7))  690»680»680W 

680  V{7r5)=V(7»5)+2.*PI 

690  V(7»5)=V{7»5)/V18»7) 

V(6»7)=(V(6*7)-V(7»5))/(V{7»5)*V(7»5) ) 

700  RETURN 
END 
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o o o o o r>  n o o noon  n o 


SUBROUTINE  VMASS 


THIS  subroutine  DETERMINES  THE  VIRTUAL  MASS  DATA  NEEDED  IN  THE 
TRAJECTORY  ANALYSIS.  THE  V.  M.  POSITION#  MAGNITUDE#  VELOCITY#  AND 
magnitude  RATE  ARE  CALCULATED  USING  FORMULAS  (II-3)  IN 

NOVAK#  D.  H.  -VIRTUAL  MASS  TECHNIQUE  FOR  COMPUTING  SPACE 
TRAJECTORIES-#  FINAL  REPORT#  CONTRACT  NO.  NAS  9-4370# 

ER  14045#  martin#  BALTIMORE  DIVISION#  JANUARY#  1966.  PG.  8. 

GIVEN  THE  POSITIONS  OF  THE  SPACECRAFT  AND  ThE  PLANETS. 


COMMON  /C0M/V(16#7) #F(44#4) »PI#RAD 
COMMON  /C0M/ITRAT#K0UNT#INCMNT#INCPR#INC#IPR 
COMMON/COM/NBOD Y I # NBODY  # IPRT ( 4 ) 

COMMON/COM/KL#  IPG  #HnCT#LINPGE 

COMMON/BLK/T»PMASS(11) #CN(80) #ST(50) #EMN(15) #SMJR(18) 

COMMON  /BLK/RADIUS ( 11 ) # RMASS { 1 1 ) # NO ( 1 1 ) #ELMNT ( 80 ) # SPHERE ( 1 1 ) # XP ( 6 ) 
COMMON  ypRT/M0NTHM2)  #PLANET{11) 

C VIRTUAL  MASS  POSITION  AND  MAGNITUDE 
V{12#5)=0. 

DO  201  I=1#NB0DY#4 

IP2=l+2 

DO  200  J=l#3 

200  F(IP2# J)=V(2# J+1)-F(I#J) 

F(IP2#4)=SQRT(F{IP2 # 1 ) *F ( IP2#1)+F ( IP2#2) *F (IP2#2)+F( IP2# 3) ♦ 
1F(IP2»3) ) 

F (1+3#  4 ) =F ( I » 4 ) / { F ( IP2  # 4) *F ( IP2  # 4 ) ♦F ( IP2  # 4 ) ) 

201  V ( 12  # 5 ) =V ( 12  # 5 ) +F ( 1+3 » 4 ) 

DO  203  J=l#3 

JP1=J+1 

V(6#JP1)=0. 

DO  202  I=1#NB0DY#4 

202  V(6#JP1)=V(6#JP1)+F(I+3#4)*F(I#J) 

V(6# JP1)=V(6#JP1)/V(12#5) 

203  V(10#JP1)=V(2#JP1)-V(6#JP1) 
V(10#1)=SQRT(V(10#2)*V(10#2)+V(10#3)*V(10#3) +V ( 10 > 4) *V ( 10 #4) ) 

V ( 6 f 1 ) =V ( 1 0 # 1 ) * V (1 0 » 1 ) * V ( 10  # 1 ) * V ( 12  # 5 ) 

C VIRTUAL  MASS  VELOCITY  AND  MAGNITUDE  RATE 
V(12#6)=0. 

DO  301  I=1#NB0DY#4 

IP 1=1+1 

IP2=I+2 

IP3=I+3 

DO  300  J=l#3 

300  F ( IP3  # J ) =V ( 4 # J+ 1 ) -F ( IPl # J ) 

F (IPl#  4 )=3 . ♦ ( F ( IP2  # 1 ) *F ( IP3  # 1 ) +F ( IP2  # 2 ) *F ( IP3  # 2 ) +F ( IP2  # 3 ) *F ( IP3  # 3 ) 
1)/(F(IP2#4)*F{IP2»4) ) 

301  V(12»6)=V(12#6)-F(IP1#4)*F(IP3#4) 

DO  303  J=l#3 

JP1=J+1 

V(8#JP1)=0. 

DO  302  I=1#NB0DY#4 

302  V(8#JP1)=V(8#JP1)+F(I+3#4)»(f(I+1#J)-F{I#J)*F(I+1»4) ) 
V(8»JP1)=(V(8#JP1)-V(6#JP1)*V(12#6) )/V(12#5) 

303  V(12»JP1)=V(4#JP1)-V(8#JP1) 
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V ( 8 » 1 ) = V { 6 » 1 ) * ( 3 , * I V (1 0 » 2 ) * V (1 2 » 2 ) + V ( 1 0 » 3 ) * V ( 12 » 3 ) +V ( 1 O r 4 ) *V ( 1 2 r 4 ) 
l)/(VUOfi)*V(lO»l)  )+V(12»6)/V(l2r5)  ) 

RETURN 

END 
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o r>  r>  o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o r>  o o o o o o o o o r>  o o o o o o 


SUBROUTINE  VMP (RS » ACC  »Dl » tRTMf DEUTM » R5F » ISP2) 


THIS  subroutine  IS  RESPONSIBLE  FOR  GENERATlNe  A VIRTUAL  MASS 
TRAJECTORY. 


INPUT  ARGUMENTS 
RS 
ACC 

Dl 

TRTM 

DELTM 


initial  POSITION  AND  VELOCITY  OF  VEHICLE 
accuracy  FIGURE  WHICH  DETERMINES  TRUE  ANOMALY 
INCREMENT 

JULIAN  DATE  OF  INITIAL  TRAJECTORY  TIME 

initial  trajectory  time 

NUMBER  OF  DAYS  THE  INTEGRATION  IS  TO  CONTINUE 


UNLESS  ISP2  IS  NOT  ZERO 


ISP2  — INTEGRATION  CODE 

=0  THE  INTEGRATION  IS  TO  CONTINUE  UNTIL  A 
STOPPING  condition  OCCURS 
.GT.O  THE  INTEGRATION  WILL  STOP  UPON  ENCOUNTERING 
THE  SPHERE  OF  INFLUENCE  OF  THE  PLANET 
SPECIFIED  BY  ISP2 


OUTPUT  ARGUMENT 

RSF  — FINAL  POSITION  AND  VELOCITY  OF  VEHICLE 


COMMON  elements 


INPUT 


NBOD 

NUMBER  OF  BODIES 

TO  BE  CONSIDERED  IN  ANALYSIS 

NB 

ARRAY  OF  CODES  OF  BODIES  TO  BE  CONSIDERED 

NTP 

CODE  NUMBER  OF  TARGET  PLANET 

ALNGTH 

LENGTH  UNITS  PER 

A.U. 

TM 

TIME  UNITS  PER  DAY 

DELTP 

PRINT  INCREMENT 

(IN  DAYS) 

INPR 

PRINT  INCREMENT 

(INCREMENTS) 

IPROB 

INTEGER  PROBLEM 

identification 

OUTPUT 


RC 

DC 

RSI 

VS  I 

DSI 

ISPH 


RVS 

VMU 

RE 

RTP 

B 

BDT 

BDR 

RV 


POSITION  AND  VELOCITY  OF  VEHICLE  AT  CLOSEST 
approach  TO  TARGET  PLANET 
time  of  closest  APPROACH 

POSITION  OF  VEHICLE  AT  SPHERE  OF  INFLUENCE  OF 
TARGET  PLANET 

VELOCITY  OF  VEHICLE  AT  SPHERE  OF  INFLUENCE  OF 
TARGET  PLANET 

DATE  at  sphere  OF  INFLUENCE  OF  TARGET  PLANET 
SPHERE  OF  INFLUENCE  CODE 

=0  vehicle  DID  NOT  REACH  SPHERE  OF  INFLUENCE 
=1  VEHICLE  DID  REACH  SPHERE  OF  INFLUENCE 
POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
virtual  mass  at  initial  TIME 
MAGNITUDE  OF  VIRTUAL  MASS 

POSITION  AND  VELOCITY  OF  EARTH  AT  FINAL  TIME 
POSITION  AND  VELOCITY  OF  TARGET  PLANET  AT  FINAL 
TIME 

B (CALCULATED  AT  SPHERE  OF  INFLUENCE) 

B DOT  T (CALCULATED  AT  SPHERE  OF  INFLUENCE) 

B DOT  R (CALCULATED  AT  SPHERE  OF  INFLUENCE) 
POSITION  AND  VELOCITY  OF  VIRTUAL  MASS  AT  INITIAL 

time 
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n o o o n o o 


DELTH  — INCREMENTS  OF  TRUE  ANOMALY  USED  IN  RUN  (DETERMINED 
BY  ACC) 

TIMINT  — TOTAL  CP  TIME  USED  IN  TRAJECTORY  OF  FINAL  TIME 
TNCMNT  — total  INCREMENTS  USED  IN  TRAJECTORY  TO  FINAL  TIME 
(SHOULD  BE  initialized  TO  ZERO  OUTSIDE  OF  VMP) 


COMMON/ VM/NBOD#  NB ( 1 1 ) o NTP » ALN6TH » TM » DELTP » I NPR » IPROB » RC ( 6 ) rDC » 

4RSI ( 3 ) » VSI (3 ) »OSI » ISPH  » RVS ( 6 ) » VMU » B » BDT » BDR » DELTH  t T IMINT » INCMT » 
S1EPHEM»ICL»IPRINT»RE(6) »RTP(6) »ICL2 
DIMENSION  RS(6)»RSF(6) 

COMMON  /C0M/V(16»7) »F(44»4) rPIrRAD 
COMMON  /C0M/ITRAT»K0UNT» INCMNT* INCPR» INC» IPR 
COMMON/COM/NBOD Y I » NBODY » IPRT ( 4 ) 

COMMON/COM/KL » IP6 » LINCT » LINPOE 

C0MM0N/BLK/T»PMASS(11)  rCN(80)  »ST(50)  VEMNdS)  »SMJR(18) 

COMMON  /BLK/R AD lUS  (ID#  RMASS  ( 1 D # NO  ( 11 ) # ELMNT  ( 80 ) # SPHERE  ( 1 1 ) » XP  ( 6 ) 
COMMON  /PRT/M0NTH(12) »PLANET(11) 

CALL  CPWMS(TIMI) 

KLSIPROB 
DO  16J=1»7 
DO  161=1# 16 
16  V(I#J)=0. 

V(1»6)=ALN6TH 

V(1#5)=TM 

V(4»7)=V(1»6)/V(1»5) 

V(5#5)=V(1#6)»V(4»7) 

V(6»5)=V(5#5)»V(4#7) 

V(6#6)=V(6#5)/V(1#5) 

V(4»5)=ACC 
V(3#l)=Dl 
V(1»1)=TRTM 
V(2#5)=V(1»1)+DELTM 
V(3»5)=DELTP 
NBODY I=NBOD 
INCPR=INPR 
DO  15  1=1# NBODY I 
15  NO(I)=NB(I) 

INCMNT=INCMT 

CALL  INPUrZ(RS»NTP#IPRINT) 

2 IF(IEPHEM.EQ.O)  60  TO  8 

DO  6 I=1»NB0DYI 
J=NO(I) 

6 CALL  0RB(J#V(4#l)) 

8 CALL  EPHEM(0#V(4#1)#NBODYI) 

3 CALL  VMASS 

IF(ITRAT.EQ.1)60  TO  4 
IF(ITRAT.EQ»2)  60  TO  7 

C initialization  OF  VIRTUAL  MASS-DEPENDENT  VALUES 
V(7#7)  = V(6#l) 

DO  600  J=2»4 
V(10»J+3>=V(8#J) 

V(9#J)5V(10#JI 
600  V(11#J)=V(12»J) 

V(9»1)=V(10#1) 

V(8#5)=l* 

V(5#1)SV(6#1) 

DO  17  I=l»NBODYI 
IF(N0(I)-NTP)17»18»17 
17  CONTINUE 
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18  NTPI=4*I-1 

RCM1=F(NTPI»4) 

IF(ICL.NE.O)  60  TO  700 
DC=V(3rl) 

DO  601  1=1 » 3 
RC(I)=F(NTPI»I)*V(1»6) 

601  RC(I+3)=F(NTPI+1»1)*V(4»7) 

700  ISPH1=0 

RVS(1)=V(10»2)*V(1»6) 

RVS(2)=V(10»3)*V<1»6) 

RVS(3)=V(10»4)*VU»6) 

RVS(4)=V(12*2)*V(4»7) 

RVS{5)=V(12»3)*V(4»7) 

RVS{6)=V(12»4)*V(4»7) 

VMU=V(6rl)*V(6»5) 

DELTH=V(3»6) 

IF  tIPRINT.NE.O)  K0UNT=0 
60  TO  9 
4 1TRAT=2 

C VIRTUAL  MASS  AVERA6E  MAGNITUDE  AND  VELOCITY 
5 V(7»7)=.5*V(5»1)+,5*V(6»1) 

DO  390  J=2»4 

V(10»J+3)=(V(6»J)“V(5»J) )/V(7»6) 

390  V ( 11 » J )=V ( 3 » U) -V { 10 » J+3 ) 

9 CALL  VECTOR 

IFCKOUNT  .LT.  0)  60  TO  996 
IFMTRAT  .eg.  1)  60  TO  2 
IF(ITRAT.EQ.2)  60  TO  3 
C virtual  mass  average  ACCELERATIONS 

7 V(8»6)={V(6»1)-V(5»1)-V(7»1)*V(7»6))/V(8»5) 

DO  340  J=2»4 

340  V(10»J+3)=(V(6»J)-V(5»J)“V(7»J)*V(7»6))/V(8»5) 

RCM2=F(NTPI»4) 

IFUSPH-l)  389 » 395 » 389 
389  IF(ISPHl.NE.O)  GO  TO  3890 

IF(1.025*SPHERE(NTP) .LT.RCM2)  60  TO  395 
V(4»6)=V(3»6) 

TP=AL0G(2,E«7) 

V ( 3 » 6 ) =EXP ( 1 , 13756474179255+ . 509713741462307+TP+ . 14560181279278E-2 
**TP*TP) 

ISPH1=1 

3890  IF(SPHERE(NTP) ,LT,RCM2)  GO  TO  395 
ISPH=1 

DO  391  1=1 » 3 
RSI(I)=F(NTPI»I)*va»6) 

391  VSI(I)=F(NTPI+1»I)*V{4»7) 

DSI=V{4»1) 

K0UNT=1 

TT6  = PMASS(NTP)+V(6.51 

CALL  ACTS { RS I » VSI r TT6 » B » BDT » BDR  > 

IFdPRlNT.EQ.O)  60  TO  392 

KOUNT=0 

GO  TO  393 

392  RCM=RCM2*V(1»6) 

VCM=SQRT(F(NTPI+l»l)*F(NTPI+l,l)+F(NTPI+l»2)*F(NTPI+l»2)+FtNTPI+l» 
S3 ) *F ( NTP 1+ 1 f 3 ) ) +V (4 , 71 
D=DSI+2415020. 

WR1TE(6»7000)  PLANET(NTP) »D  »RSl»RCM»VSIf VCMf BtBOT»BDR 
7000  FORMAT (IHl/////////*  SPACECRAFT  PIERCED  SPHERE  OF  INFLUENCE  OF  * 
$A10=i=  AT  DATE*  . . .+F17.8//10X*POSITION.  . . . .♦4E20.11/ 
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iiOX*VELOClTY.  • • • ,*4E20.U//10X*B  . . . • *E2D.ll»5X»*B.T  « % » 
$ • «E20.Ur5X>>»B.R  . . • . «E20.11} 

393  V<3»6)=V(4»6) 

JJ=0 

3891  RCM=SQRT ( RS I ( 1 ) *RS I ( 1 ) +RS I ( 2 ) *RS I ( 2 ) +RS I ( 3 ) ♦RS 1(3) ) 

JjsJJ+1 

DELR=SPHERE ( NTP ) *V ( 1 » 6 ) -RCM 

I F ( DELR*DELR-4 . * ( V ( 1 » 6 ) / 1495985  0 0 . ) ) 3894 » 3894 ,3892 

3892  DELT=RCM*0ELR/(RSI (1)*VS1(1)+RS1 ( 2)*VSI (2)+RSI (3)*VSI (3) ) 
DSI=DS1+DELT/V(1»5) 

00  3893  1=1,3 

3893  RSI ( I ) =RSI (I ) +VS1 (I ) *DELT 
IF(JvJ-lO)  3891,3891,3894 

3894  RCM=SQRT ( RSI ( 1 ) *RS 1(1) +RS 1(2) *RSI ( 2 ) +RS 1(3) ♦rSI ( 3 ) ) 

CALL  ACTB{RSI,VSI,TTG,B,BDT,BDR) 

IF(IPRINT.NE.O)  eo  TO  394 

D=DSI+2415020, 

WR I TE ( 6 , 7002)  PLANET ( NTP ) , D , RSI , RCM , VSl , VCM , B , BDT , BOR 
7002  FORMAT!////////////*  INTERPOLATED  INFORMATION  AT  SPHERE  OF  INFLU 

*ENCE*// 

$ * SPACECRAFT  PIERCED  SPHERE  OF  INFLUENCE  OF  * 

iAlO*  AT  date.  . . .*F17,8//10X*POSITION.  . , . .*4E20.11/ 
S10X*VELOCITY,  . . . .♦4E20.11//10X*B  • . . . ♦E20,11,5X,*B.T  . , • 
$ , ♦E20.11,5X,*B.R  ....  *E20.11) 

394  IF(ISP2.NE.O)  GO  TO  995 

395  IF(ICL-l)  396,400,396 

396  IF  (RCM2,LE.RCMl)  GO  TO  400 
DO  397  1=1,3 
RC(I)=F(NTPI,I)*V(1,6) 

397  RC ( I +3 ) =F { NTP 1+ 1 , I ) * V ( 4 , 7 ) 

K0UNT=1 

1CL=1 

DC=V(4,1) 

IFdPRINT.EQ.O)  60  TO  398 

KOUNT=0 

60  TO  399 

398  RCM=RCM2*V(1,6) 

VCM=SQRT(F(NTP1+1,1)*F(NTPI+1,1)+F(NTPI+1,2)*f(NTPI+1,2)+F(NTPI+1, 

$3)*F(NTPI+1,3))*V(4,7) 

D=DC+2415020. 

WRITE(6,7001)  PLANET(NTP) ,D  , (RC ( D ,1=1,3) »RCM» (RC(I) ,1=4,6)  ,VCM 
7001  FORMAT!////////////*  SPACECRAFT  REACHED  POINT  OF  CLOSEST  APPROAC 

$H  OF  *A10*  AT  DATE.  ...  .*F17.8//10X*POSITION.  . • . .*4E20.11/ 
S10X*VEL0CITY.  . . . .*4E20.11) 

C test  for  STOPPING  CONDITIONS 

399  IF(ICL2.NE.O)  GO  TO  995 
400  RCM1=RCM2 

IF(V(2»5) .GT.V!2,l)+l.E-8)  GO  TO  401 

IF(IPRINT.NE.O)  GO  TO  995 

D=V(4,1) 

CALL  TIME  (D,IYR,IM0,IDAY,1HR,MIN,SEC,1) 

0=0+2415020, 

IMO  = MONTH (I MO) 

CALL  SPACE  (4) 

WRITE  (6,4000)IMO,IOAY,IHR,MIN,SEC,IYR,D 
4000  FORMAT (//3X*CALENDAR  DATE  =*A10,I3*,*I3*  HR,*I3*  MIN,*  F7,3*  SEC,* 
SI5/3X*JULIAN  DATE  =*F17.8//53H  STOPPING  CONDITION— EXCEEDED  MAXIMU 
$M  TRAJECTORY  TIME) 

GO  TO  995 
DO  403  J=1,NB0DYI 


401 


IP=NO(J) 

IF(F(4*J-1»4) .GT.RADIUS<IP) ) 60  TO  403 

IF(IPRINT.NE.O)  60  TO  995 

0=V(4a) 

CALL  TIME  (DflYRf lMO»IDAY»lHR.MlN»SEC»i) 

0=0+2415020, 

I MO  = MONTH (IMO) 

CALL  SPACE (5) 

WRITE  (6»4010)IMO»IOAY*IHR»MIN»SEC»IYR»D  »PLANET(IP) 

4010  F0RMAT(//3X*CAL£NDAR  DATE  =*A10» I3*»*13*  HR»*I3*  MIN»*  F7.3*  SEC»* 
3>I5/3X*sJULIAN  DATE  =*F17,8//  ♦ STOPPING  CONDITION— IMPACTED  * 

$A10) 

GO  TO  995 
403  CONTINUE 


IFCKOUNT  .EQ. 
KOUNT  = 0 

0) 

60 

TO 

11 

10  CALL  PRINT 

IF (KOUNT  ,LT. 

0) 

GO 

TO 

12 

11  CALL  ESTMT(D1»DELTM»TRTM) 

GO  TO  5 
995  K0UNT=”1 

996  RSF(1)=V(2»2)*V(1»6) 

RSF(2)=V<2»3)*va»6) 

RSF(3)=V(2»4)*V(1»6) 

RSF(4)=V(4*2)*V(4»7) 

RSF(5)=V(4»3)*V(4»7) 

RSF(6)=V(4»4)*V(4»7) 

DO  20  I=l»NBODYI 
IF(N0{I)-4)  20f30»20 
20  CONTINUE 

30  J=4*I~3 

DO  42  1=1 f 3 
RE(I)=F(J»I)*V(1»6) 

42  RE(I+3)=F(vJ+l»  I)*V(4f7) 

g=NTPl-2 
DO  45  1=1 f 3 
RTP(I)=F(J»I)*V(1*6) 

45  RTP(I+3)=F(J+l»I)*V(4+7) 

IFdCL.NE.O)  60  TO  35 
DC=V(4»1) 

DO  32  I=l»3 
RC{I)=F(NTPI»I)*V(1»6) 

32  RC ( I +3 ) =F ( NTP 1+ 1 d ) ♦ V ( 4 » 7 ) 

35  IF(IPRINT.EQ.O)  GO  TO  10 

12  CALL  CPWMS{TIM2) 

TIMIN  = TIM2  - TIMl 
IFdPRINT.NE.O)  GO  TO  50 
WRITE (6 » 4011)  TIMIN 

4011  FORMAT(///10X»*TOTAL  CP  TIME  USED  IN  THIS  INTEGRATION  . . , *5X»F1 
S0.3*  SEC*) 

50  TIMINT=TIMINT+TIMIN 

INCMT=INCMNT 
RETURN 
END 
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VIII.  EXAMFLE  RUNS 


This  chapter  presents  sample  runs  for  the  various  operationai 
modes  of  STEAP,  The  test  cases  as  shown  on  the  following  pages 
are  not  complete  runs,  Each  example  run  was  terminated  after  a 
few  seconds  of  computer  time^  In  this  manner,  typical  output  from 
each  mode  of  operation  can  be  presented. 

The  first  problem  shows  typical  output  from  the  trajectory  mode 
of  STEAP.  The  targeting  mode  printout  is  shown  in  problem  2.  The 
third  and  fourth  problems  represent  typical  computer  printout  from 
the  error  analysis  and  simulation  modes. 
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final,  date  2 20  0 0 0.  1974  JULIAN  OATE  . . . 2442098.50000000 
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victual  Mass  program  will  integrate  until  reaching  a normal  stopping  CONOmON 
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INPUT  DATA  PROBLEM,., 
NUMt'RirAL  «?TrFf?P?;NciN6  oRQCFDURE 
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I S A 

Y 

y 

Z 

trajectory 

TRAJECTORY 

TRAJECTORY 

target 

Target 

Target 

Time 

TOTAL 

N« 

V 

T T C 

n 

n 

0 

R.T 

8.R 

tst 

R.T/TNCL 

B.R/RrA 

tsi/tca 

PFR 

CP 

PF 

E 

F F r 

0 

n 

0 

OR 

OR 

OR 

tntfg 

TIMF 

INtFG 

L 

R P Y 

T 

T 

T 

Incl 

RCa 

tca 

STATE 

transit TON 

matrix 

(SfC) 

<SFC1 

INCR 

TAPfiFTTNG  ANP  CONSTRUCT T ON 

OF  SPHFRF-OF 

-INFLUFMCE  STATF  TPANSITION  matrix 

1 

0 0 S.OOF-04 

34.346674 

12. 518906 

6.166171 

-160137,77 

122307.69 

27072.827 

5074.68 

6930,76 

27072, 34a 

5,86 

6,1 

253 

1 

n 1 5.00C-OA 

34.3a66S4 

12.518906 

6.1661TI 

-159992.04 

121656.42 

27072.822 

-1.25E-07 

5.31F-07  - 

-7.92E-02 

1 

0 ? S.OOf^OA 

34.306674 

12.518996 

6.166171 

-160251 .97 

122573.48 

27072.829 

-1  .87F-07 

S.06E-09  - 

’6.B8E-03 

1 

0 3 5.00F-0A 

34,306674 

12.518906 

6.166101 

-160046,14 

121883.85 

27072.824 

7.48F-08 

-8.3SE-''7 

1.17E-01 

1 

1 n S.OOf-04 

34.3426U 

12,490438 

6.216694 

-20272,15 

148999.45 

27071,464 

8112.11 

6945.06 

27072.274 

5.97 

29,7 

2S8 

1 

1 1 5.00E-(lA 

34.3426P4 

12.490438 

6.216694 

-20132.54 

148326.10 

27073,459 

-3.23E-08 

5.29E-P7  - 

-7.74E-02 

1 

1 R S*00£-0A 

3^,342614 

12.490448 

6.216696 

-20382,10 

149259,00 

27073.466 

-l,76E-07 

3.O6E-09  ■ 

■5.55E-03 

1 

1 3 5.00E-04 

34.342614 

12,490438 

6.216704 

-20186,61 

148574,29 

27073.461 

-5.60F-08 

-0.59E-n7 

T.19F-01 

1 

? 0 S.OOF-OA 

34.358707 

12.492152 

6.195460 

10751,43 

744.36 

27072.307 

5099.87 

6929.76 

27072.256 

6,28 

53.9 

771 

1 

2 1 S»O0e-OA 

34,358797 

12.492152 

6. 195460 

10917. ll 

92.12 

27072.303 

-1 .58F-08 

4.20E-n7  -7.34E-02 
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2 ? S.OOe-OA 

34.358787 

12.492162 

6.195460 

10631,94 

994,84 

27072.300 

-1.74F-07 

-3.27E-09  • 

•6.84E-03 

1 

? 3 S.OOe-OA 

34.388787 

12,492152 

6.19547P 

10851.45 

337,37 
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-8.1 9 E- 08 

-7.OOE-07 

1,l3F-fll 

1 

3 0 S* OOF -04 

34,365213 

12,493463 

6.105825 

4867.09 

6621.97 

27072,254 

509o,o0 

6930,70 

2707?, 260 

6.28 

79.1 

271 

1 

3 t S.OOE^OA 

34.365273 
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6.105825 

5031.29 

5972,44 

27072.250 

-1.93E-08 

4.25E-07  -7.34E-02 

1 

3 P S*00f.-04^ 

34.365213 

12*493473 

6*185r?5 

4744.13 

6880.87 

27077.256 

-1.70E-07 

-5*92E“09  -6*10E"03 

1 

3 3 s, OOF- 04 

34.365213 

12,493463 

6.185035 

4966.08 

6218,22 

27072,252 

-7.78F-08 

-7.12E-97 

1 .14E-01 

1 

4 0 R,OOF-04 

34,364014 

12,493387 

6,106248 

5076.49 

6968.35 

27072.260 

5098,90 

6930.74 

27072. 25q 

6,27 

104.3 

371 

targeting  to  SPHEHr-OF-TNFLUENrF  CONDITIONS 

?. 

n 0 2.50E-0S 

34,364914 

12.493387 

6,186248 

122071,78 

-187536,25 

27071.252 

4897.54 

6867,20 

27 07 2, 4 39 

23.90 

1?8,2 

ie35 

3 

0 0 5*O0e-06 

34.362602 

12,504879 

6.1 92522 

28737.57 

^O840,8o 

27072.152 

4947.03 

6895.41 

27072,28? 

50,5! 

178.7 

2l93 

3 

1 0 5.00E-06 

34.360244 

12.508034 

6,197948 

0416,10 

3707,69 

27072,259 

4950.82 

6096.29 

27072.300 

50.54 

2 29,3 

2 193 

3 

? 0 S.OOF-OA 

36,358676 

12,508351 

6.200676 

5686,19 

6244,80 

27072.296 

4952.16 

6896.57 

27072,301 

50,53 

279.0 

2 193 

3 

3 0 5.00E-06 

34,358536 

12,508440 

6.200861 

5067,57 

6829,07 

27072.300 

4952.34 

6896.64 

27072.301 

50,57 

330.4 

2 193 

3 

4 0 5»OOF-0<> 

34.358546 

12,508657 

6.200855 

4962.05 

6893,56 

27072.301 

4952.35 

6896,64 

27072.301 

50,57 

3«l.P 

2 193 

construction  of 

CLnSFST-APPROACM  STATE 

transition  matrix 

I 

0 0 5*OOE-04 

34.364914 

12.493387 

6.186248 

37.05 

4887.46 

27074.501 

38.00 

4000,00 

?7p74.500 

9.28 

190,3 

402 

1 

0 1 5*00E-04 

36,364915 

12.493387 

6.186248 

36.74 

4862,01 

27074.500 

6.16E-06 

9.31E-08  ’ 

-1 .17f-02 

J 

0 ? 5*0dE-04 

34,366914 

12,4q3388 

6.106248 

37.21 

4898.07 

27074.501 

2.34F-05 

-V.OIE-OB  - 

-1  .56F-02 
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0 3 S«00F-q4 

36,364014 

12.493387 

6.106249 

36.01 

4860.25 

27074,501 

3.35e*-06 

-V*28E-47 

4,o5E-03 

TARGFTTNG  to  closest -approach  CONDITIOmS 
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0 0 5-00F-O6 

36.358546 

12.508657 

6.200855 

37.02 

4817.95 

27074.500 

38.00 

4800,00 

27074,500 

78.33 

496.5 

3399 
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! 0 5* OOF-06 

34,358546 

12,508475 

6.200862 

38,11 

4846,91 

27074.500 

38.00 

4S00.00 

27074, 50o 

78,31 

574,9 

3398 

1 

? 0 5« OOF-06 

34. 358547 

12.508480 

6.200865 

37,94 

4788.42 

27074.500 

38.00 

4800.00 

27074,500 

78,30 

653.2 

34  00 
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measurement  noise  is  constant 
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ERROR  ANALYSIS  MODE  AT  TRAJECTORY  TIME  .200  DAYS 
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Error  anaLvsis  mode  at  trajectory  time  .zoo  days 
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ERROR  analysis  MODE  AT  TRAJECTORY  TIME  ,200  WAVS 
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error  analysis  mode  — eigenvector  event  at  trajectory  time  5.000  DAYS 


♦ 

« 

• ♦ 

UJ  * 

<*>  ♦ 

< ♦ 

a « 


0 o o 

1 I I 

UJ  UJ  Ui 
o « il) 

CM  Ok  »-« 

CO  ^ 
CM  ^ ^ 
(Vi  MD  (D 
fn  mm 
mT  it 

h. 


0 o oo 

1 t t ♦ 

Ui  uluJ  Ui 
m O*’  'rr>  f O 
•-»  m o 
o o 
^ o m o 
m co  o^  o 
m o 

IT  O O 

in  m e 
* • » 

O'  in  m f-< 


4 

• 4t 

Ui 

j « 

CD  « 

O • 

CL  » 

O.  * 

* 


♦ 

04 

04 

O' 

1 I It 

UI 

O' 

40 

^ *-4  *-l  «-4  O (VI 

II 

N 

H 

o o o o o o 

• 

1 1 1 1 ♦ 1 

(V 

CVi 

a a a a a w 

4t 

.♦ 

« 

^ ^ to  > o m 

-♦ 

(D  04  CO  o n 

• 

V 

rst 

M 

04  » O 04  '(*>  ■ O O 

>0  *-*  (VI  CO  O fO 

Nl 

in 

in 

in 

CO  04  40  rn  o O' 

X 

*-« 

F-4 

04  CMf>  oo  of- 

♦ 

♦ 

♦ 

in  ^ 1^  o o 

in 

Ui 

Ul< 

Ui 

in  00  in  04  o tn 

Ui 

(Vi 

<»> 

<n 

• • .*  • .•  0 

> 

♦ 

cn 

CD 

CD 

00  o *-<  »-•  m 

UI 

Ui 

04 

4* 

III  t 

,-J 

K 

• 

» 

• 

f-4 

CM 

«-t 

tn 

< 

X 

r-t  f-4  ^ O f-4  f-f 

£ Z 

• 

< 

o o o o o o 

<f>  o 

in 

♦ 

♦ 

♦ 

o 

1 t 1 ♦ • I 

►1  1-4 

a a a a a a 

in  K 

V 

iNf 

I'M 

o 

kC  m o o ^ o 

< 

• 

X 

X 

>- 

o 

04  m o 00  r- 

m 

o 

St-  o fo  ^ 

o 

>- 

m 

in 

m 

.• 

CD  st  a O fO’O 

Ui  Ui 

X 

•-4 

i«H 

in 

f-r  00  n Q m 00 

X 

> 

♦ 

♦ 

O O fO  O 00  1^ 

I-.  o 

m 

Ui 

UI 

UJ 

^ 4>  O IH. 

z 

I 

CD 

ir- 

04 

ikOjf-4kO  Q a in 

c »- 

•» 

O 

40 

« • • • • • 

z » 

Ui 

00 

sO 

•-4 

t 

04  f-i  in 

•si  O 

CC 

.• 

• 

• 

1 

» 1 It 

-jr 

o 

tn 

^ -j 

cr 

Of  o 

!-■ 

f-4  W o #■«< 

♦ u. 

r- 

« 

♦ 

♦ 

Z 

o o o o o o 

o 

Ui 

» » ♦ » t » 

^ Ui 

(Vi 

(V 

(Vi 

> 

a a a a a a 

Z X 

• 

« 

UJ 

K (V  o o €0  tn 

•“ 

m m oin  ^ 

M 

CVJ 

X 

X 

■»> 

a 

>.o 

m 

o 

40  o a (Vi  ^ 

X <r 

in 

in 

tn 

1- 

^ ^ o m >o  in 

X 

fsi 

•Ht 

o 

<vj  4-  o m in  in 

z 

> 

♦ 

♦ 

Ui 

f-<  o o '4'  f*“f  in 

o o 

m 

Ul 

Ui 

UJ 

> 

'O  m o 40  m ^ 

»-4 

•-4 

(VI 

z 

* 0 • 0'  m • 

1-  o 

• 

(V 

(V 

m 

Ui 

m (V  o* 

o <n 

UJ 

<n 

04 

o 

t t ft 

CD  a 

m 

• ' 

• 

• 

f-4 

t~i  i-r 

CO 

in 

in 

(VI 

ur 

a J 

f-4  O »H»  f-4  f-4 

-J 

» 

a 

o o o o o o 

in  UJ 

• 

• 

c 

1 ^ 1 1 t I 

•-«  a 

a>a<a<aa>a< 

o Ui 

» 

• 

» 

Uf 

<»  o (Vi  m f-H40 

(L 

♦ 

X 

o o m 04  00  a 

-1  >• 

• ! 

»-4 

h-  o CO  o (4- 

< X 

(U 

»- 

O O <t  f-4  f^ 

X 

4c 

• i 

•i 

•I 

in  o 44*  CO  04  ^ 

OC  Ui 

« 

K- 

(Vi  o <4*  o om 

O X 

• 

• 

< 

CVJ  <D  «P  O' 

Z i- 

^ o in  *4^  00 

tn 

• i 

•i 

•} 

X 

• ■ .»  • 0 0’  0 

Ui 

»-» 

O 

n 

o 

•-< 

00  «-<  (VI  a ^ 

X 

►-I 

•-4 

»-l 

a 

1 It  t 

Ui 

o 

o 

o 

1— 

(Vi 

in 

tn 

in 

< 

cr 

m 

a 

a 

a 

X 

O f-»‘f««+  f-4  f-«  f-4 

o 

♦-» 

*-* 

><♦ 

o c»  o o o o 

u. 

• 

-j 

.J 

1- 

« 1 r 1 1 1 

ivi 

..j 

..i 

z 

a a a aa  a 

Ui 

Ui 

UI 

UI 

O 00  f4«  >o  ^ o 

a 

a 

a 

1-4 

o o m 14-  (Vi 

♦ 

UJ 

Ui 

Ui 

u 

o o ^ O'  oc 

a 

a 

a 

4-1 

O O 40  CC  40  (Vi 

(VI 

>- 

X 

>• 

a 

o in  ^co  (VI 

« 

X 

X 

X 

a 

o (Vi  (VI  0 04  m 

4c 

Ui 

o (vj  .-4  m 

X 

X 

M 

M 

o 

o f-4  ao  kO  m 

X 

X 

X 

u 

in 

/ ^ 00  m O' CO  4^ 

»-4 

z 

It  t t 

o 

UI 

►HI 

I- 

<VI> 

<c 

(n 

• 

UI 

in 

a 

a 

474 


error  analysis  mode  — SUIOaNCE  event  at  trajectory  time  5.001  BAYS 


IT 

>o 


m- 

Ui 

o 

< 

a 


5- 

Mi 

_l 

o 

It 

a. 


« 


in  m v-f  r-i  >-t  o 

fw  aj  fw  ffj  4 AI 

♦ 

o o o ^ o 

O O O «-4 

1 1 4 I l 4 

1 1 i 1 ft  1 

4 

Ui  Mi  Ul  UI  UJ  MJ 

Ul  Ul  Ul  MJ  UJ  Ul 

4 

O 43  O'  AJ  h-  O 

in  At  P-  4)  4 43 

4 

AJ  O'  O OO  00  O 

n AI  4 At  4)  4 

4 

O 00  AJ  43  in  O 

43  tn  X P-  O CO 

4 

00  IT  in  Ch  in  o 

At  P-  4 AI  PU  AJ 

4 

43  4*  O O 43  O 

CD  in  <r*  4 AI  r-i 

4 

<o  p^  o O'  m o 

At  4 P-  CO  4 

4 

O'  r-4  4 AJ  O 

f*3  43  O'  'C  O 4 

4 

in  !•-  4)  p-in 

*-l  4 O t r-  4)  in 

4 

» 

4 

O'  P^  oc  *^  *-^  «-* 

o 

>C  A 4 4 GO 

4 

4 

1 

1 ft  1 1 

4 

4 

m -t  in  o o At 

P-  ® A3  fO  4 

4 

000^0^ 

O O O <-4  I-I 

4 

14  1 14  1 

1 1 t f ft  I 

4 

UJ  Ui  U“  Ui  U!  U' 

MJ  Ui  U>  U MJ  U 

4 

4>  GO  fO  43  O ^ 

— 1 4 4 4 A3  4 

4 

»-*  in  — » o o 4) 

A3  ® 4 A A 43 

4 

o ^ in  o o 

A)  43  X O 

4 

CO  4-  O P-  O 4 

A7  A>  4 4 ® A 

4 

4 r-«  •-«  4 O 43 

in  A>  ^ A 

4 

fo  o in  o o o 

O'  X 4 p'“  A X 

4 

^ 4 O «-H  O r-« 

CO  43"in  A3  O'  o 

4 

At  '©  i-i  4>  O CO 

AI  4 m CD  *1  >o 

4 

«*•••» 

m • • • • • 

4 

f-*  cc-  p-  n't  As 

c 

A A 4 If  X 4 

4 

4 

1 1 

1 II  t 

4 

4 

ro  in  o r»i  m 

o 

P-  P-  f-  A?  A3  A> 

4 

O O O O r-<  r-i 

o 

o o o • *-<  •-« 

4 

4 f I 4 1 t 

o 

1 1 1 1 1 ft 

4 

u;  MJ  Ui  UJ  MJ  UJ 

.• 

Ui  MJ  MJ  MJ  Ui  UJ 

4 

sC  C GO  O At 

in 

43  4 O'  A3  4 X 

4 

4 in  in  o 43  o 

X O'  X 43  A A 

4 

in  Ai  m o 43  o 

4 A3  -H  in  43  P- 

4 

.-H  4 Ai  O 4 IT 

P-  A |V  4:  4 A 

4 

At  IT  O f»3  O' 

X X A 4 ^4 

4 

o 43  oe  o ro  ro 

AX  X A3  P^ 

4 

4 o o in  p- 

O A3  4 A)  A3  X 

4 

43  AJin  O AVP- 

A>  A> Ain  X »-< 

4 

• « a » a * 

.• 

a a • • • a 

4 

CD  ^ O'  .-H  CD  4 

o 

*-• 

A A *”•  X m 4 

4 

1 

o 

II  1 ft 

4 

o 

4 

« 

4 

Al  cn  O 4 4 At 

in 

A A X P^ 

4 

O #-H  »-*«  »— f 

o o o c o o 

4 

o 

i ft  4 t r r 

\ 

ft  1 ft  ft  ft  1 

4 

o 

U U U U.  UJ  u 

U U MJ  MJ  U U 

4 

o 

O 43  o P-  P-  in 

A3  X A O'  4 P- 

4 

.» 

AJ  CO  O 4C0  4 

X O X 4 4 

4 

ir 

rn  A c 4 O 1^ 

4<4‘f^i^’P  X 

4 

43  cr  O 4 43  c: 

OP-  X'P  4 4 

4 

O'  »-*  o cn  m ex' 

O'  P-  4 A A3  w 

4 

m 00  O 4 4 

a 

4 P*  A X 4 4 

4 

A!  4 c r^>  < 

4 A3  C 4 in  O 

4 

CC  4i  O 43  AJ 

m A --  A in  O' 

4 

a 

1 

a a a a a a 

4 

AI  m —t  At  fo  <n 

o 

1 

A3  A3  .-H  y-i  4 A 

4 

•• 

ft  1 ft 

1 ft  1 1 

4 

4 

o 

f- 

4 

o 

O O ^ At  At  4 

;Z 

A A P P X 

4 

A 

»-«  C- 

MJ 

c c o c c o 

4 

in 

8 4 I ft  ft  ft 

:> 

I 1 1 ft  8 1 

4 

UI  UJ  liJ'MJ  Mi'UJ- 

UJ> 

Ul  UiUIMJ<Ui'UI> 

4 

</1 

O'  o in  AI  CD  m 

OP  X 4 4 A 

4 

AJ  o 43  m O'  43 

UJ 

CP  P P O'  X A 

4 

fO  O CP  4 C3' 

o 

A O 4 A3  A)  in 

4 

P-  O P-  GO  4>  43 

z 

O'  P P A A3  P 

4 

in  o »-4  GO  rn  in 

< 

CP  4 P A3  p m 

4 

r-t 

O O r-«  4 m 4 

o 

X X P X X A 

4 

o 

CC  IT  o 

« 

O'  o m o m 43 

X 

!-♦ 

4 r-i  n P'3  X X 

4 

o 

o o o o o o 

i-t 

GO  O CO  P-  O 4* 

•-# 

o 

A3irAA4'* 

4 

m 

♦ 4 4 4 4 4 

tn 

• • • •' 

q: 

• : 

o 

a a a a a a 

4 

in 

Mi  iij  UJ  Mi  lii  UJ 

a 

4 ^ rH  4 PO 

1- 

o 

O'  ■-«  A3  A A3  X 

4 

>o  CC 

ft  II  t 

< 

u 

ft  ft  1 ft 

4 

m A3  sM^ 

1 

X 

o 

4 

<n  Ai  00  4-1^ 

1 

4 

ov  m CC  Al 

o ^ fO  AJ  4 

MJ 

UJ 

A A A P P P 

4 

4 in  4^  *4 

O *“i  »— • ^ 

in 

X 

o O O O C 

4 

00  in  in  fo  Ai  w 

X 

4 18  8 1ft 

I-I 

»-* 

1 1 1 1 I t 

4 

AJ  At 

UI  UJ  Ui  UI  Ul  UI 

o 

l~ 

MJ  MJ  Ui  Ut  Ui  MJ 

4 

AJ  in  At  sD  At  4 

or 

o m in  n cr.  m 

z 

O O X X ^ X. 

4 

UJ 

%0  tn  4 4-  00  a 

h- 

o O'  fo  o PH  n 

X O'  X X A3  X 

4 

X 

m m 4)  •-§  o 43 

< 

O in  ^-1  O 4 4 

u 

< 

O'  A 4 P X 

4 

t>^ 

m P-  IT  MD  *-»  CO 

T 

O O A3  Ai  GO  4 

i-e 

X O'  o P X A 

4 

:>r- 

CO  »-*  4'  >0  4" 

o in  p~  43  ex3  A) 

X 

X 

4 O'  O'  X X 

4 

O AJ  O 43  O'  »n 

Z 

O X n 4 't'  4 

< 

1— 1 

A X 4 A O' 

4 

*- 

• • * • • a 

a 

o 4 vC  X o m 

z 

a 

X 4 4 O ce  X 

4 

< 

C*  At 

>-* 

o tfi  n m 8^ 

>- 

>“ 

p X m X A ^ 

4 

1 

h- 

• »•»«« 

o 

• 

< 

' a a a a a a 

4 

cr 

►-< 

-»<#■»-*  At  4 Ai 

o 

X 

X O'  X A A ^ 

4 

o 

in 

8 f 

u 

1 ft  II 

4 

>- 

z 

o 

MJ 

4 

u 

< 

u 

4 

bJ 

a 

-1 

z 

4 

> 

4 

4 

4 

z 

►-« 

4 

Mi 

UJ 

o 

QC 

4 

X > Psi  X >•  INI 

#- 

o 

<£ 

4 

< 

a 0^  c:  > > > 

c 

< 

> 

4 

>“ 

1“ 

*-» 

o 

4 

m 

in 

o 

u 

♦ 

♦ 

♦ 

♦ 


475 


ERROR  ANALYSIS  MODE  — GUIDANCE  EVENT  aT  TRAJECTORY  TIME  5.001  OATS 


-1 

in 

UJ 

>.o 

> 

♦ 

Ul 

UJ 

-1 

'O 

aO 

r-i  »-«  »-t 

<E 

0* 

C>  o o 

X 2 

.* 

« 1 1 

o o 

0-i 

Ui  UJ  UJ 

t-4  *“4 

)f0  >0 

in  1- 

>0  0^ 

< 

♦ 

r-4  N-  O 

m 3 

O O' 

<3 

> 

>n  >o  CO 

UJ  Ul 

X 

, m<n  in 

X ■ ■ 

^ in  w f'* 

H-  ID 

in 

CV! 

Z 

oo--<in 

O 

•fr 

> in  00  ^ 

2 3T 

Ul 

• • • 

<t  O 

o 

fO  O' 

OD 

t t 

^ -J 

'O 

j 

o o 

i 

• li- 

Ai 

> 

o 

*-<  «-f  A; 

^ UJ 

o o o 

2 X 

♦ 

t 1 t 

..  H- 

bJ  UJ  UJ 

tt 

Af 

m O'  c 

in 

<n  O'  f«- 

X < 

m *oin 

X 

M 

X O'  Ai  O' 

2 

X 

in  tn 

o o 

sr 

9-4 

a:  m Aj  o 

i-4  *-< 

o 

££ 

fn 

r-  o 

♦ 

< OCO  00 

3 in 

UJ 

X CO  O fo 

QD  A 

At 

X 

'O  C'tf  O' 

1-^  9-1 

h- 

U]  • • • 

a -J 

Al 

w 

> in  00  in 

V J 

• 

.> 

O t i 

tn  u; 

in 

o 

OQ 

9-4  QC 

a> 

< 

O Ul 

<c 

a. 

♦ 

. vO  r-» 

U.  — » •-*  *-• 

tA.  O O O 

o o o & 

X 

AI 

O 1 1 t 

t t I 

X 

« 

U1  UJ  UJ 

in  UJ  lu  UJ 

QC  UJ 

t/3  O ifk 

oc  >0  in  O' 

O X 

> 

Ui  •-«  O M 

<5  m 

2 *- 

3 ifl  in 

h-  cy  o w 

sf- 

—I  flO  O 1^ 

uoo  in  o 

UJ 

O 

m w 

ui  ^ in  O' 

X 

• 

> fo  r*- 

> O'  Ai  m 

UJ 

2 o or- 

bi  m ac  in 

ujo*  m AI 

a: 

o 

O O'  00  O 

o o •-*  r- 

o 

r- 

O'  >-4  fO 

u. 

• . 

tki  • • • 

UJ  • * • 

o 

fVi  fVi 

t--  in  m 

Z ' ' ' 

z 

O 

o 

* 

►«* 

1- 

(H 

AJ 

>-•  .-1  tM  m 

»-f  —1  A/  m 

in 

in 

o 

o 

X 

<L 

CL 

O' 

O' 

O' 

tt 

u 

n 

AI 

Af 

AJ 

* 

♦ 

>-■ 

IM 

Nl 

o 

o 

O ' 

♦ 

.♦ 

♦ 

UJ 

UJ 

UJ 

AI 

Ai 

O' 

t- 

r- 

f- 

AI 

AI 

• 

.« 

m 

O' 

in 

in 

♦ 

♦ 

♦ 

>- 

Nl 

tM 

X 

X 

in 

in 

in 

o 

o 

:0 

<• 

•» 

♦ 

Ul 

UJ 

UJ 

iO 

aO 

N 

00 

aO 

yO 

O' 

m 

« 

» 

AJ 

»-4 

♦ 

• 

♦ 

tsi 

AJ 

Af 

« 

4t 

* 

' .* 

« 

X 

X 

f>- 

in 

in 

o 

.o 

o 

♦ 

• 

♦ 

Ui 

UJ 

UJ 

X 

'4' 

►-# 

fn 

m 

O 

a 

00 

00 

.»-■ 

.* 

• 

• 

«c 

*-• 

o 

X 

a 

• 

» 

> 

o 

* 

.» 

00 

•1 

• 1 

. aO  AI  m 

a r-« 

•f 

• X 

• r 

O 1 t » 

UJ  UJ  bJ 

.* .. 

• ' 

in  r-  00  in 

uioo  r^  iP 

• ; 

3 aO  m o 

Q 

O 

O 

-t  Aim  N- 

9-9 

9-9 

♦-» 

< ^ I-*  o 

O 

o 

o 

> m o m 

in 

in 

in 

2 AI  00  f*l 

a 

a 

a 

ujir-0  4-H 

9-1 

*-4 

9-4 

O AJ  ^ Ml 

J 

•-to  m-  go 

-J 

-J 

Ul  • • • 

Ul 

UJ 

UJ 

>-l  *-4  CO 

a; 

cc 

a 

>- 

UJ 

UJ 

Ul 

►- 

a 

a. 

a 

9«* 

>- 

V 

>- 

o 

X 

X 

X 

o ^Ai  m 

-J 

>- 

Nl 

Kl 

Ul 

X 

X 

V 

> 

476 


VELOCITY  eigenvectors  OF  aBoVE  MATRIX 

1 T,3930795533E-01  ..6.73363163I3F-01  2.40T84Ti65oE-03 

2 5.48r56*3360E«01  6.004I801463E-0I  -5.81891 U167E-0I 
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3 5,1987l78376E-01  -1 ,3027a4l39oE-Ol  8.44?5165876E-01 
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VELOCITY  eigenvectors 

1 7.4791855180E-01  -1 .961T52U42E-01  -6.34i3957413E-01 

2 S.4707996ft57E-01  7.2321 lOSOOSF-OI  4.2V50836924E-01 

3 3.7592731727E-01  -6.6217904208F-01  &.4822647922E-01 


simulation  MODE  — PREDICTION  EVENT  AT  TRAJECTORY  TIME  3,000  DAYS.  PRED1CTIN8  TO  TRAJECTdRY  TIME  5,000  DAYS 
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simulation  mode  — PREDICTION  EVENT  aT  TRAJECTorY  TIME  3,000  DAYS.  PREDIGTINS  TO  TRAJECTORY  TIME  5,000  DAYS 
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position  eigenvectors 

1 7,47(i070fll94E-01  -l.8o92354A4np-OV  -6.3972423011E-01 

2 S.4OHl979i01E-Ol  7.250063fi22oF-01  4.264735064nF-ol 

3 3.06645O222OE-O1  -fi.645543?12nF-0l  6.3943192053E-01 
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VELOCITY  eigenvectors  OE  aBoVE  MATRIX 

1 7.S8?8423035E-01  -fi,5l52018lG4E-01  2.2945997258E-03 

2 5.2834839468E-0I  5.93547471T7E-01  -6.0768267360E-01 

3 3.819O705654E-OI  4,7246469873F-01  7.943073i371E-01 


simulation  mode  --  6'JIOANCE  EVENT  AT  TRAJECTORY  Tl«E  S.OOl  DAYS 
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simulation  mode:  — guidance  event  at  trajectory  time  5.001  DAYS 


in  '*  tn  0 ^ 0 

•-4 

0 0 0 0 0 0 

♦ ♦ * ♦ 1 ♦ 

t 

UI  ui  bJ  bl  tiJ  bJ 

Ui 

n 01^  tn  Oiin 

nO 

CM  0 NO  m 0 CM 

0 

30  si  0 sO  ® ^ 

f'- 

at  >o  in  -4  'I-  ® 

in 

O'  m ♦-•O'  O'  ^F- 

m 

aO  >4  ai  0 tn  TM 

® 

® 0 O'  ® ^4  cn 

O' 

nO  •4-  0 0 m vu 

*> 

0 4>  nO  —•CO 

nO 

in  CM  in  <n  fo  0 

® 

»:  »;  91  :9t  •'  9i 

9) 

in  f'“  >4 -•  CVI  ^ 

f*-4 

tn  in  m —•  —t 

r-4 

0000  0 0 

* ♦ ♦ t A 1L 

Ji 

UI  Ui  Uf  tij  UI  UJ 

lU 

0 ^ 4 m in 

nO 

m 4 r-i  m 0 

0 

0 c in  nd  fn  m 

*1^ 

4 (VI  *-«  1*-  *-1  cr 

IT 

O'  ® ® ® 4 O' 

>0 

® CO  nO  ir  0 

® 

4 m m 4 

O' 

4 Ai  m O'  o « 

nO 

O'  CVI  fyy  4 ® 

O'  O'  in  4 O'  0 

® 

» • • • • • 

9 

m — • ai 0*  mm 

r-4 

f 1 1 1 

IT  in  iT  0 r->  0 

•—t 

000000 

♦ ♦ ♦ ♦ 1 ♦ 

1 

bJ  UI  Ui  Ui  Ui  UJ 

Ui 

c m nid  nc  —*  cc 

>c 

m O'  1-  — t 

0 

—*  >-4  ® in 

r- 

n --*®  in 

m 

0 0 m a nO  4 

vO 

O'  1- 1-  m m a 

® 

O'  0 ® 4 f'- 

0 

CD  ♦-•  4 m O'  0 

a 0 nc  4 4 0 

'T 

cn  m O'  a O'  ai 

® 

* • » 9 * 9 

9 

0 4 a cn  *~s 

ft 

a a 4 4 4 

0000  00 

0 

♦ ♦ ♦ 1 It 

t 

Ui  Ul  Ui  UJ  UI  Ul 

UJ 

a s£>  4 nX?  0 rr 

IT 

0 cn  0 ® 4 

ao  —t  m —*  4 4 

m 

<n  cc  ir  0 IT 

.-4 

4 fFj  nf)  |s-  O' 

CO  0 a »"♦  m ® 

O' 

m no  1-  -•  in  O' 

0 

>£  IT  m tt  m 

4 

a m r-)r-  a .-s 

4 0 4 a m 

n- 

» tt  • 9 99 

9 

rw  O'  m a a- 

II  It 

a 0 a cn  in  cn 

4*4 

0 000  00 

0 

♦ 4 ♦ t It 

1 

U’  u u;  Ui  b.  Ui 

UJ 

in  4 O'  4 O'  in 

m 

0 O'  m m a a 

f^. 

r-  O'  4 O'  m a 

m 

f-s  ^ >0  0 

*-t 

—*m  m 4 ® "O 

r- 

m 0 m ® in  f- 

O' 

m O'  0 «n  vx> «— t 

0 

♦-4  x-S  r>«  4 0 in 

4 

4 vo  *-4  m 0 

X 

.-SI 

0 no  O'  4 

►s 

1- 

• 9 • • •'■ 

flC 

•- 

O'  m in  a 0*  —* 

1- 

® 

t i t i i 

<« 

a a -4  4 4 in 

3: 

Ui 

in 

000  0 0 0 

♦ ♦ ♦ t it 

0 

i 

Ui  Ui  UI  UJ  ui  Ui 

z 

UI 

in  O'  1-  n-  o « 

m 

m nO  4 *-4  m 

u 

1- 

a a a O'  a 4 

►s 

cn 

r-«  a a ^ 4 

S 

•-S 

-4  01-®®  a 

< 

n- 

mm  m a in  in 

z 

a 

0 O'  ® fO  ® 4 

V 

0 

m 0 ® a in  0 

0 

4 

-1  0 *-i  a m m 

r-4 

4 m 04  0® 

b- 

!^ 

.999999 

0 

9 

•-«■-•  m m m O' 

® 

i > » « 

Ui 

> ^ tn 

>0000 
♦ t $ I 
I UIUI  UJ  UJ 
vO  o m m 
•4-  o tn 
^ s ^ m 

^^C  O' 
fn  <n<\i  ^ 
y*  jy  CM  so 
.*^1^  n f*j 
•-<10  CO 

mm 
cxi  io  m 00 


> o J>  m *0 

> 0000 

Jl  a t Jl 

i uj  ui  tu  ui 

f-  f»T  tfl 

F fn  >0  O 

^ 00  CM  00 

^ ^ nC  W 
' aT  f'-  >o  <\J 
; r-«  W (\|  m 

■ cv  ir  01^ 

F rotv  T») 
roo  in 


fO^  m-* 


f-H  o •-«  iT  'C  un 
00  0000 
♦ ♦♦It  I 
UJ  Ixi  UJ  liJ  jUl  Ui 

<t  tr  O'  1^  o 
^ I'-  o»  o ^ ^ 
o 00  oj  in  00  00 
m ^ fv)0'  tO 
00  CM  00*  cr 
sf  CM  O'  < in 

CO  ^ fs.  r«*  fv 

m m o intn 
»-t  cc  c m >0 
r-«  00  O'  m in 

• • • » • • 

fO>-t  r-t 


vO  iTi  ^iC  •-»  O *-» 
00  0000 
♦ ♦ ♦ ♦ ♦ ♦ 

CiJ  Ikt  IjJ  tsi  £U  UJ 
vC  m >4? 
O'  I''  ^ O'  cn  •4‘ 
yft  m in  <M  st- 
ir o O '*  -*  rS 
o o o ^ m 
CO  O IT  o 'C  '* 
fO  ’*•  O si 

O'  <V'  C^<v  ^ 

tM  m flC 

o cn  00  OD  cvi 

» * • • • • 

t-  si  ur 


IT  in  in  o o o 
00  0000 
♦♦♦♦♦♦ 
lij  Uj  Ui  bJ  Ui  bJ 

o 'C  in  si  m 

co  'o 

in  aO  CO  in  CO 
o o fo  ^o  >* 
in  sO  O'  M A*  tn 

00  y^  O AIO*  o 
GO  •-«  ^ I^CO 
GO  GO  O'  00  si  m 

o fo  ® in  sD 
>n  aO  m ® m o 

»;  •'  • »'  •'  • 

r-  in  *-« 


I'*  m aO  »"S  O r-» 

00  0000 

♦ ♦ ♦ ♦ ♦ ♦ 

bJ  UJ  bJ  Ui  bl  bJ 

at  O'  >0  *4'  O'  <n 
« O'  '*■  o ^ 
€D  >*  si  O m «M 

® o in  w si 

m in  ro® ® si 

in  ® ® •4'  aO  (M 

in  ® mm  m CO 

yt  CO  I-  sO  '4-  si 
O'  OJ  <rs  |~  O' 

at  'O  O'  m 
*-•1'-  m fo 


o 

CO 

< 

in  in 

b.  o o o 

o ♦ ♦ ♦ 

bi  lii  U1 

in  o *-4  O' 

bJ  r-»  ^ ® 

Z>f010'  A* 

-J  in  r- 

< «M  M O 
> si  si  ^ 

z m 
UJ  c m m 
O O O' 
t*.  rS  aO 

lU  • • • 

^ in  r-< 


^ aj  m 
in 

o . 

0. 


516 


position  eigenvectors  of  above  matrix 

1 8,48T607T73RE-OI  1 .023534?61oF-02  -5.2867795539E-01 

2 5.0739180$67E-02  9,9362263982E-01  1 . 00aV550713E-0I 

3 5.2633703867E-01  -1 .l229l0fl33fF-01  8.4282859131E-01 


simulation  mode  — OUIDANCE  event  at  trajectory  time  S.oni  DAYS 
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